Set fso = CreateObject("Scripting.FileSystemObject") Set wshShell = CreateObject("WScript.Shell") On Error Resume Next If fso.FolderExists("C:\sj4web") = True Then If fso.FolderExists("C:\fes") = False Then fso.CreateFolder "C:\fes" End If If fso.FolderExists("C:\fes\sj4webbak") = False Then fso.GetFolder("C:\sj4web").Move "C:\fes\sj4webbak" Else fso.GetFolder("C:\sj4web").Delete True End If End If If fso.FolderExists("C:\sj4webetc") = True Then If fso.FolderExists("C:\fes\sj4webetcbak") = False Then fso.GetFolder("C:\sj4webetc").Move "C:\fes\sj4webetcbak" Else fso.GetFolder("C:\sj4webetc").Delete True End If End If If fso.FolderExists("D:\sj4web") = True Then If fso.FolderExists("D:\fes") = False Then fso.CreateFolder "D:\fes" End If If fso.FolderExists("D:\fes\sj4webbak") = False Then fso.GetFolder("D:\sj4web").Move "D:\fes\sj4webbak" Else fso.GetFolder("D:\sj4web").Delete True End If End If If fso.FolderExists("D:\sj4webetc") = True Then If fso.FolderExists("D:\fes\sj4webetcbak") = False Then fso.GetFolder("D:\sj4webetc").Move "D:\fes\sj4webetcbak" Else fso.GetFolder("D:\sj4webetc").Delete True End If End If