VB FSO自动生成N层目录!

最新推荐文章于 2024-05-24 13:12:44 发布

swhrzl

最新推荐文章于 2024-05-24 13:12:44 发布

阅读量412

点赞数

CC 4.0 BY-SA版权

分类专栏： VB 文章标签： vb function string

本文链接：https://blog.youkuaiyun.com/swhrzl/article/details/3922817

VB 专栏收录该内容

1 篇文章

订阅专栏

本文介绍了一个使用VBA编写的公共函数PublicFunctionSoCPath，该函数用于检查并创建指定的文件夹路径。如果路径不存在，则会递归创建所有缺失的文件夹。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Public Function SoCPath(DirPath As String) As Boolean
If DirPath = "" Then SoCPath = False: Exit Function
Dim fso As New FileSystemObject
Dim TmpPath, TmpDrive, TmpDirPath As String
Dim TmpArr() As String
Dim I As Integer
If fso.DriveExists(Left(DirPath, 1) & ":") = False Then MsgBox "此计算机并没有" & UCase(Left(DirPath, 1)) & "盘!": SoCPath = False: Exit Function
If fso.Drives(Left(DirPath, 1)).DriveType = CDRom Then MsgBox "此盘符为光驱,请勿选择!": SoCPath = False: Exit Function
TmpDrive = Left(DirPath, 3)
TmpPath = Replace(DirPath, TmpDrive, "")
If Right(TmpPath, 1) = "/" Then TmpPath = Left(TmpPath, Len(TmpPath) - 1)
TmpArr = Split(TmpPath, "/")
For I = 0 To UBound(TmpArr)
If I = 0 Then TmpDirPath = TmpDrive & TmpArr(I) Else TmpDirPath = TmpDirPath & "/" & TmpArr(I)
If fso.FolderExists(TmpDirPath) = False Then MkDir TmpDirPath
Next
SoCPath = True
End Function