創建一個空數據庫

函數CreateNormalDB(strPathName As String)爲Boolean
On Error GoTo Exit _ ERR
Dim wrk default As Workspace
Dim NewDB As Database

CreateNormalDB = False
Set wrk default = DBEngine。work spaces(0)
If Dir(str pathname)"" Then Kill str pathname
Set NewDB = wrk default。CreateDatabase(strPathName，dbLangGeneral)

NewDB。Close
Set NewDB = Nothing

CreateNormalDB = True
退出函數

Exit_ERR:
MsgBox"備份失敗！"& vbCrLf & vbCrLf &呃。描述，VB感歎號
退出函數
結束函數

調用時衹需提供路逕和文件名。此功能是備份數據模塊的一部分

位律師廻複