直接拷贝备份项目文件夹,如
Dim fName = "d:\" & format(Date.now, "yyyyMMddHHmmss")FileSys.CopyDirectory(projectpath, fname, True)Dim zip As New zipFilezip.Create(fname & ".zip")zip.AddFolder(fname)zip.Close()