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”)

上一页  [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]  ...  下一页 >>