当前位置: 源码素材网 » VB教程 » 详情页

Visual Basic 6.0 创建多级目录 用函数实现

  •   时间:2019-10-06
  • 概述:生成目录

Vb6.0用一个自定义函数创建生成多层级的目录(文件夹),函数名称:CreateDir,函数描述:path——目录路径:

'功能:创建多级目录
Public Function CreateDir(sPath As String) As String
    Dim strLine() As String
    Dim I As Integer
    Dim Str As String
    On Error Resume Next
    CreateDir = sPath
    strLine = Split(sPath, "\")
    For I = 0 To UBound(strLine)
        Str = Str & strLine(I) & "\"
        MkDir (Str)
    Next
End Function

本函数执行成功返回True,否则返回False。

    相关声明:

      若“Visual Basic 6.0 创建多级目录 用函数实现”有损您的权益,请告之我们删除内容。
      部分文章来源于网络,版权归原作者所有。