Office中国论坛/Access中国论坛

标题: [求助]请问如何知道某个目录是否存在某个文件？ [打印本页]

---

作者: zjcar    时间: 2004-4-13 18:25
标题: [求助]请问如何知道某个目录是否存在某个文件？
我想知道某个目录是否存在某个图像文件（如0002.jpg），如果存在就把它的路径和文件名存入“照片路径”字段，如果不存在，就在“照片路径”字段中存入一个固定的值，应该怎么办？谢谢！

---

作者: sea.er    时间: 2004-4-13 18:32
以前看到过的一段代码：

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    时间: 2004-4-16 23:15
去看看“FileSearch 对象”吧！

---

作者: 土豆    时间: 2004-4-17 00:16
用DIR判断返回值就行了

---

作者: hamletl    时间: 2004-4-17 01:18
Set fso = CreateObject("Scripting.FileSystemObject")
Filename = "c:\aaa\bbb.txt"
If fso.FileExists(Filename) Then
   MsgBox ("FILE,EXIST")
Else
   MsgBox ("NOFILE")
End If

---

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

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3