ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

listbox¦p¦ófilterÀÉ®×?

¦^´_ 1# herhsiu
  1. fs = Dir("D:\*")
  2. Do Until fs = ""
  3.   ListBox1.AddItem Left(fs, InStr(fs, ".") - 1)
  4.   fs = Dir
  5. Loop
½Æ»s¥N½X
¾Ç®üµL²P_¤£®¢¤U°Ý

TOP

        ÀR«ä¦Û¦b : ­n¤ñ½Ö§ó¨ü½Ö¡D¤£­n¤ñ½Ö§ó©È½Ö¡C
ªð¦^¦Cªí ¤W¤@¥DÃD