Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Option Explicit
- Dim FSO
- Set FSO = CreateObject("Scripting.FileSystemObject")
- WScript.Echo "Test #1: " & Now
- Test1
- WScript.Echo "Test #2: " & Now
- Test2
- WScript.Echo "Test #3: " & Now
- Test3
- WScript.Echo "All done: " & Now
- '====================================================================
- Private Sub Test1
- Dim Folder
- Dim File
- Dim TargetPath
- Dim Files
- Dim TMP
- TargetPath = "Y:\Temp\Test 1 - " & CDbl(Now)
- Set Folder = FSO.GetFolder("\\USURA\TestCore\Test 1")
- If Not FSO.FolderExists(TargetPath) Then FSO.CreateFolder TargetPath
- TMP = 0
- ReDim Files(Folder.Files.Count - 1)
- For Each File In Folder.Files
- Set Files(TMP) = File
- TMP = TMP + 1
- Next
- For Each File In Files
- FSO.MoveFile File.Path, FSO.BuildPath(TargetPath, File.Name)
- Next
- End Sub
- '====================================================================
- Private Sub Test2
- Dim Folder
- Dim File
- Dim TargetPath
- Dim Files
- Dim TMP
- TargetPath = "Y:\Temp\Test 2 - " & CDbl(Now)
- Set Folder = FSO.GetFolder("\\USURA\TestCore\Test 2")
- If Not FSO.FolderExists(TargetPath) Then FSO.CreateFolder TargetPath
- TMP = 0
- ReDim Files(Folder.Files.Count - 1)
- For Each File In Folder.Files
- Files(TMP) = File.Path
- TMP = TMP + 1
- Next
- For Each File In Files
- FSO.MoveFile File, FSO.BuildPath(TargetPath, FSO.GetFileName(File))
- Next
- End Sub
- '====================================================================
- Private Sub Test3
- Dim Folder
- Dim File
- Dim TargetPath
- TargetPath = "Y:\Temp\Test 3 - " & CDbl(Now)
- Set Folder = FSO.GetFolder("\\USURA\TestCore\Test 3")
- If Not FSO.FolderExists(TargetPath) Then FSO.CreateFolder TargetPath
- For Each File In Folder.Files
- FSO.MoveFile File.Path, FSO.BuildPath(TargetPath, File.Name)
- Next
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement