Vbscript copy files based on beginning letters

Question

I am trying to get this script to copy all files starting with "XX". Currently it only copies one file.

Dim objFSO, colFiles, objFile, strDestFolder, objNewestFile
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set colFiles = objFSO.GetFolder("C:\source")
strDestFolder = "C:\destination\"

For Each objFile In colFiles.Files
  If Left(objFile.Name, 2) = "XX" Then
  If objNewestFile = "" Then   
    Set objNewestFile = objFile  
  Else   
      If objNewestFile.DateLastModified < objFile.DateLastModified Then    
        Set objNewestFile = objFile   
      End If  
  End If
End If
Next

If Not objNewestFile Is Nothing Then 
objFSO.CopyFile objNewestFile.Path,strDestFolder,True
End If

WScript.Echo "Copied."

You are doing `CopyFile` outside your loop, so it can only copy the last `objNewestFile` — Jen R, May 02 '17 at 13:54

score 2 · Accepted Answer · answered May 02 '17 at 17:28

2

You can use wildcards * and ? in [source] argument of FSO .CopyFile method.

So the code may look like:

Dim objFSO
Set objFSO = CreateObject("Scripting.FileSystemObject")
objFSO.CopyFile "C:\source\XX*.*", "C:\destination\", True
WScript.Echo "Copied."

answered May 02 '17 at 17:28

omegastripes

12,351
4
45
96

1

Your code works like a charm. Thank you both for your time. – user3374569 May 02 '17 at 19:00

Vbscript copy files based on beginning letters

1 Answers1