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