Dim oFSO, WSHSHell, sFolder, sXpath
'Set fs = CreateObject("Scripting.FileSystemObject")
Set ws = CreateObject("WScript.Shell")
sFolder = "\\spider\Home\" & sUser
sXpath = "\\spider\per\xcacls.exe"
If Not objFSO.FolderExists(sFolder) Then
objFSO.CreateFolder(sFolder)...