返回列表 上一主題 發帖

[發問] 如何快速尋找類似名稱資料夾

巴克斯

帖子
32 
主題
9 
精華
0 
積分
122 
點名
0  
作業系統
WINXP 
軟體版本
Office XP 
閱讀權限
20 
性別
男 
註冊時間
2010-5-14 
最後登錄
2024-3-20 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2012-10-26 06:00 | 只看該作者

[發問] 如何快速尋找類似名稱資料夾

請問各位先進
因為常常要到固定的資料夾下,尋找子資料夾
ex:   c:\test\   下有1000個不同名稱的子資料夾
        要獲取相關字頭a0001的 a0001-01,a0001-02, a0001-03等資料夾名稱("-"後面的文字不定)

有嘗試參考http://www.excelpx.com/home/show.aspx?id=34736&cid=15
用    With CreateObject("Scripting.FileSystemObject").GetFolder(RtFolder)
        For Each nlFolder In .subfolders
               if nlFolder.name like "a0001*" then .....
來尋找列出資料夾名稱
可是因為子資料夾太多,常常要尋找很久

請問有較快的方法嗎?
例如:如果我直接用檔案總管開c:\test\
         然後逐一輸入a,就會跳到a排序資料夾位置
         再輸入0,會很快跳到a0排序資料夾位置
         以此類推,找到a0001-01資料夾位置很快

是否有類似方法快速列出類似名稱之資料夾列表,謝謝
收藏 分享

GBKEE

帖子
5923 
主題
13 
精華
1 
積分
5986 
點名
0  
作業系統
win10 
軟體版本
Office 2010 
閱讀權限
150 
性別
男 
來自
台灣基隆 
註冊時間
2010-5-1 
最後登錄
2022-1-23 

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
2#
發表於 2012-10-26 07:02 | 只看該作者
回復 1# 巴克斯
修改一下 VBA: Dir 函數範例  試試看
  1. Option Explicit
  2. Sub Ex()
  3.     Dim MyPath As String, MyName As String, xi As Integer
  4.     MyPath = "C:\TEST\"           ' 指定路徑。
  5.     MyName = Dir(MyPath, vbDirectory)       ' 找尋第一個子目錄。
  6.     Do While MyName <> ""           ' 執行迴圈。
  7.         If MyName <> "." And MyName <> ".." Then
  8.             If GetAttr(MyPath & MyName) = vbDirectory And MyName Like "a0001*" Then
  9.                 xi = xi + 1
  10.                 Cells(xi, "A") = MyName
  11.             End If
  12.         End If
  13.         MyName = Dir                ' 尋找下一個目錄。
  14.     Loop
  15. End Sub
複製代碼

TOP

巴克斯

帖子
32 
主題
9 
精華
0 
積分
122 
點名
0  
作業系統
WINXP 
軟體版本
Office XP 
閱讀權限
20 
性別
男 
註冊時間
2010-5-14 
最後登錄
2024-3-20 
3#
發表於 2012-10-26 07:43 | 只看該作者
回復 2# GBKEE


    謝謝GBKEE 版主
      感覺速度有快很多了:D

TOP

        靜思自在 : 有心就有福，有願就有力，自造福田，自得福緣。
返回列表 上一主題