‘删除数据库文件和临时文件
　　
　　DeleteDIR（strTemp + “\TempDB”）
　　
　　DeleteDIR（“c：\TempDB”）
　　
　　End Sub
　　
　　Private Function DeleteDIR（ByVal path As String） As Boolean
　　
　　‘删除指定的文件夹
　　
　　Dim dir As System.IO.Directory
　　
　　If dir.Exists（path） = True Then dir.Delete（path， True）
　　
　　End Function
　　
　　Private Function CreatDIR（ByVal path As String） As Boolean
　　
　　‘创建指定的文件夹
　　
　　Dim Files As System.IO.File
　　
　　Dim Dirs As System.IO.Directory
　　
　　Try
　　
　　If Dirs.Exists（“c：\TempDB”） = False Then Dirs.CreateDirectory（“c：\TempDB”）
　　
　　‘copy Creat DB files
　　
　　CopyFile（path + “\TempDB”， “C：\TempDB”）
　　
　　Return True
　　
　　Catch
　　
　　Return False
　　
　　End Try
　　
　　End Function
　　
　　Private Sub CopyFile（ByVal SourceDirName As String， ByVal DestDirName As String）
　　
　　‘copy指定的文件夹的所有文件到目标文件夹（单层）。
　　
　　Dim dir As System.IO.Directory
　　
　　Dim File As System.IO.File
　　
　　Dim sPath， oPath As String
　　
　　Dim I As Integer
　　
　　For I = 0 To dir.GetFiles（SourceDirName）。Length – 1
　　
　　sPath = dir.GetFiles（SourceDirName）。GetValue（i）。ToString
　　
　　oPath = Microsoft.VisualBasic.Right（sPath， Len（sPath） – Len（SourceDirName））
　　
　　File.Copy（sPath， DestDirName + oPath， True）
　　
　　Next
　　
　　End Sub
　　
　　Private Function InstallDB（ByVal path As String） As Boolean
　　
　　‘安装数据库，调用自动批处理。
　　
　　''Dim CheckedDir As System.IO.Directory
　　
　　''If CheckedDir.Exists（“C：\Program Files\Microsoft SQL Server\MSSQL\Data”） = False Then
　　
　　''CheckedDir.CreateDirectory（“C：\Program Files\Microsoft SQL Server\MSSQL\Data”）
　　
　　''End If
　　
　　Try
　　
　　Shell（“c：\TempDB\Restore.bat”， AppWinStyle.Hide， True）
　　
　　Catch
　　
　　End Try
　　
　　End Function
　　
　　然后，在你的工程中添加一个安装工程，取名为MySetup1，按照正常的步骤添加工程输出（Project Output），选择输出文件（primary output）和内容文件（content files）两项，再添加文件夹到application Folder，文件夹的Name为TempDB，再给文件夹TempDB添加文件：osql.exe，Restore.bat，Restore.txt，TruckDB（数据库文件）。设定你的文件夹的properties的AlwaysCreate为True.对你的Setup工程进行编译。
　　
　　这时，生成的安装包，将会在安装完程序后，自动调用Installer类的方法，恢复你的TruckDB数据库。
　　
　　注意，TruckDB在生成的时候，应该备份保存到“C：\Program Files\Microsoft SQL Server\MSSQL\Data\”下，便于恢复。