[求助]请问如何知道某个目录是否存在某个文件？

zjcar

我想知道某个目录是否存在某个图像文件（如0002.jpg），如果存在就把它的路径和文件名存入“照片路径”字段，如果不存在，就在“照片路径”字段中存入一个固定的值，应该怎么办？谢谢！

sea.er

以前看到过的一段代码：

Function fIsFileDIR(stPath As String, _
                    Optional lngType As Long) _
                    As Integer
'Fully qualify stPath
'To check for a file
'   ?fIsFileDIR("c:\winnt\win.ini")
'To check for a Dir
'   ?fIsFileDir("c:\msoffice",vbdirectory)
'
    On Error Resume Next
    fIsFileDIR = Len(Dir(stPath, lngType)) > 0
End Function

wangxin1978

去看看“FileSearch 对象”吧！

土豆

用DIR判断返回值就行了

hamletl

Set fso = CreateObject("Scripting.FileSystemObject")
Filename = "c:\aaa\bbb.txt"
If fso.FileExists(Filename) Then
   MsgBox ("FILE,EXIST")
Else
   MsgBox ("NOFILE")
End If

hamletl

你可以改成 filename=path & "0002.jpg"
if fso.exists(filename)=false then
  filename=path & "ABSENT.jpg"
endif
我以前的一个产品报价程序就是这样做的。
如果暂时没照相，就出现一个图片暂无的提示。