如何判断一个文件是文件还是文件夹??紧急

[lzy5042]

如何判断一个文件是文件还是文件夹??紧急

[lzy5042]

抱歉..都试过了.但是都不对.
因为:
----------------如何判断一个文件是文件还是文件夹??紧急----------
判断是文件还是文件夹...
不是判断文件或者文件夹是否存在

[lzy5042]

继续UP..谁来帮忙??

[lzy5042]

还有没有方法???

[griefforyou]

Private Function FolderExist(FolderName) As Boolean
On Error GoTo ErrHandler
If Dir(FolderName, vbDirectory) <> "" Then
If Dir(FolderName) <> "" Then
If Len(FolderName) = 3 Or Len(FolderName = 2) Then
FolderExist = True
End If
Else
FolderExist = True
End If
End If
Exit Function
ErrHandler:
FolderExist = False
End Function

[daviddivad]

Dir FileName, vbDirectory
Dir FileName, vbNormal

[_TMG_]

Dir(FolderName, vbDirectory) <> "" -> Folder
Dir(FolderName, vbNormal) <> "" -> File

[zyl910]

是文件夹 = (GetAttr(……)And vbDirectory)

[lingfeng_314]

'判断文件是否存在
Function ReportFileStatus(filespec)
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists(filespec)) Then
msg = filespec & " 存在。"
Else
msg = filespec & " 不存在。"
End If
ReportFileStatus = msg
End Function
'判断文件夹是否存在
Function ReportFolderStatus(fldr) As Integer
Dim fso, msg
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FolderExists(fldr)) Then
msg = fldr & " 存在。"
Else
msg = fldr & " 不存在。"
End If
ReportFolderStatus = msg
End Function