VBA資料にてエラーが出てしまう

Question

VBAで資料を作成しています。
フォルダをフルパスで指定をして
その中に入っているすべてのテキストファイルの
中から、特定のキーワードが入っている文字列を
抜出たいと考えています。

###発生している問題・エラーメッセージ
フォルダをフルパスで指定しその中のすべてのテキストを
指定する方法がわかりません。

エラーメッセージ
オブジェクトはプロパティまたはメソッドをサポートしていません。

###該当のソースコード
Sub SerchPath()
'

Dim i As Integer
Dim filepath As String

Dim line As Variant 'ファイルの1行毎を配列として格納する変数
Dim outpos As Long '出力セル開始位置

outpos = 10 '10行目から書き出し
filepath = Range("C4").Value '☆

Dim buf As String 'ファイルの全文字列
'ファイルを開いてbuf変数へ格納
With CreateObject("Scripting.FileSystemObject")
With .GetForder(filepath).OpenAsTextStream
buf = .ReadAll
.Close
End With
End With
'改行コードで一行毎に分割し配列変数へ代入
line = Split(buf, vbCrLf)
'一行毎に検索を実行する
Dim str As String '一時的に1行の文字列を格納
Dim startword As String 'この文字から抜き出す
Dim endword As String 'この文字まで抜き出す
Dim startpos As Long '抜き出す文字の開始位置
Dim endpos As Long '抜き出す文字の終了位置
Dim endpos2 As Long 'さらに最後のDMELを抜き出すのでその文字位置
Dim keyword As String 'この文字を含む
Dim keyword2 As String 'この文字も含む

Dim out As String
startword = Range("S1").Text '検索定義をシートから読み込む
endword = Range("V1").Text '検索定義をシートから読み込む
keyword = Range("S2").Text '検索定義をシートから読み込む
keyword2 = Range("V2").Text '検索定義をシートから読み込む

For i = 0 To UBound(line)
str = line(i)
startpos = InStr(str, startword)
endpos = InStr(str, endword)

'行に startword endword keyword 全ての文字列が含まれているか判定
If InStr(str, startword) > 0 And InStr(str, endword) > 0 And InStr(str, keyword) > 0 And InStr(str, keyword2) > 0 Then
    out = Mid(str, startpos, endpos - startpos)
    endpos2 = InStrRev(out, keyword3)
    out = Mid(out, 1, endpos2 - 1)
    'セルB10～へ対して行の抜き出した文字列を書き出す
    Cells(outpos, 3).Value = out
    outpos = outpos + 1 '書き出し位置を下へずらす
End If

Next i
'

'
End Sub

###試したこと
With .GetForder(filepath).OpenAsTextStreamで
エラーがでてしまいます。

###補足情報(言語/FW/ツール等のバージョンなど)
VBAで作成してます。

Answer 1

m6u様

横入り失礼します。
提示されたコードですが、下記のように訂正すれば大丈夫です。

Dim fso as Object
Set fso = CreateObject("Scripting.FileSystemObject")

参照:OFFICE TANAKA様のサイトの「FileSystemObjectの使い方」

http://officetanaka.net/excel/vba/filesystemobject/first.htm

あとはm6u様のアドバイス通りです。

ちなみに、参照設定にした場合は下記の通りです。
(参照設定にするか、CreateObjectで定義するかはお好みで。
参照設定にすると、FileSystemObjectのメソッドやプロパティが入力時に自動で表示されます。)

Dim fso as New FileSystemObject

これで定義すれば、「With fso」 として使用可能です。
(m6u様のアドバイスの「End With」で閉じることも忘れずに。)

私も、FileSystemObjectにつきましては、「参照設定しないと使えない」と、思い込んでいた時期がございます…。Excelマクロを作成する場合、参照設定は「設定したブックのみ」が有効なのと、他の人がソースコードを見た時、「参照設定は外から解りにくい」ので、敢えてオブジェクト宣言で使用される方もいらっしゃるのだとか(「実践ワークシート協会」のツールで、「参照設定」されているオブジェクトが分かるものがあるとか…)。

あと、「もしかしたら」で気になる点が一つございます。

endpos = InStr(str, endword)

の位置ですが、先頭から検索して「最初に見つかった文字」でよろしいでしょうか?
同じ文字や文字列が途中にあると、その位置までとなってしまいますので…。

endpos = InStrRev(str, endword)

のような、文字列の末尾から検索、というのもございますので、
おせっかいかもしれませんがご参考にしてみてください。

Comments

[退会済みユーザー]

わかりやすくご説明頂きありがとうございました。大変助かりました。

Answer 2

GetForder → GetFolder
とかいう話？

個人的には、FileSystemObjectオブジェクトやFolderオブジェクトを
ちゃんと変数で管理した方がしっくりきます。

Dim fso As Scripting.FileSystemObject
Dim d As Scripting.Folder
Set fso = CreateObject("Scripting.FileSystemObject")
Set d = fso.GetFolder(ActiveSheet.Range("C4").Value)

みたいな。

それと、もしもWithを使うならEnd Withするのも忘れずに。
オブジェクトを初期化したら、Set fso = NothingとNothingを詰めるのを忘れずに。

Comments

[ynakano]

全く気付かなかった…

[退会済みユーザー]

ご回答ありがとうございます。上記の内容にて実行しましたが「fso As Scripting.FileSystemObject」の部分でユーザー定義がされていませんと表示されてしまいます。

[退会済みユーザー]

参照設定で、Microsoft Scripting Runtimeを追加しないと利用できませんよ？ 参照設定に追加して私の書いたようなコードにすると、フォルダオブジェクトやファイルオブジェクトのメソッドやプロパティを使うコーディング時にIntellisense（コード補完）が利用できるようになるのでTypoを防げますし。

Answer 3

ファイルオープン～クローズはこんな感じでどうですか。

Dim FSO As Object
Dim buf As String

Set FSO = CreateObject("Scripting.FileSystemObject")
With FSO.GetFile(filepath").OpenAsTextStream
    buf = .ReadAll
    .Close
End With
    
Set FSO = Nothing