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