' ***************************************************************
' * fileinfo.vbs          By Vittorio Pavesi (www.vittorio.tk) 	*
' *								* 
' * Show file information for every files in C:\Temp     	*
' ***************************************************************

Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("C:\Temp")
For Each file In f.Files
	MsgBox file.Name
	MsgBox file.DateCreated
	MsgBox file.DateLastAccessed
	MsgBox file.DateLastModified
	MsgBox file.Path
	MsgBox file.ShortName
	MsgBox file.ShortPath
	MsgBox file.Size
Next