Don't feel intimidated by what you don't know. Ask your question anonymously. It's easy! Learn more and upgrade.
Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.BrowseForFolder (0, "Select The Folder To Enumerate :", (0)) If objFolder Is Nothing Then Wscript.Quit Else Set objFolderItem = objFolder.Self objPath = objFolderItem.Path End If Set objFso = CreateObject("Scripting.FileSystemObject") Set objFolder = objFso.GetFolder(objPath) For each objFolder.SubFolders in objFolder Next For each objFile in objFolder.Files if objFile.DateLastModified < Date()-8 Then msgBox "Found file: " & objFile.Name End If Next
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.