VBScript - Copying a folder and contents from a server to users' PCs - Renaming the copied folder

Hi there,

I found a useful piece of code on here which allows me to copy a folder and contents from a server onto a users PC whist showing the Windows copy progress bar which i have modified slightly:

--------------------------------------------
strSourceFolder = "\\SERVER\SALES\"
strTargetFolder = "C:\"
 
If Right(strSourceFolder, 1) <> "\" Then
      strSourceFolder = strSourceFolder & "\"
End If
If Right(strTargetFolder, 1) <> "\" Then
      strTargetFolder = strTargetFolder & "\"
End If
 
Const FOF_CREATEPROGRESSDLG = &H10&
Set objFSO = CreateObject("Scripting.FileSystemObject")
 
Set objSourceFolder = objFSO.GetFolder(strSourceFolder)
Set objShell = CreateObject("Shell.Application")
Set objTargetFolder = objShell.NameSpace(strTargetFolder)
If Not objTargetFolder Is Nothing Then
      'MsgBox "Copying " & objSourceFolder.Path & " to " & strTargetFolder
      
      objTargetFolder.CopyHere objSourceFolder.Path, FOF_CREATEPROGRESSDLG
Else
      MsgBox "There was an error finding " & strTargetFolder
End If
MsgBox "Done"
--------------------------------------------

This works fine however when the SALES folder is copied onto the local C: drive it is renamed as "C:\SALES on SERVER".  Is there an easy way to automatically change this to "C:\SALES"?

Please note this will be ran every month by the users and it should continue to copy the \\SERVER\SALES folder & contents into C:\SALES, replacing all of the existing files.

Thanks in advance,
Clint
Start Free Trial