您的位置:首页 > 其它

使用 MakeSureDirectoryPathExists 迅速建立多级目录

2009-12-27 01:08 585 查看
Private Declare Function MakeSureDirectoryPathExists Lib "imagehlp.dll" (ByVal strPath As String) As Long

Private Function MakeMultiDirectory(ByVal strNewDirectory As String) As Boolean
On Error Resume Next
Dim strPath As String
strPath = strNewDirectory & IIf(Right(strNewDirectory, 1) = "/", "", "/")
If MakeSureDirectoryPathExists(strPath) <> 0 Then
MakeMultiDirectory = True
End If
End Function
内容来自用户分享和网络整理,不保证内容的准确性,如有侵权内容,可联系管理员处理 点击这里给我发消息
标签: 
相关文章推荐