‘删除指定的文件夹

        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”

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