我該如何尋找 一個資料夾內 ..

訪客只能看到部份內容，免費 加入會員 或由臉書 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的論點來講

以上拙見，還煩請指教