返回列表 上一主題 發帖

listbox如何filter檔案?

回復 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

        靜思自在 : 做該做的事是智慧,做不該做的事是愚癡。
返回列表 上一主題