|So far I have a script that is showing me the last modified file in a particular path. I now want to say if files with today's date exist move them to another folder, and if not popup a message box that says no Updates. This is what I have so far.|
Set objFSO = CreateObject("Scripting.FileSystemObject")
FolderToScan = "c:\"
Set objFolder = objFSO.GetFolder(FolderToScan)
NewestFile = ""
NewestDate = Date
For Each objFile In objFolder.Files
If objFile.DateLastModified > NewestDate Then
NewestDate = objFile.DateLastModified
NewestFile = objFile.Name