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

[µo°Ý] VBA DIR ½Ð±Ð

[µo°Ý] VBA DIR ½Ð±Ð

¤j¤j­Ì §Ú·Q°Ý°Ý ¦bª©¤W §ä¨ì¥H¤UªºDIR »yªk


Sub file()

abc = ThisWorkbook.Path



    Dim myFolder As String, myFile As String
    Dim i As Integer
    myFolder = abc & "\31931777_20S0514_Del 31931777_2\"
    myFile = Dir(myFolder & "*.txt")                    <--------°ÝÃD1   ¯à¥H¦h±ø¥ó  ¨Ò¦p *.red or blue.txt ¨Ó¨ú±o ¶Ü   
   
   
    i = 1
    Do While myFile <> ""
        Cells(i, 1).Value = myFile
        myFile = Dir()
        i = i + 1
    Loop


End Sub



°ÝÃD¦³2­Ó :
1.½Ð°Ý¦p¦ó ³q¹LÀɦW ©Î ÀÉ®×Ãþ«¬  §ä¦h¹L¤@­Óªº ÀÉ®× (¨Ò¦pÀɮצW ¦³ red ©Î YELLOW  ¨Ó¨ú±o ?
2. ½Ð°Ý¯à³q¹L¥H¤Wªº»yªk ¨Ó¬d§ä ¤l¥Ø¿ý¶Ü

ÁÂÁ¦U¦ì¤j¤j

        ÀR«ä¦Û¦b : ±o²z­nÄǤH¡A²zª½­n®ð©M¡C
ªð¦^¦Cªí ¤W¤@¥DÃD