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

访客只能看到部份内容，免费 加入会员 或由脸书 Google 可以看到全部内容

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

我使用的是VB6

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

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

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

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

下面是引用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

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

可以给我1ㄍ范例吗 大大

奇怪了,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
=========================================================
你的问题真的太难了,只有三仙"能"回答.

图 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 <> ".."
来跳过目前的目录及上层目录
会不会比较好

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

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

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

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

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

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

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


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

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

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

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

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

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

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

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

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

以上拙见，还烦请指教