ªð¦^¦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 : µÊ®ð¼L¤Ú¤£¦n¡A¤ß¦a¦A¦n¤]¤£¯àºâ¬O¦n¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD