清风明月名字 发表于 2013-6-22 09:13:03

文件夹是否存在

Public Function 文件夹是否存在(文件夹完整名称 As String)



'我知道原因了，是函数如何不能获得完整路径，它就以为我用的是宏所在路径。很多函数都是这样默认的，才造成上述问题。
Dim FS, A
Set FS = CreateObject("Scripting.FileSystemObject")
Dim B As New 正则计算, c
c = B.包含正则内容吗(文件夹完整名称, "^:", 1)

If c = False Then
文件夹是否存在 = "不是文件夹完整名称"
Exit Function
Else

文件夹是否存在 = FS.FolderExists(文件夹完整名称)
If 文件夹是否存在 Then
    文件夹是否存在 = "文件夹存在"
    Else
    文件夹是否存在 = "可能是文件夹完整名称但不存在"
End If


End If

   
End Function

328302216 发表于 2013-9-3 14:22:20

这还要币才能看...

badgirl010 发表于 2013-9-12 16:32:05

用Dir很简单
页: [1]
查看完整版本: 文件夹是否存在