怎么自动搜索文件夹 - VB6论坛

编程论坛 → 开发语言 → 『 VB6论坛』 → 怎么自动搜索文件夹

欢迎加入我们，一同切磋技术

共有 851 人关注过本帖

标题：怎么自动搜索文件夹

只看楼主加入收藏

121038

等　级：新手上路
威　望：2
帖　子：414
专家分：0
注　册：2005-8-3

得分:0

最好的教程还是MSDN

2007-02-16 19:17

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

得分:0

那个不知道从那里看起啊。。。。超多

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-02-16 21:42

昨天

等　级：新手上路
帖　子：66
专家分：6
注　册：2006-7-12

得分:0

引用:
Private Sub File1_Click()
Image1.Picture = LoadPicture(File1.Path + "\" + File1.FileName)
End Sub

这很简单的啊!!不要什么事都依赖别人~~基础知识要学好

那怎么显示打开的文本呢?
谢谢啦

Open Sourse

2007-02-16 22:47

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

得分:0

Private Sub File1_Click()
Image1.Picture = LoadPicture(File1.Path + "\" + File1.FileName)
End Sub

这个代码有点问题的哦其他盘就不可以显示只能显示C盘的

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-02-16 23:05

b13690976754

等　级：新手上路
威　望：2
帖　子：835
专家分：7
注　册：2006-11-9

得分:0

If File1.ListCount > 0 Then
File1.ListIndex = 0
Else
Image1.Picture = LoadPicture("")
Image1.Visible = False
End If
错在你的判断。。。

If Dir(\"alive\") <> \"\" And Dir(\"ideal\") <> \" Then Print \"strive\" End If

2007-02-16 23:26

快速回复：怎么自动搜索文件夹