'=========================================================
'
' DESC: Display information about a file
'
'
' AUTHOR: Todd Woolums (twoolums@toddwoolums.com)
' DATE : 05/29/2004
' VERSION: 1.0
'=========================================================

dim fso, fil, Input

Set fso = CreateObject("Scripting.FileSystemObject")

Input = InputBox("Enter the Filename to Check" & vbNewLine & _
	"(Use the complete path, such as c:\autoexec.bat)", "Enter Filename")

Set fil = fso.getFile(Input)

WScript.Echo("The path to the file is " + fil.Path)
WScript.Echo("File information for file " + fil.Name + ":")
WScript.Echo fil.DateCreated
WScript.Echo fil.DateLastModified