SAVEダイアログを使用する場合の保存名の指定

下記のとおり、SAVEダイアログを使用してデータを保存するプログラムを使用したのですが、保存の際に予めファイル名称を指定したいと考えています。
ネットで色々調べたのですが、どれもうまくいかなかったので教えて下さい。
環境はVB2008、windosXP（SP3）です。


Private Sub Command3_Click(ByVal eventSender As System.Object, ByVal eventArgs As System.EventArgs) Handles Command3.Click
　Dim nFilter As String
　Dim Ret As String
　Dim ReadData As String
　'フィルターの設定
　nFilter = "データファイル(*.dat)" & Chr(0) & "*.dat" & Chr(0)
　Ret = SaveDlg(Me.Handle.ToInt32, nFilter)
　'ファイルを保存する
　FileOpen(1, Ret, OpenMode.Output)
　WriteLine(1, Text1.Text)
　WriteLine(1, Text2.Text)
　WriteLine(1, Text3.Text)
　FileClose(1)
End Sub

No.1 ベストアンサー 回答者： Wr5 回答日時： 2011/08/14 16:12

手元のはVS2005なので、VBのバージョンが違うのかも知れませんが…

SaveDlg()とはナニモノですかね？
Win32APIのGetSaveFileName()を使用するモノと推測されますが…実装が不明では……。

この回答へのお礼

SaveDlg()はあるサイトを見て作ったモジュールを呼び出しているものでした。
お手数をお掛けしてすいませんでした。

お礼日時：2011/08/14 19:34