尋找資料夾

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

訪客只能看到部份內容，免費 加入會員

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