用VB编写自动备份文件程序 -------------------------------------- Public Sub BackupFile(Filename As String, Drive As String, Folder As String) Dim Fso As New FileSystemObject '创建 FSO 对象实例 Dim Dest_path As String, Counter As Long Dim StrDay As String, StrMonth As String, NewFilename As String Counter = 0 Do While Counter ":" Then Drive = Drive & ":" End If If Left(Folder, 1) <> "\" Then Folder = "\" & Folder End If If Right(Folder, 1) <> "\" Then Folder = Folder & "\" End If If Day(Date) Delay Loop End Sub Private Sub Form_Load() BackupFile "filename", "d:", "filebackupdir" End End Sub。
答：在每次退出之后，在其正常的状态下。手工备份就可以了。如果你自动备的是打不开的，你又如何使用。详情>>
问：快过年了，盗号的很多大家小心，昨天一女的加我，外地的我给删除了，晚上就显示异地登...
答：如果加一下就能被盗号了也太可怕了啊。详情>>
答：有可能你的系统不是正版的,是正版的才可以下载更新.详情>>
