VB School Assignment? Project Due Tomorrow? Chat LIVE With A Programming Expert!

Welcome to Dream.In.Code
Become a VB Expert!

Join 300,511 VB Programmers for FREE! Get instant access to thousands of VB experts, tutorials, code snippets, and more! There are 1,921 people online right now. Registration is fast and FREE... Join Now!




Accessing the files in a compressed folder

 

Accessing the files in a compressed folder

Lcubed

30 Dec, 2008 - 06:46 AM
Post #1

New D.I.C Head
*

Joined: 30 Dec, 2008
Posts: 1



Thanked: 1 times
My Contributions
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


User is offlineProfile CardPM
+Quote Post


reyben_89

RE: Accessing The Files In A Compressed Folder

2 Jan, 2009 - 08:07 AM
Post #2

D.I.C Head
**

Joined: 30 Nov, 2008
Posts: 60



Thanked: 2 times
My Contributions
i think you cannot access that file in the compressed mode because in my experience the file found in the compress mode will save temporalily in temp folder if you don't decopress it.
User is offlineProfile CardPM
+Quote Post

Fast ReplyReply to this topicStart new topic

Time is now: 11/8/09 05:12AM

Live VB Help!

Be Social

Dream.In.Code RSS Feed Dream.In.Code LinkedIn Group Follow Us On Twitter Fan Us On Facebook

VB Tutorials

Reference Sheets

VB Snippets

DIC Chatroom

Bye Bye Ads

Monthly Drawing

Thumb Drive

Top Contributors

Top 10 Kudos This Month