ªð¦^¦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 : ¡i¦æµ½­n¤Î®É¡j¦æµ½­n¤Î®É¡A¥\¼w­n«ùÄò¡C¦p¿N¶}¤ô¤@¯ë¡A¥¼¿N¶}¤§«e¤d¸U¤£­n°±º¶¤õ­Ô¡A§_«h­«¨Ó´N¤Ó¶O¨Æ¤F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD