返回列表 上一主題 發帖

[發問] VBA DIR 請教

[發問] VBA DIR 請教

大大們 我想問問 在版上 找到以下的DIR 語法


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")                    <--------問題1   能以多條件  例如 *.red or blue.txt 來取得 嗎   
   
   
    i = 1
    Do While myFile <> ""
        Cells(i, 1).Value = myFile
        myFile = Dir()
        i = i + 1
    Loop


End Sub



問題有2個 :
1.請問如何 通過檔名 或 檔案類型  找多過一個的 檔案 (例如檔案名 有 red 或 YELLOW  來取得 ?
2. 請問能通過以上的語法 來查找 子目錄嗎

謝謝各位大大

        靜思自在 : 虛空有盡.我願無窮,發願容易行願難。
返回列表 上一主題