返回列表 上一主題 發帖

listbox如何filter檔案?

回復 1# herhsiu
  1. fs = Dir("D:\*")
  2. Do Until fs = ""
  3.   ListBox1.AddItem Left(fs, InStr(fs, ".") - 1)
  4.   fs = Dir
  5. Loop
複製代碼
學海無涯_不恥下問

TOP

        靜思自在 : 盡多少本份,就得多少本事。
返回列表 上一主題