標題: listbox如何filter檔案? [打印本頁]

---

作者: herhsiu    時間: 2010-7-28 22:57     標題: listbox如何filter檔案?

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

---

作者: Hsieh    時間: 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

複製代碼

---

作者: kimbal    時間: 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

複製代碼

---

作者: GBKEE    時間: 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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)