主题：[求助]自动备份项目

如今硬盘空间够大，根本无需考虑这个问题。
偶尔手工删除一下老的备份文件就行。
 
如果要自动化，在BeforeCloseProjct事件中设置代码：
 
Syscmd.Project.Backup("c:\data",True)
For Each f As String In filesys.GetFiles("c:\data")
    Dim Info As New FileInfo(f)
    If Info.CreationTime.AddDays(10) < Date.Today Then
        filesys.DeleteFile(f)
    End If
Next
 
这样每次退出前，就会自动备份，并删除10天前的备份。