引用 | 編輯
三仙
2008-08-03 20:35 |
1樓
▲ ▼ |
下面是引用w791212w於2008-08-03 14:54發表的 尋找資料夾: 1.我該如何尋找 一個資料夾內 或 一個硬碟 的資料夾呢? ANS.你想要如何的尋找??點選尋找??關鍵字尋找?? 2.我看書都是找檔案的。 ANS.看書??那你有試寫程式碼??是不是可以PO上來看哪裡改一下就好呢?? 3.我使用的是VB6 ANS.我也是用VB6 x0 |
引用 | 編輯
w791212w
2008-08-03 20:49 |
2樓
▲ ▼ |
下面是引用三仙於2008-08-03 20:35發表的 : 假設:要尋找D:\ 全部的資料夾要怎寫?? x0 |
引用 | 編輯
三仙
2008-08-03 21:27 |
3樓
▲ ▼ |
下面是引用w791212w於2008-08-03 20:49發表的 : 由於提問方式太簡單 所以回答方式也簡單 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 |
引用 | 編輯
w791212w
2008-08-03 22:42 |
4樓
▲ ▼ |
下面是引用三仙於2008-08-03 21:27發表的 : 可以給我1ㄍ範例嗎 大大 x0 |
引用 | 編輯
mixccc
2008-08-04 22:54 |
5樓
▲ ▼ |
奇怪了,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 |
引用 | 編輯
三仙
2008-08-05 00:56 |
6樓
▲ ▼ |
圖 1. 1.用物件Drive + Dir 寫的畫面 圖 2. 2.用四個 Function 寫的畫面 下面是引用mixccc於2008-08-04 22:54發表的 : 本來想 用方法一或方法二 不知道能不能解決問題 沒想到 mixccc 會用 dir 跑 loop 上面程式碼改一下在VB6也是可以 run 的 還有TextBox 的 MultiLine 要設定一下 想請問一下mixccc 如果用 If allfile <> "." And allfile <> ".." 來跳過目前的目錄及上層目錄 會不會比較好 x0 |
引用 | 編輯
mixccc
2008-08-05 21:10 |
7樓
▲ ▼ |
下面是引用三仙於2008-08-05 00:56發表的 : 那位高手要範例嘛!就隨便打了一些,至於會帶出啥米[資料夾]? 就沒有去看了. 高手應該會處理才對!! 呵~~~ 要改成什麼,都可以的,只是例子而以. 高手要的是[尋找資料夾]! 可能是要找某個[資料夾]喔! 秀出那一堆[資料夾],可能回答是錯的!!! x0 |
引用 | 編輯
三仙
2008-08-05 23:33 |
8樓
▲ ▼ |
下面是引用mixccc於2008-08-05 21:10發表的 : 1.會帶出啥米[資料夾]? A.也是全部,但可以改成找"某個" 2.只是例子而以 A.客氣了,例子很完整;我也學習到了,謝謝! 3.可能是要找某個[資料夾] A.我覺得也是"某個" 4.秀出那一堆[資料夾],可能回答是錯的 A.所以我才覺得我的方法是錯的 x0 |
引用 | 編輯
totsi
2008-08-06 08:59 |
9樓
▲ ▼ |
下面是引用三仙於2008-08-05 00:56發表的 : 我不是mixccc XD..不過看到有人提這問題..就順便回一下 我這邊處理是用C++去做的,不過目前仿間找到的大部分都是用"."以及".."去跳過目前及上層目錄。 雖然都是C++的範例,但原理應該是大同小異。 由於VB荒廢很久了,所以就不以VB的論點來講 以上拙見,還煩請指教 x0 |
引用 | 編輯
w791212w
2008-08-06 13:41 |
10樓
▲ ▼ |
下面是引用mixccc於2008-08-04 22:54發表的 : 看不懂-.- x0 |
引用 | 編輯
三仙
2008-08-06 22:05 |
11樓
▲ ▼ |
下面是引用w791212w於2008-08-06 13:41發表的 : 看 不懂 看不懂 是該看不懂 就從提問方式;到求問精神!! 是該看不懂 看不懂 不懂 看 x0 |
引用 | 編輯
mixccc
2008-08-06 22:07 |
12樓
▲ ▼ |
下面是引用totsi於2008-08-06 08:59發表的 : 嗯嗯! 我是mixccc XD..即然這麼喜歡點點..就順便來看一下 "dot" 和 "dot dot"代表啥米意思,那已經是一種規定了!! 跟程式語言的論點沒有關係!!! 在MS的OS裡或各種Unix/Linux的意思,也是相同的. cd .. cp ~/home/*.gif ../../etc/. 我就是那一個NN年前,老師考Java SE可以open book, 卻帶一本C去應試的人. 以上低手的多話,不吝指教. x0 |
引用 | 編輯
mixccc
2008-08-06 22:15 |
13樓
▲ ▼ |
下面是引用三仙於2008-08-06 22:05發表的 : 三仙罵人,呵~~~ 不要氣了,他看的書,可能真的很奇怪. 他的回答也是意料中,由他了吧! 不然你用程式,要迴圈喔! 寫出上面的排例字 ^^ x0 |
引用 | 編輯
w791212w
2008-08-09 08:00 |
15樓
▲ ▼ |
下面是引用三仙於2008-08-07 00:54發表的 : 言歸正傳啦..... x0 |
引用 | 編輯
三仙
2008-08-09 14:25 |
16樓
▲ ▼ |
下面是引用w791212w於2008-08-09 08:00發表的 : mixccc 不是在五樓幫你解了嗎?? 程式碼改一下 vb6 也可以 run 呀!! 還是要我幫你改成 vb6 的 code x0 |
引用 | 編輯
w791212w
2008-08-12 20:42 |
17樓
▲ ▼ |
下面是引用三仙於2008-08-09 14:25發表的 : 能給我ㄍ範例ㄇ?? x0 |