如题,不要用File system object里的那个,function FolderExists(Byval sFolder as string) as booleanend function

Function FolderExists(ByVal sFolder As String) As BooleanIf Dir(sFolder, vbDirectory) = "" Then FolderExists = FalseElse FolderExists = TrueEnd IfEnd FunctionPrivate Sub Form_Click()MsgBox IIf(FolderExists("f:\123"), "folder exit", "folder not exit")End Sub

非常感谢

我在测试时发现这个function有时的结果是错误的.

最好不要用VB的dir来判断一个文件或文件夹的存在。如果传递给它的是个空值。则返回当前文件夹的第一个文件或目录。如果文件或文件夹带属性有时会识别不到。比如system、hidden;需要在在参数上加上。如果不用fso可以考虑使用API;GetShortPathName；Public Function PathIsExist(ByVal FilePath As String) As Boolean Dim szNameBuff As String*MAX_PATH FileExist=GetShortPathName(FilePath,szNameBuff,MAX_PATH)>0 Functionpeng_s6

3q

Private Declare Function PathFileExists Lib "shlwapi.dll" Alias "PathFileExistsA" (ByVal pszPath As String) As Long这个才是真正的判断文件/文件夹是否存在的API~~~~~~