VB怎么判断某一文件夹中是否有某一个文件

[yarui0301]

我想先判断一下在pic文件夹里面有没有文件j.jpg，如果有，就在image里面加载j.jpg，如果没有就加载(j+1).jpg,j是整数。
该怎么实现呢？？

[舉杯邀明月]

用Dir$()函数可以找指定目录下有没有匹配的文件.

[用户 昵称]

dir就可以

[firefly-cn]

可以使用Dir函数
dir函数的语法结构为:Member Function Dir[(Pathname[,attributes])] As String
例如：
查找某个文件是否存在
filenames = Dir("c:\image\j.jpg", vbNormal)
if filenames = "" then
msgbox "File not found!"
end if

[用户 昵称]

if dir( 路径 & "pic\j.jpg" ) <> "" then
'有

[qiu5208]

一个简单的方法

Private Sub Command1_Click()
On Error GoTo er:

 Dim i As Integer
 Dim path As String
 path = "c:\pic\"
 Image1.Picture = LoadPicture(path & Str(i) & ".jpg")

Exit Sub
er:
 i = i + 1
 If i > 10000 Then Exit Sub '如个找了一万张图片都没有的话，则退出
 Resume

End Sub

[东方之珠]

用API函数或者FSO均可。

[东方之珠]

API: FindFirstFile,FindFileInPath,FindFileInSearchPath都可以

[zmrok]

Dim i As Integer
Dim path As String
path = "c:\pic\"
for i=1 to 10000
path = "c:\pic\" + trim(str(i))+".jpg"
if dir(path,vbNormal)<>"" then
Image1.Picture = LoadPicture(path)
exit for
end if
next

[嗷嗷叫的老马]

DIR一下.

[barenx]

dir 或者 open 或者createFile