VB选择文件保存到指定文件夹

另类保存到指定文件夹

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Label1 = CommonDialog1.FileName
Label2 = CommonDialog1.FileTitle
End Sub

Private Sub Command2_Click()
'Shell "cmd.exe /c copy c:\1.txt d:\", 1
FileCopy CommonDialog1.FileName, "D:\VBMD\影音\" + CommonDialog1.FileTitle
MsgBox "添加成功!"
End Sub