路徑下尋找檔案並修改名稱

smartpearl

下面是我寫的部分
希望在開啟excel檔案後就可自動搜尋路徑下檔案名稱為*Daily*的檔案,並自動修改黨名為AAA,
但試了之後以只有錯誤訊息出現,麻煩幫幫我這個初學者

Private Sub workbook_open()

With Application.FileSearch
    .NewSearch
    .LookIn = "\\nas\aa"               '在這個路逕裡尋找
    .Filename = "Daily"              '尋找的檔名
    .MatchTextExactly = False         '字串不需完全符合
    .FileType = msoFileTypeAllFiles   '檔案型態不限
    .SearchSubFolders = True          '在子目錄裡也要找
   
    If .Execute > 0 Then
      
        For i = 1 To .FoundFiles.Count
            
            Worksheets("sheet1").Cells(i, 1) = .FoundFiles(i)
        Next i
   
    End If

End With

End Sub

kimbal

回復 1# smartpearl

application.filesearch 在office 2007 已經退役, 可以用DIR的方法
換檔名可用 NAME ... AS ... 的方法

1. 
   
2. Sub test()
   
3.     Dim sFolder As String, sSearch As String
   
4.     Dim sTemp As String
   
5.    
   
6.     sFolder = "\\nas\aa\"
   
7.     sSearch = "*daily*"
   
8.    
   
9.     sTemp = Dir(sFolder & sSearch)
   
10.    
    
11.     Do While sTemp <> ""
    
12.         Name sFolder & sTemp As sFolder & Replace(sTemp, "daily", "AAA", 1, -1, vbTextCompare)
    
13.         sTemp = Dir
    
14.     Loop
    
15. End Sub

複製代碼