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

yarui0301 2008-03-26 09:19:00
我想先判断一下在pic文件夹里面有没有文件j.jpg,如果有,就在image里面加载j.jpg,如果没有就加载(j+1).jpg,j是整数。
该怎么实现呢??
...全文
194 点赞 收藏 10
写回复
10 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
barenx 2008-03-29
dir 或者 open 或者createFile
回复
DIR一下.
回复
zmrok 2008-03-26
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


回复
东方之珠 2008-03-26
API: FindFirstFile,FindFileInPath,FindFileInSearchPath都可以
回复
东方之珠 2008-03-26
用API函数或者FSO均可。
回复
qiu5208 2008-03-26
一个简单的方法

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
回复
if dir( 路径 & "pic\j.jpg" ) <> "" then
'有
回复
firefly-cn 2008-03-26
可以使用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
回复
dir就可以
回复
舉杯邀明月 2008-03-26
用Dir$()函数可以找指定目录下有没有匹配的文件.
回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7489

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-03-26 09:19
社区公告
暂无公告