• ベストアンサー
  • 困ってます

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

  • 質問No.6942379
  • 閲覧数150
  • ありがとう数1
  • 回答数1

お礼率 70% (34/48)

下記のとおり、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
  • ベストアンサー

ベストアンサー率 53% (2177/4070)

手元のはVS2005なので、VBのバージョンが違うのかも知れませんが…
SaveDlg()とはナニモノですかね?
Win32APIのGetSaveFileName()を使用するモノと推測されますが…実装が不明では……。
お礼コメント
higuchi-yu

お礼率 70% (34/48)

SaveDlg()はあるサイトを見て作ったモジュールを呼び出しているものでした。
お手数をお掛けしてすいませんでした。
投稿日時:2011/08/14 19:34
関連するQ&A

その他の関連するQ&Aをキーワードで探す

ページ先頭へ