希米日志
28
0
程序代码:
Private Sub Command1_Click()
FileCopy "c:\a.txt", "d:\a.txt" 'C盘文件a到D盘
End SubPrivate Sub Form_Load()
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CopyFolder "C:\123", "D:\456" '123文件夹下的所有文件复制到456下面
End Sub
2016-11-08 18:26:00