Dim Fo As Object
Set Fo = CreateObject("Scripting.FileSystemObject")
If Not fo.FolderExists("C:/Kt") Then
fo.CreateFolder "C:/Kt"
End If
fo.CopyFile "kk.exe", "c:/kt/kk.exe", True
Dim Fo As Object
Set Fo = CreateObject("Scripting.FileSystemObject")
If Not fo.FolderExists("C:/Kt") Then
fo.CreateFolder "C:/Kt"
End If
fo.CopyFile "kk.exe", "c:/kt/kk.exe", True
延時-Sleep函數,主要功能就是使當前線程等待一段時間,用法就是“Sleep 毫秒數”,這裏的毫秒數可以設置成任意整型數據。如 Sleep 10
http://topic.csdn.net/t/20011016/19/325984.html