未用API完成的全盘搜索~~只比666老是慢了2秒!~还支持多路径多文件
vb吧
全部回复
仅看楼主
level 1
冰麟轻武 楼主
2007年11月25日 04点11分 1
level 1
冰麟轻武 楼主
发错图
2007年11月25日 04点11分 2
level 1
冰麟轻武 楼主
这张
2007年11月25日 04点11分 3
level 1
冰麟轻武 楼主
Dim mydi(4) As String, filx As String, LUJIN() As String, i, mydir() As StringList1.Clearmydi(0) = "c"mydi(1) = "d"mydi(2) = "e"mydi(3) = "f"filx = "*.EXE;*.TXT"mydir = 搜索文件夹(mydi())mydir = 搜索文件(mydir(), filx)For i = 0 To UBound(mydir)List1.AddItem mydir(i)Next
2007年11月25日 04点11分 4
level 1
冰麟轻武 楼主
拿去基本不用改什么,拿到就好用了!!~~*^_^*
2007年11月25日 04点11分 5
level 0
218.22.218.*
建议你搜索时把listbox隐藏速度更快!
2007年11月25日 06点11分 6
level 1
冰麟轻武 楼主
我只是跟666老师的做一个对比他都显示 我不显示不是很不公平吗?
2007年11月25日 06点11分 7
level 1
小生怕鬼
发个过来看看谢谢[email protected]
2007年11月25日 07点11分 8
level 0
218.22.218.*
[email protected]谢谢
2007年11月25日 07点11分 9
level 0
218.22.218.*
[email protected]谢谢
2007年11月25日 07点11分 10
level 0
218.22.218.*
我是6楼的…………楼主可能没明白我的意思…………我的意思是说你搜索文件时ListBox的Visible属性是不是True的？我建议你先改成False的再搜索，速度会更快！~~~~
2007年11月25日 08点11分 11
level 1
冰麟轻武 楼主
是你没有理解我的意思我用的全部都是变量最后赋值给listbox的没有用listbox直接记录数据
2007年11月25日 09点11分 12
level 1
冰麟轻武 楼主
mydir = 搜索文件夹(mydi()) mydir = 搜索文件(mydir(), filx) For i = 0 To UBound(mydir) List1.AddItem mydir(i) Next 代码还看不明白吗
2007年11月25日 09点11分 13
level 1
冰麟轻武 楼主
邮件发送成功！·邮件已通过卡巴斯基杀毒引擎扫描·邮件已成功发出[email protected] 添加到通讯录 [email protected] 添加到通讯录 [email protected] 添加到通讯录
2007年11月25日 09点11分 14
level 0
218.22.218.*
[email protected]
2007年11月25日 09点11分 15
level 2
低调纪念
嘿，我也要，能给我份吗？[email protected]
2007年11月25日 09点11分 16
level 0
218.22.218.*
希望看到，全部代码，学习，谢谢了[email protected]
2007年11月25日 11点11分 17
level 2
血腥蓝
顶[email protected]
2007年11月25日 13点11分 18
level 0
218.22.218.*
[email protected]
2007年11月25日 14点11分 19
level 1
冰麟轻武 楼主
邮件发送成功！·邮件已通过卡巴斯基杀毒引擎扫描·邮件已成功发出[email protected] 添加到通讯录 [email protected] 添加到通讯录 [email protected] 添加到通讯录 [email protected] 添加到通讯录 [email protected] 添加到通讯录 [email protected] 添加到通讯录 [email protected] 添加到通讯录 [email protected] 添加到通讯录 之前收到的朋友我也重发了,之前的有bug
2007年11月25日 23点11分 20
1 2 3 尾页