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

 

posted @ 2023-04-17 17:54  hack747  阅读(56)  评论(0)  编辑  收藏  举报