主题：如何备份

备份

Dim dlg As new SaveFileDialog
dlg.Filter = "压缩文件|*.zip"
dlg.FileName = format(Date.now, "yyyyMMddHHmmss") & ".zip"
If dlg.ShowDialog = DialogResult.OK Then
    FileSys.CopyDirectory(ProjectPath, "d:\test")
    Dim zip As New zipFile
    zip.Create(dlg.FileName)
    zip.AddFolder("d:\test")
    zip.Close()
End If

还原

Dim dlg As new OpenFileDialog
dlg.Filter = "压缩文件|*.zip"
If dlg.ShowDialog = DialogResult.OK Then
    Dim zip As New zipFile
    zip.Open(dlg.FileName)
    zip.ExtractAll(ProjectPath)
    zip.Close()
    msgbox("已恢复")
    'Application.restart
End If

3、不是可以设置的么？

http://www.foxtable.com/webhelp/scr/2729.htm

没看到你上传的图片，请正确上传。