Hi.
I am compressing regularly scheduled backup files. Using VBScript, I want to programmatically compare the modified date of the files in the compressed folder with the date of the original files before removing the originals. When I try accessing a file in the compressed folder using the same method as accessing a file in a regular folder, I get a VBS runtime error, "file not found" (800A0035) on line 11. Is there a way to do this?
Thanks.
Here is my code so far.
CODE
Option Explicit
dim objshell
dim objFSO1
dim objFile1
dim objFSO2
dim objFile2
Set objShell = CreateObject("Shell.Application")
Set objFSO1 = CreateObject("Scripting.FileSystemObject")
Set objFile1 = objFSO1.GetFile("e:\Jantek\1-Tuesday-FULL-Jantek.bkf")
Set objFSO2 = CreateObject("Scripting.FileSystemObject")
Set objFile2 = objFSO2.GetFile("e:\Jantek.zip\1-Tuesday-FULL-Jantek.bkf")
if objFile2.DateLastModified = objFile1.DateLastModified then
msgbox "yes"
else
msgbox "no"
end if