９７．「ファイルを保存」コモンダイヤログを表示する

＜　使用用途　＞
OCX等使わないでこれを使いましょう

今回のサンプルソースをダウンロードする方は下記の「ダウンロード」を！
＝＞　ダウンロード・・・　説明文を大量に書きこんでいます

　＜　説明　＞
ＡＰＩ関数のGetSaveFileName を使用します
GetSaveFileName ＝＞コモンダイアログを表示
　　＜引数＞
　　　　　pOpenfilename:OPENFILENAME構造体　　　　　　　
　　＠戻り値＠
　　　　　 OKボタンを押した時1、キャンセルボタンを押した時0

<　ＳＡＭＰＬＥ　＞
’ここでは関数だけを掲載します（すべて掲載すると長くなるので・・・）
'-----------------------------------------------------------------------------------
'■関数名 SaveDlg
'■用途 「ファイルを保存」コモンダイヤログを表示する
'■引数 nHandle：ウインドウのハンドル、nFilter：フィルター
'■戻り値 ファイルを選択した場合そのファイルのパス名、キャンセルを押した場合""が戻る
'-----------------------------------------------------------------------------------
Public Function SaveDlg(nHandle As Long, nFilter As String) As String

　　Dim OFN As OPENFILENAME
　　Dim Ret As Long

　　With OFN
　　　　.flags = OFN_PATHMUSTEXIST Or _
　　　　　　　　　OFN_FILEMUSTEXIST Or _
　　　　　　　　　　OFN_HIDEREADONLY
　　　　 .hInstance = App.hInstance
　　　　.hwndOwner = nHandle
　　　　.lpstrTitle = "ファイルを保存"
　　　　.lpstrFilter = nFilter
　　　　.lStructSize = Len(OFN)
　　　　.nMaxFile = 250
　　　　.lpstrFileTitle = String(250, Chr(0))
　　　　.nMaxFileTitle = 250
　　　　.lpstrFile = String(250, Chr(0))
　　 End With

　　　　Ret = GetSaveFileName(OFN)

　　　　 If Ret = 0 Then
　　　　　　SaveDlg = vbNullString
　　　　Else
　　　　　　SaveDlg = OFN.lpstrFile
　　　　End If

End Function