VB 版 (精华区)

发信人: zxfsnow (希望的春天), 信区: VB
标  题: 如何创建新的目录
发信站: 哈工大紫丁香 (2000年06月05日12:51:06 星期一), 转信

发信人: Keri (呵呵2000), 信区: VB
标  题: 如何创建新的目录
发信站: 虎踞龙盘东南站 (Sat Jan  8 22:15:34 2000), 转信

The following code can be used to create an entire directory tree if it is
missing:
Declare Function MakeSureDirectoryPathExists _
    Lib "IMAGEHLP.DLL" (ByVal DirPath As String) As Long
Sub CreatePath(MyPath As String)
Dim bResult As Integer
    bResult = MakeSureDirectoryPathExists(MyPath)
    If bResult = 0 Then
        MsgBox "MakeSureDirectoryPathExists Failed."
    Else
        MsgBox MyPath & " created."
    End If
End Sub


--
※ 来源:．虎踞龙盘东南站 sbbs.seu.edu.cn．[FROM: bbs.njupt.edu.cn]


--

 以科计为本,以产业报国!
  超越自我,飞跃无限!
  

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.235.249]