Hi keepITcool

McAfee
A few years ago McAfee start deleting my mail in my inbox.
Since then I use another program, first Norton and now Trend Micro.

I test your code and try to update the site this evening

Thanks for the feedback


--
Regards Ron de Bruin
http://www.rondebruin.nl


"keepITcool" wrote in message .com...
Hi Ron,

Finally a solution on using XPs compressed folders!

However McAfee VirusScan was complaining on your NewZip procedure.
Apparently FSO's CreateTextFile is suspect!

Here's my alternative, which McAfee allows without complaints
(shorter and simpler too)

Sub NewZip(sPath)
'Create empty Zip File
If Len(Dir(sPath)) 0 Then Kill sPath
Open sPath For Output As #1
Print #1, Chr$(80) & Chr$(75) & Chr$(5) & Chr$(6) & String(18, 0)
Close #1
End Sub

Sub newziptest() '
Call NewZip("c:\test.zip")
End Sub


HTH

--
keepITcool
| www.XLsupport.com | keepITcool chello nl | amsterdam


Ron de Bruin wrote :

Hi Pete

If you are a WinZip user try
http://www.rondebruin.nl/unzip.htm

If you use Windows Xp zip program
http://www.rondebruin.nl/windowsxpzip.htm