dtDate = "5/2/2005" strSearchFolder = "C:Windows" Set objFSO = CreateObject("Scripting.FileSystemObject") WScript.Echo "File(s) last accessed on: " & dtDate & " in: " & strSearchFolder EnumAndCheckFiles objFSO.GetFolder(strSearchFolder), dtDate Sub EnumAndCheckFiles(objFolder, dtDate) Set objFiles = objFolder.Files For Each objFile in objFiles CheckFile objFile, dtDate Next For Each objSubfolder in objFolder.SubFolders EnumAndCheckFiles objSubfolder, dtDate Next End Sub Sub CheckFile(objFile, dtDate) If DateDiff("d", objFile.DateLastAccessed, dtDate) = 0 Then WScript.Echo objFile.Path End if End Sub
This post may contain affiliated links. When you click on the link and purchase a product, we receive a small commision to keep us running. Thanks.
Great stuff. Keep it up.
I have been working in IT for quite some time but have almost solely used bat/cmd files for scripting. Is there something special to getting a VB script to work? Thanks. Sorry for seeming stupid?
You need to use an admin account to run the script. You can run the vbscript in a command prompt window by typing: