vb6 - ディレクトリvb6にファイルを保存する方法

Question

ファイル名とパス名がハードコードされている csv ファイルにデータを書き込むコードを書きましたが、ボタンでファイルをユーザー固有の場所に保存することはできますか? 助けていただければ幸いです。ありがとうございます 以下は私がやったことのコードです

Public Sub exportCSV()

    MyRes.MoveFirst  
    strCsvFile = "D:\Mycsv.csv"

    fHndl = FreeFile

        Open strCsvFile For Output As fHndl
         out2 = MyRes.GetFieldNameAt(1)
          Print #fHndl, out2
    MyRes.MoveFirst
     While Not MyRes.IsEOF

        out = MyRes.GetField("ID")
'        Debug.Print out2
       Print #fHndl, out
        MyRes.MoveNext
    Wend

    MsgBox ("Downloaded")

    Close #fHndl

End Sub

Answer 1

ファイル名を割り当てる前に挿入する必要があります。例えば

MyRes.MoveFirst

CommonDialog1.InitDir = "C:\MyStartFolder"
CommonDialog1.Filter = "CSV Files (*.csv)|*.csv|All Files (*.*)|*.*"
CommonDialog1.ShowSave

strCsvFile = CommonDialog1.FileName

fHndl = FreeFile

返されたファイル名が有効であることを確認する必要があります。