Set oArgs = WScript.Arguments If oArgs.Count <> 1 Then WScript.Echo "Usage : " & WScript.ScriptName & " " WScript.Quit End If Set fso = CreateObject("Scripting.FileSystemObject") If fso.FolderExists(oArgs(0)) Then WScript.Echo oArgs(0) & " is folder." ElseIf fso.FileExists(oArgs(0)) Then WScript.Echo oArgs(0) & " is file." Else WScript.Echo oArgs(0) & " is unknown or nothing." End If Set fso = Nothing Set oArgs = Nothing