利用网络共享目录,复制文件,利用数据库指令备份数据库文件。可用于小型网站服务器的备份。设定每天定时操作!省事 Private Sub Form_Load() TMFile = Format(Now(), "yyyymmddhhmmss") Me.Visible = False Timer1.Interval = 60000 isback = False ConnsString = "driver={SQL Server};server=192.168.0.20;database=master;uid=sa;pwd=;connection=adConnec