SHOW:
|
|
- or go back to the newest paste.
| 1 | - | Function CopyFiles(strSourceDir, strDestDir) |
| 1 | + | Function CopyFiles(strSourceDir, strDestDir) |
| 2 | - | On Error Resume Next |
| 2 | + | MsgBox(strSourceDir) |
| 3 | - | Set lfsObject = CreateObject("Scripting.FileSystemObject")
|
| 3 | + | MsgBox(strDestDir) |
| 4 | - | Set lFolder = lfsObject.GetFolder(strSourceDir) |
| 4 | + | End Function |
| 5 | - | |
| 5 | + | |
| 6 | - | 'If strSourceDir "" then |
| 6 | + | |
| 7 | - | Set NewFolder = lfsObject.CreateFolder(strDestDir) |
| 7 | + | src = "C:\1\" |
| 8 | - | ' WScript.Echo "Copy Source: " & strSourceDir & " Dest: " & strDestDir |
| 8 | + | dest = "C:\2\" |
| 9 | - | |
| 9 | + | Call CopyFiles(src, dest) |
