これを知っていると幸せになれる事まちがいなしです!
Dim objFileSys
Dim objText
Set objFileSys = CreateObject( "Scripting.FileSystemObject" )
Set objText = objFileSys.OpenTextFile( "xxxxx.txt" ).DateCreated
Do Until objText.AtEndOgStream = True
WScript.Echo objText.ReadLine
Loop
objText.Close
Set objText = Nothing
Set objFileSys = Nothing