请教：如何自动搜索某盘符下文件。

wyh99999　发表于：2010-06-16 17:10:57 　

复制

下面的代码是根据图片路径在窗体或报表中显示图片的。但路径为空时，则不显示（因无图片链接）。

Dim strPath As String

strPath = CurrentProject.Path & "\图片\" & Me.图片地址

If Dir(strPath) <> "" Then

        Me.Image4.Picture = strPath
    Else
        Me.Image4.Picture = ""
    End If

我的问题是：字段中不要路径，只有图片文件名，怎样的探索语句，但探索到图片文件为真时，就显示图片。

（先前，我在贵坛中看到一个把图片文件保存到不同文件夹中，此实例中好像有这方面的）

请老师给出实例为谢。

Top

andymark 发表于：2010-06-16 17:32:23

没有路径,全盘搜索　不实际

Top

煮江品茶发表于：2010-06-16 17:33:06

增加引用：Microsoft Scripting Runtime

Dim myFSO As New FileSystemObject
Dim strPath As String
strPath = CurrentProject.Path & "\图片\" & Me.图片地址
If myFSO.FolderExists(strpath) = True then
Me.Image4.Picture = strPath
Else
Me.Image4.Picture = ""
End If

Top

煮江品茶发表于：2010-06-16 17:35:52

应该是myFSO.FileExists(strpath)

Dim myFSO As New FileSystemObject
Dim strPath As String
strPath = CurrentProject.Path & "\图片\" & Me.图片地址
If myFSO.FileExists(strpath) = True then
Me.Image4.Picture = strPath
Else
Me.Image4.Picture = ""
End If

Top

wyh99999 发表于：2010-06-16 20:02:55

谢谢老师的回复。

Top

wyh99999 发表于：2010-06-16 20:05:34

myFSO.FileExists(strpath) = True 中的“myFSO.FileExists”是什么意思，请指教。

Top

煮江品茶发表于：2010-06-18 09:50:04

判断字符串表示的文件名称的文件是否存在。如果存在则判断的值为ture，否则为false。

Top

wyh99999 发表于：2010-06-18 12:34:32

谢谢！

Top

总记录：7篇页次：1/1 9 1 :

Access交流中心

请教：如何自动搜索某盘符下文件。