Sorry to resurrect this thread but I had a question about the script listed above. Dim objFSO, ofolder, objStream Set objShell = CreateObject("WScript.Shell") Set objFSO = CreateObject("scripting.filesystemobject") Set objNet = CreateObject("WScript.NetWork") Set FSO = CreateObject("Scripting.FileSystemObject") '=====Source folder===== SPath = "C:\Source\" ShowSubfolders FSO.GetFolder(spath) Sub ShowSubFolders(Folder) For Each Subfolder in Folder.SubFolders CheckFolder(subfolder) ShowSubFolders Subfolder Next End Sub Sub CheckFolder(objCurrentFolder) Dim strTempL, strTempR, strSearchL, strSearchR, objNewFolder, objFile Const OverwriteExisting = TRUE For Each objFile In objCurrentFolder.Files FileName = objFile '=====Destination folder===== objFSO.MoveFile FileName, "C:\Destination\" Next End Sub How can I adapt this to work for multiple folders; i.e. moving from e:\backup\serverA to e:\serverA, e:\backup\serverB to e:\serverB, etc. I tried to add multiple folders to the script by copying from the '==Source folder line down and then changing source/destination folders. It works in that it moves the files out of the subfolders, but it will dump them into the last folder specified in the script, for example, it will move the contents of e:\backup\serverA, e:\backup\serverB .... and put it in e:\serverZ. If serverY is the last server listed in the script, it will dump there. How do I get them to abide by the different destinations in the script? Hope that makes sense. Thanks!
