if (sys.gvarfind('filequery_is_set') = -1) gvar(filequery_is_set) fvar(old) old = block.select(BLK_OBJ) println('On Error Resume Next') println('Dim FileQuery') println('Set FileQuery = CreateObject("WshExtra.FileQuery")') println('If Err.Number <> 0 Then') println(' Msgbox "Please install WshExtra.dll before!" & vbCrLf & "Open a command prompt and cd" & vbCrLf & "to the directory where the dll is located" & vbCrLf & "then type regsvr32 WshExtra.dll"') println(' WScript.Quit 1') println('End If') println('On Error GoTo 0') println('') block.select(BLK_NOTH) println('Set FileQuery = Nothing') block.select(old) end