'Script Start
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder("C:\")
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
'Script End
How to execute a VBScript
No comments:
Post a Comment