Set objFso = CreateObject("Scripting.FileSystemObject")'If NOT objFso.FolderExists(STR_ROOT_FOLDER_PATH) Then Wscript.Quit 100

If objFso.FolderExists(STR_ROOT_FOLDER_PATH_XP) Then
Set objFolder = objFso.GetFolder(STR_ROOT_FOLDER_PATH_XP)
ElseIf objFso.FolderExists(STR_ROOT_FOLDER_PATH_SEVEN) Then
Set objFolder = objFso.GetFolder(STR_ROOT_FOLDER_PATH_SEVEN)
Else Wscript.Quit 100
End If