|
分類:[.NET 全般]
ｅｘｃｅｌ２００３〜ｅｘｃｅｌ２０１３にしましたら
それまで使っていたツールが動かなくなりました。
ＦｉｌｅＳｅａｒｃｈが使えません。
ＦｉｌｅｓｙｓｔｅｍＯｂｊｅｃｔを使えばよいそうなのですが
どのように直せばよいのか分かりません。
下記のものなのですが、お時間を頂ける方がおられましたらお教えください。
誠に恐縮ですが、よろしくお願いいたします。
Function File_Search() ' ファイル検索
Open_SW = "OK"
Set fs = Application.FileSearch
j = Cnt(0)
Do Until j = 0
With fs
.LookIn = Left(TL_Path, Cnt(j)) '検索するフォルダのセット
.SearchSubFolders = True 'フォルダ配下のフォルダ内も検索する
.Filename = WK_Name '検索するファイル名のセット
If (.Execute < 1) And (j = 1) Then '検索出来たファイル数が０以下のときは、エラー
MsgBox "【 " & WK_Name & " 】 対象ファイルなし " & Chr(10) & Chr(10) & _
"対象ファイルを準備後、処理して下さい。"
Open_SW = "Error"
Exit Function
End If
If .Execute > 0 Then '検索出来たファイル数が１以上のとき
For i = 1 To .Execute '検索出来たファイル中に、同名ファイルが存在した場合、フォルダのパスをセット
If "\" & .Filename = Right(.FoundFiles(i), 17) Then
WK_Path = .FoundFiles(i)
Exit Do
End If
Next
End If
End With
j = j - 1
Loop
End Function
補足
|