返回列表 上一主題 發帖

listbox如何filter檔案?

herhsiu

帖子
47 
主題
12 
精華
0 
積分
70 
點名
0  
作業系統
WIN7 
軟體版本
2007 
閱讀權限
20 
性別
男 
來自
TAIWAN 
註冊時間
2010-7-28 
最後登錄
2021-12-1 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-7-28 22:57 | 只看該作者

listbox如何filter檔案?

使用listbox來顯示某目錄下的檔案,目錄下檔名有 .filename 跟 filename,沒有附檔名,該如何把.filename濾除只顯示filename?
收藏 分享

Hsieh

帖子
4901 
主題
44 
精華
24 
積分
4916 
點名
277  
作業系統
Windows 7 
軟體版本
Office 20xx 
閱讀權限
150 
性別
男 
來自
台北 
註冊時間
2010-4-30 
最後登錄
2024-12-23 

2023年全勤獎章2022虎年全勤獎章2021牛年全勤獎章2020鼠年全勤獎章2019 豬年全勤獎章2018 狗年全勤獎章2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱心公益勳章2011兔年全勤獎章
2#
發表於 2010-7-29 00:08 | 只看該作者
回復 1# herhsiu
  1. fs = Dir("D:\*")
  2. Do Until fs = ""
  3.   ListBox1.AddItem Left(fs, InStr(fs, ".") - 1)
  4.   fs = Dir
  5. Loop
複製代碼
學海無涯_不恥下問

TOP

kimbal

帖子
472 
主題
5 
精華
0 
積分
485 
點名
0  
作業系統
Windows 
軟體版本
MS Office 
閱讀權限
100 
性別
男 
來自
香港 
註冊時間
2010-7-4 
最後登錄
2014-12-28 

論壇貢獻勳章
3#
發表於 2010-7-29 00:14 | 只看該作者
回復 1# herhsiu
  1. Dim fso
  2. Set fso = CreateObject("Scripting.FileSystemObject")
  3. Dim fld
  4. Dim fil
  5. Set fld = fso.GetFolder("C:\Temp")
  6. For Each fil In fld.Files
  7.   List1.AddItem Left(fil.Name, Len(fil.Name) - InStr(1, StrReverse(fil.Name), "."))
  8. Next
  9. Set fil = Nothing
  10. Set fld = Nothing
  11. Set fso = Nothing
複製代碼
懂得發問,答案就會在其中

今日の一秒は  明日にない
http://kimbalko-chi.blogspot.com
http://kimbalko.blogspot.com

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
4#
發表於 2010-7-29 16:21 | 只看該作者
回復 1# herhsiu
  1. Sub Ex()
  2.     Dim Fs, Fi
  3.     Set Fs = CreateObject("Scripting.FileSystemObject")
  4.     For Each Fi In Fs.GetFolder("D:\Test").Files
  5.         List1.AddItem Fs.GetBaseName(Fi)
  6.     Next
  7.     Set Fs = Nothing
  8. End Sub
複製代碼

TOP

        靜思自在 : 口說好話、心想好意、身行好事。
返回列表 上一主題