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

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  下一页