VB自定义FolderExists函数判断文件夹及目录是否存在例子代码

VB自定义FolderExists函数判断文件夹及目录是否存在例子代码是小编为大家分享的一个VB判断文件夹是否存在的实例源码，有兴趣的朋友别错过了，一块来详细了解下吧。

函数名称：函数：FolderExists

功能：判断文件夹是否存在

参数描述：sFolder—文件路径

运行结果：存在返回True，否则返回False。

函数代码如下：

Public Function FolderExists(sFolder As String) As Boolean
    Dim WFD As WIN32_FIND_DATA
    Dim lResult As Long
    lResult = FindFirstFile(sFolder, WFD)
    If lResult <> INVALID_HANDLE_VALUE Then
        If (WFD.dwFileAttributes And FILE_ATTRIBUTE_DIRECTORY) = FILE_ATTRIBUTE_DIRECTORY Then
            FolderExists = True
        Else
            FolderExists = False
        End If
    End If
    Call FindClose(lResult)
End Function