VBscript copying files and folders

Jadi script dibawah berguna untuk menata file exel kamu,dimana dalam satu folder didalamnya

terdapat sejumlah file excel yang nantinya melalui script ini kita g usah repot menata 

secara manual dalam beberapa folder karna file sudah d'susun dalam sub folder otomatis

berdasarkan tanggal buat.

copy dan simpan script dengan nama technosoft.vbs!! 

Option Explicit 
Dim fileCount
Const fromDir = "SourceHere"
Const toDir   = "DestinationHere"
 
fileCount = CopyXLS(CreateObject("Scripting.FilesystemObject"), fromDir, toDir) 
On Error Resume Next
WScript.StdOut.WriteLine "Copied " & fileCount & " files."
WScript.Quit fileCount
 
'oFSO   (object) - FileSystemObject to use
'sStart (string) = Source directory
'sEnd   (string) - Destination directory
Function CopyXLS(oFSO, sStart, sEnd) 'As Integer
  Dim d, f, i, ext
  If Right(sEnd, 1) <> "\" Then _
    sEnd = sEnd & "\"
  
  If Not oFSO.FolderExists(sEnd) Then _
    oFSO.CreateFolder sEnd
  
  With oFSO.GetFolder(sStart)
    For Each f In .Files
      ext = oFSO.GetExtensionName(f)
      If Len(ext) And InStr(1, "xls", ext, 1) And _
         ShouldCopy(oFSO, sEnd & f.Name, f.DateLastModified) Then
        f.Copy sEnd
        i = i + 1
      End If
    Next 'f
    
    For Each d In .SubFolders
      i = i + CopyXLS(oFSO, d, sEnd & d.Name & "\")
    Next 'd
  End With
  CopyXLS = i
End Function