VB创建多级目录

概述'========================================================================='创建日期： 2011-06-17，hellostory'函数说明： 创建多级目录'参数说明： 多级目录的路径名'=============================================================

'========================================================================='创建日期： 2011-06-17，hellostory'函数说明： 创建多级目录'参数说明： 多级目录的路径名'=========================================================================Public Function createMultiLevelFolder(path As String) As BooleanOn Error GoTo errHandlerDim index As Integer,tempPath As StringcreateMultiLevelFolder = FalseIf Len(Trim(path)) = 0 Then Exit FunctionEnd Ifindex = InStr(1,path,"/")do while index > 0 tempPath = left(path,index) '这里index（“/”所在的位置）可视为要截取的字符长度 If tempPath = "//" Then '对“//”后面的主机名或IP不处理 index = InStr(index + 1,"/") Else If Dir(tempPath,vbDirectory) = "" Then MkDir tempPath End If End If index = InStr(index + 1,"/") '返回下一个“/”的位置LoopcreateMultiLevelFolder = TrueerrHandler: If Err.Number Then MsgBox "创建多级目录（" & path & "）时出错：" & Err.Description,vbinformation,"错误" createMultiLevelFolder = False Resume Next End IfEnd Function

总结

以上是内存溢出为你收集整理的VB创建多级目录全部内容，希望文章能够帮你解决VB创建多级目录所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。