| |
ｅｘｃｅｌ２００３〜ｅｘｃｅｌ２０１３にしましたら
それまで使っていたツールが動かなくなりました。
ＦｉｌｅＳｅａｒｃｈが使えません。
ＦｉｌｅｓｙｓｔｅｍＯｂｊｅｃｔを使えばよいそうなのですが
どのように直せばよいのか分かりません。
下記のものなのですが、お時間を頂ける方がおられましたらお教えください。
誠に恐縮ですが、よろしくお願いいたします。
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 & " 】 対象ファイルなし" _
& vbCr & vbCr _
& "対象ファイルを準備後、処理して下さい。"
Open_SW = "Error"
Exit Function
ElseIf .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
書き換えをお願いできないでしょうか。
よろしくお願いいたします。
|
|
佐藤 小次郎
- 14/8/12(火) 23:15 -
