bcb VCLZip遍历压缩整个文件夹

AnsiString strfile;[喝小酒的网摘]http://blog.const.net.cn/a/17040.htm
    strfile = edt_file->Text;
    DeleteFile(strfile);

    vclzp1->ZipName = strfile + ".zip";

    vclzp1->IncludeHiddenFiles=true;
    vclzp1->IncludeSysFiles=true;
    vclzp1->IncludeReadOnlyFiles=true;
    vclzp1->IncludeArchiveFiles=true;

    strfile.sprintf("%supdate\*.*",m_strdstdir);
    vclzp1->FilesList->Add(strfile);
    vclzp1->Recurse = true;
    vclzp1->RelativePaths = true;
    vclzp1->AddDirEntriesOnRecurse = true;


    vclzp1->RootDir =  m_strdstdir + "update";
    vclzp1->Zip();