如何将文件保存在vb6目录中

Posted 2023-02-22

【中文标题】如何将文件保存在vb6目录中

【英文标题】：How to save a file in a directory vb6

【发布时间】：2016-08-12 11:26:52

【问题描述】：

我已经编写了一个代码，其中数据被写入一个 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

【问题讨论】：

您可以使用通用对话框执行此操作。在此处查看保存示例：developerfusion.com/code/211/common-dialog-example 或此处：vb6.us/tutorials/common-dialogs-vb-tutorial

谢谢。这有帮助，但我可以在我的函数中的哪个位置使用它？

【参考方案1】：

您需要在分配文件名之前插入它。例如

MyRes.MoveFirst

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

strCsvFile = CommonDialog1.FileName

fHndl = FreeFile

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