寻找资料夹

我该如何寻找 一个资料夹内 ..

访客只能看到部份内容，免费 加入会员

x0

下面是引用w791212w于2008-08-03 14:54发表的 寻找资料夹:
我该如何寻找 一个资料夹内 或 一个硬碟 的资料夹呢?
我看书都是找档案的。

我使用的是VB6

1.我该如何寻找 一个资料夹内 或 一个硬碟 的资料夹呢?
ANS.你想要如何的寻找??点选寻找??关键字寻找??
2.我看书都是找档案的。
ANS.看书??那你有试写程式码??是不是可以PO上来看哪里改一下就好呢??
3.我使用的是VB6
ANS.我也是用VB6

x0

下面是引用三仙于2008-08-03 20:35发表的 :
 

1.我该如何寻找 一个资料夹内 或 一个硬碟 的资料夹呢?
ANS.你想要如何的寻找??点选寻找??关键字寻找??
2.我看书都是找档案的。
ANS.看书??那你有试写程式码??是不是可以PO上来看哪里改一下就好呢??
3.我使用的是VB6
ANS.我也是用VB6

假设:要寻找D:\ 全部的资料夹要怎写??

x0

下面是引用w791212w于2008-08-03 20:49发表的 :
假设:要寻找D:\ 全部的资料夹要怎写??

由于提问方式太简单
所以回答方式也简单

1.用物件Drive + Dir 写
2.或用以下四个 Function 写
Private Declare Function SHBrowseForFolder Lib "shell32" _
(lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32" _
(ByVal pidList As Long, ByVal lpBuffer As String) As Long
Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _
(ByVal lpString1 As String, ByVal lpString2 As String) As Long
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
(ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long

x0

下面是引用三仙于2008-08-03 21:27发表的 :
 
由于提问方式太简单
所以回答方式也简单
1.用物件Drive + Dir 写
2.或用以下四个 Function 写
.......

可以给我1ㄍ范例吗 大大

x0

奇怪了,BASIC那么简单的初学者程式语言,怎么还会有问题呢?
这位高手,你是看了那一本书呢?即然有提到找档案,那怎么不会
找[资料夹]呢? 有三仙回答你了.

即然你有看书,那么那本书会提到这些东西.
VB6有个"档案系统控制项",里面有个"目录清单方块",你也可以
对其"字串"做处理,会得你要的[资料夹].

要范例喔!...
=========================================================
shell "dir/s/a d:\*.* > $$&&.$&&"
open "$$&&.$&&" for input as #1
do while not eot(1)
input #1, nn$: line%=line%+1
loop
dim file$(line%)
close
if
...
字串处理...
...
end if
=========================================================
底下的也不是VB6耶!...被那些引数吓到了....

Public Class Form1

  Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim allfile As String

    allfile = Dir("d:\", vbDirectory)
    Do While allfile <> ""

        If (GetAttr("d:\" & allfile) And vbDirectory) = vbDirectory Then
          TextBox1.Text &= allfile + vbCrLf
        End If
        allfile = Dir()
    Loop
  End Sub
End Class
=========================================================
你的问题真的太难了,只有三仙"能"回答.

x0

图 1.
1.用物件Drive + Dir 写的画面
图 2.
2.用四个 Function 写的画面

下面是引用mixccc于2008-08-04 22:54发表的 :
=========================================================
shell "dir/s/a d:\*.* > $$&&.$&&"
open "$$&&.$&&" for input as #1
do while not eot(1)
input #1, nn$: line%=line%+1
loop
dim file$(line%)
close
if
...
字串处理...
...
end if
=========================================================
底下的也不是VB6耶!...被那些引数吓到了....

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  Dim allfile As String

  allfile = Dir("d:\", vbDirectory)
  Do While allfile <> ""

    If (GetAttr("d:\" & allfile) And vbDirectory) = vbDirectory Then
      TextBox1.Text &= allfile + vbCrLf
    End If
    allfile = Dir()
  Loop
End Sub
End Class
=========================================================
.......

本来想
用方法一或方法二
不知道能不能解决问题

没想到 mixccc 会用 dir 跑 loop
上面程式码改一下在VB6也是可以 run 的
还有TextBox 的 MultiLine 要设定一下

想请问一下mixccc
如果用 If allfile <> "." And allfile <> ".."
来跳过目前的目录及上层目录
会不会比较好

x0

下面是引用三仙于2008-08-05 00:56发表的 :
 

本来想
用方法一或方法二
不知道能不能解决问题

没想到 mixccc 会用 dir 跑 loop
上面程式码改一下在VB6也是可以 run 的
还有TextBox 的 MultiLine 要设定一下

想请问一下mixccc
如果用 If allfile <> "." And allfile <> ".."
来跳过目前的目录及上层目录
会不会比较好

那位高手要范例嘛!就随便打了一些,至于会带出啥米[资料夹]?
就没有去看了. 高手应该会处理才对!! 呵~~~

要改成什么,都可以的,只是例子而以.
高手要的是[寻找资料夹]! 可能是要找某个[资料夹]喔!
秀出那一堆[资料夹],可能回答是错的!!!

x0

下面是引用mixccc于2008-08-05 21:10发表的 :


那位高手要范例嘛!就随便打了一些,至于会带出啥米[资料夹]?
就没有去看了. 高手应该会处理才对!! 呵~~~

要改成什么,都可以的,只是例子而以.
高手要的是[寻找资料夹]! 可能是要找某个[资料夹]喔!
秀出那一堆[资料夹],可能回答是错的!!!

1.会带出啥米[资料夹]?
A.也是全部，但可以改成找"某个"
2.只是例子而以
A.客气了，例子很完整；我也学习到了，谢谢!
3.可能是要找某个[资料夹]
A.我觉得也是"某个"
4.秀出那一堆[资料夹],可能回答是错的
A.所以我才觉得我的方法是错的

x0

下面是引用三仙于2008-08-05 00:56发表的 :

想请问一下mixccc
如果用 If allfile <> "." And allfile <> ".."
来跳过目前的目录及上层目录
会不会比较好

我不是mixccc XD..不过看到有人提这问题..就顺便回一下

我这边处理是用C++去做的，不过目前仿间找到的大部分都是用"."以及".."去跳过目前及上层目录。

虽然都是C++的范例，但原理应该是大同小异。

由于VB荒废很久了，所以就不以VB的论点来讲

以上拙见，还烦请指教

x0

下面是引用mixccc于2008-08-04 22:54发表的 :
奇怪了,BASIC那么简单的初学者程式语言,怎么还会有问题呢?
这位高手,你是看了那一本书呢?即然有提到找档案,那怎么不会
找[资料夹]呢? 有三仙回答你了.
即然你有看书,那么那本书会提到这些东西.
VB6有个"档案系统控制项",里面有个"目录清单方块",你也可以
.......

看不懂-.-

x0

下面是引用w791212w于2008-08-06 13:41发表的 :

看不懂-.-

看
不懂
看不懂
是该看不懂
就从提问方式；到求问精神!!
是该看不懂
看不懂
不懂
看

x0

下面是引用totsi于2008-08-06 08:59发表的 :


我不是mixccc XD..不过看到有人提这问题..就顺便回一下

我这边处理是用C++去做的，不过目前仿间找到的大部分都是用"."以及".."去跳过目前及上层目录。

虽然都是C++的范例，但原理应该是大同小异。

由于VB荒废很久了，所以就不以VB的论点来讲

以上拙见，还烦请指教

嗯嗯! 我是mixccc XD..即然这么喜欢点点..就顺便来看一下
"dot" 和 "dot dot"代表啥米意思,那已经是一种规定了!!
跟程式语言的论点没有关系!!!

在MS的OS里或各种Unix/Linux的意思,也是相同的.
cd ..
cp ~/home/*.gif ../../etc/.

我就是那一个NN年前,老师考Java SE可以open book,
却带一本C去应试的人.

以上低手的多话,不吝指教.

x0

下面是引用三仙于2008-08-06 22:05发表的 :
 

看
不懂
看不懂
是该看不懂
就从提问方式；到求问精神!!
是该看不懂
看不懂
不懂
看

三仙骂人,呵~~~
不要气了,他看的书,可能真的很奇怪.
他的回答也是意料中,由他了吧!

不然你用程式,要回圈喔!
写出上面的排例字 ^^

x0

图 1.

下面是引用mixccc于2008-08-06 22:15发表的 :
三仙骂人,呵~~~
不要气了,他看的书,可能真的很奇怪.
他的回答也是意料中,由他了吧!

不然你用程式,要回圈喔!
写出上面的排例字 ^^

To mixccc:
用程式要回圈写是写出来了
但觉得这样也行哦 ^^"

x0

下面是引用三仙于2008-08-07 00:54发表的 :
 

To mixccc:
用程式要回圈写是写出来了
但觉得这样也行哦 ^^"

言归正传啦.....

x0

下面是引用w791212w于2008-08-09 08:00发表的 :

言归正传啦.....

mixccc 不是在五楼帮你解了吗??
程式码改一下 vb6 也可以 run 呀!!
还是要我帮你改成 vb6 的 code

x0

下面是引用三仙于2008-08-09 14:25发表的 :
 

mixccc 不是在五楼帮你解了吗??
程式码改一下 vb6 也可以 run 呀!!
还是要我帮你改成 vb6 的 code

能给我ㄍ范例ㄇ??

x0

图 1.


还真的要我帮你改程式
请问五楼的程式码你真的不懂吗??
须要帮你备注每行的意义吗??
希望mixccc 不要怪我代庖 帮你改成 vb6 的 code

下面是引用w791212w于2008-08-12 20:42发表的 :
能给我ㄍ范例ㄇ??

...................................................

ps.请以后不要用注音文
我很讨厌
连选字都很懒得选的人

x1

下面是引用三仙于2008-08-12 22:12发表的 :
还真的要我帮你改程式
请问五楼的程式码你真的不懂吗??
须要帮你备注每行的意义吗??
希望mixccc 不要怪我代庖 帮你改成 vb6 的 code


...................................................

ps.请以后不要用注音文
我很讨厌
连选字都很懒得选的人

对不起大哥 我错了
因为太急了...
不过我成功了感谢喔

x0

下面是引用w791212w于2008-08-13 20:56发表的 :

对不起大哥 我错了
因为太急了...
不过我成功了感谢喔

很高兴你成功了
你应该感谢的其实是mixccc
毕竟我祇是借花而已

x0