复制文件,文件夹
0 Reply , Posted in 程序代码 on 2016 08, 2016
'复制文件
Private Sub Command1_Click()
FileCopy "c:\a.txt", "d:\a.txt" 'C盘文件a到D盘End Sub
'复制文件夹
Private Sub Form_Load()
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder "C:\123", "D:\456" '123文件夹下的所有文件复制到456下面
End Sub
