Cannot zip properly

Hello everybody,

I have the same problem as described in
http://groups.google.de/group/microsoft.public.vb.general.discussion/browse_thread/thread/aef2035839e64c2b/2dcf50488c99fdba?lnk=st&q=VB%2Bzip%2Brecurse&rnum=2&hl=de#2dcf50488c99fdba

Although Mark Alexander Bertenshaw seems to have found his solution, I
haven't found mine yet. My problem is the following:

This is the code I use:
Private WithEvents m_cZ As cZip

With m_cZ
.ClearFileSpecs
.BasePath = "D:\Visual Basic\MyDB\MyDBFolder\"
.ZipFile = "C:\ZipTest.zip"
.RecurseSubDirs = True
.StoreDirectories = True
.StoreFolderNames = True
.AddFileSpec "D:\Visual Basic\MyDB\MyDBFolder\*.*"
.Zip
End With

I want to zip the files in the folder "D:\Visual
Basic\MyDB\MyDBFolder". This code does that but it adds the full folder
structure to the zip file:
Visual Basic--->MyDB--->MyDBFolder--->Subfolders....

However, I only want to zip the files and subfolders in "MyDBFolder":
MyDBFolder--->Subfolders...

No matter what I try, I simply can't get the program to do what I want.
Can anyone help me?

Greetings,
Jack

(For the people who read the thread mentioned above: I have set the
m_tZPOPT.fRecurse to 1)

.

Relevant Pages

  • ls help?? true folder size other than 512
    ... I'm trying best to figure out how to use ls to see the folder size, ... including any subfolders. ... All I get is the 512 block no matter what. ... need to use another command? ...
    (comp.os.linux.misc)
  • Problem with xcacls.vbs
    ... xcacls.vbs doesn´t show me if the inheritance-flag is set on a folder or ... The output is always the same ("This Folder, Subfolders and Files"), no ... matter if the flag is set or not. ...
    (microsoft.public.win2000.security)
  • RE: Disappearing Network Share Subfolders
    ... Thank you for posting to the SBS Newsgroup. ... I understand that some of your Windows XP SP2 clients cannot view the ... subfolders in share folders on SBS 2K Server. ... Does the problematic share folder locate at NTFS or FAT32 disk? ...
    (microsoft.public.windows.server.sbs)
  • Re: Read path from text file to process directory structure
    ... Public Function fGetFolder(sFolderName As String) ... Dim FoldersArray As Variant ... 'Read all subfolders of the specified folder into an array ... 'The following string will contain the path of the folder which is currently ...
    (microsoft.public.word.vba.general)
  • Re: NTFS Permissions Question
    ... Answer is, modify includes delete, but not delete subfolders and files. ... subfolder(s) when delete is not inherited from the parent folder. ... with just the permission you need. ...
    (microsoft.public.cert.exam.mcse)