OK, presumably you have a string someplace with the ZIP files name in it. This code below may help

Dim FileID as long

fileid=freefile
open "c:\zipfiles\" & filename & ".txt" for output as fileid
print #fileid, {The information you want to enter}
close #fileid

Hope this helps

Chri