軟體:excel
版本:2010
原本有一個巨集是透過Application.FileSearch搜尋檔案
但更新成2010後此功能不再被支援
本身不是相關科系，雖然從網路上的文章有自己修改過
但還是一直無法成功
所以想請教以下要如何修正成2010可用，希望可以獲得幫助謝謝
Set fs = Application.FileSearch
With fs
.LookIn = mapNetDriver(strEquipment, strIP)
.Filename = strFileName
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
For i = 1 To .FoundFiles.Count
Debug.Print strReadFile(.FoundFiles(i))
FileCopy .FoundFiles(i), Cells(2, 7).Value & strEquipment &
"_" & strReadFile(.FoundFiles(i)) & Mid(.FoundFiles(i), 4, Len(.FoundFiles
(i)) - 3)
Next i
strMSG = "File Find!"
Else
strMSG = "No File!"
End If
End With
Cells(intIndex + 1, 4).Value = strMSG