软件: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