Dim dlg As new SaveFileDialog dlg.Filter = "压缩文件|*.zip" dlg.FileName = format(Date.now, "yyyyMMddHHmmss") & ".zip" If dlg.ShowDialog = DialogResult.OK Then Dim zip As New zipFile zip.Create(dlg.FileName) zip.AddFile(ProjectPath & "外部数据源.mdb") zip.Close() End If