Check if folder is there, if not create it on current user logged in VBS

Question

Currently this is my script

Set oWS = WScript.CreateObject(\"WScript.Shell\")
\' Get the %userprofile% in a variable, or else it won\'t be recognized
userProfile         


        

Answer 1

Here is code part from my utilty for FSO:

dim ffso

Function GetFSO
    if not IsValidObject(ffso) then set ffso = CreateObject("Scripting.FileSystemObject")
  Set GetFSO = ffso
End Function

sub SureDirectoryExists(ADir)
    if ADir="" then exit sub
    if not GetFSO().FolderExists(ADir) then
        SureDirectoryExists ffso.GetParentFolderName(ADir)
        ffso.CreateFolder ADir
    end if
end sub