ªð¦^¦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 : ¤Hªº¤ß¦a¬O¤@²¥¥Ð¡A¤g¦a¨S¦³¼½¤U¦nºØ¤l¡A¤]ªø¤£¥X¦nªºªG¹ê¡C -
ªð¦^¦Cªí ¤W¤@¥DÃD