文件夹是否存在

清风明月名字

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



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

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

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

   
End Function

328302216

这还要币才能看...

badgirl010

用Dir很简单