MoveTest.VBS

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