Question

VB如何把选择的文件复制到指定文件夹?

CommonDialog控件选择好文件路径

点确定 怎样复制到指定文件夹 假设文件夹是file

Answer 1

这是你单击按键上的代码，如果你不希望打开后同时保存的话，声明个窗体级变量，把CommonDialog1.FileName保存到里面，到时在利用那个变量来复制文件。Dim a As String, b As StringCommonDialog1.InitDir = App.Path & "\"
CommonDialog1.Filter = "所有文件|*.*|"
CommonDialog1.ShowOpen
a = CommonDialog1.FileNameb = CommonDialog1.FileTitle
FileCopy a, "c:\file\" & b
End If

Answer 2

Private Sub Command1_Click()
CommonDialog1.ShowSave
FileCopy "D:/1.TXT", CommonDialog1.FileName
End Sub

不知道 "D:/1.TXT" 是什么意思
是通过CommonDialog1.ShowOpen选中好的文件获得的路径 然后复制文件到程序当前目录的wenjian下
能否不使用ShowSave呢？自己默认是/wenjian呢？ 其他网友回答：

Answer 3

假设你要复制到的文件夹是c:\file
FileCopy commondialog1.filename "c:\file\"

就可以了。

Answer 4

Private Sub Command1_Click()
CommonDialog1.ShowSave
FileCopy "D:\1.TXT", CommonDialog1.FileName
End Sub