怎么判断文件夹或者文件已经存在

[penghongjie]

怎么判断文件夹或者文件已经存在？

[rainstormmaster]

if dir(文件路径)<>"" then
存在
end if

[yinweihong]

if DIR(file)
if dir(folder,vbdirectory)

[Dogfish]

FileSystemObject

FS.fileexists(filename) = true or false

[3q2008Com]

判断文件是否打开
Public Function IsFileOpen(sFile As Variant) As Boolean
Dim fFile As Integer
Dim msg As String
fFile = FreeFile()
On Error GoTo ErrOpen
Open sFile For Binary Lock Read Write As fFile
Close fFile
Exit Function
ErrOpen:

If Err.Number <> 70 Then
msg = "Error # " & Err.Number & " was generated by " _
& Err.Source & Chr(13) & Err.Description
MsgBox msg, , "Error", Err.HelpFile, Err.HelpContext
Else
IsFileOpen = True
End If
End Function

[zpsinz]

楼上是正解。。
还可以判断文件夹
dim objFSO as new filesystemobject
objfso.floderexists(文件夹绝对路径)

[yangfengcl]

第一种
Private fso As New FileSystemObject
If fso.FileExists("c:\wallpaper.jpg") = True Then
Msgbox"文件存在!"
Else
Msgbox"文件不存在!"
Endif

第二种
if dir(文件路径)<>"" then
msgbox"存在"
else
msgbox"不存在"
end if

[xDAVIDx]

Dir(文件名),如果返回值为"",则不存在;若不为"",则存在.