Sub ShowFolderInfo(folderspec) Dim fs, f, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) s = f.DateCreated MsgBox s End Sub Description