' Collection of code snippets by Arne Vajhøj ' posted to eksperten.dk, usenet and other places (2002-now) Set fso = CreateObject("Scripting.FileSystemObject") Set tfs = fso.CreateTextFile("res.txt") Set f = fso.GetFile("stat.vbs") tfs.WriteLine "size=" & f.Size tfs.WriteLine "date=" & f.DateLastModified tfs.Close Set f = Nothing Set tfs = Nothing Set fso = Nothing