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

您应该检查返回的文件名是否有效。