ZIP - create blank zip and copy file to

[scottohum]

i am trying to zip a file yousing the function shown at the end of this thread:

http://www.tek-tips.com/viewthread.cfm?qid=1231429

i have tried the first part to crate the blank zip but i get error on line5 char1 saying path not found.

Set Ag=Wscript.Arguments
username = CreateObject("Wscript.Shell")_
.Environment("Process")("username")
Set fso = CreateObject("Scripting.FileSystemObject")
Set ts = fspenTextFile("c:\test1\"&UserName &" "&Date()&".zip", 8, vbtrue)
BlankZip = "PK" & Chr(5) & Chr(6)
For x = 0 to 17
BlankZip = BlankZip & Chr(0)
Next
ts.Write BlankZip
set objFolder = nothing
set objShell = nothing
Set fso = nothing
Set ts = nothing


Can someone give me some help and indication as to why i am getting this error.

Many thanks

S

 

[PHV]

why i am getting this error
Because the Date() function returns illegal characters for a pathname ...

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886