これを知っていると幸せになれる事まちがいなしです!
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