databackup.bas

本人开发的商业财务软件

Attribute VB_Name = "backup"
'李树永 QQ 82341763
'Email:[e-mail]
Option Explicit


Public Function DataBackup(dlgCommonDialog As CommonDialog) As Boolean
    DataBackup = False
       
    'Dim dlgCommonDialog As CommonDialog
 '   Set dlgCommonDialog = CommonDialog
    Dim sFile As String
    Dim DataFile As String
    
    DataFile = App.Path & "\data.mdb"
    
    sFile = "Data" & Format(Date, "yyyymmdd") & ".mdb"
    With dlgCommonDialog
        .DialogTitle = "打开"
        .CancelError = False
        'ToDo: 设置 common dialog 控件的标志和属性
        .Filter = "所有文件 (*.mdb)|*.mdb"
        .FileName = sFile
        .ShowSave
        sFile = .FileName
    End With
    
        If Len(dlgCommonDialog.FileName) = 0 Then
            Exit Function
        End If
    'ToDo: 添加处理打开的文件的代码
    
    If sFile = "" Then
        Exit Function
    End If
    
    pubConn.Close
    
    FileCopy DataFile, sFile
    
    initApp
    
    
    DataBackup = True
    
End Function