VBA エラー処理について

Question

下記内容で、fso As FileSystemObjectこの部分でエラーが出ています。
ウェブからコードを写して実行しているのですが、エラー解除方法がわかりません。
調べましたが、コードのどこを触れば修正できるかわからなかったためお手数おかけしますが教えていただけないでしょうか。

エラー内容
「ユーザー定義型は定義されていません」

以上ご確認お願いいたします。

Sub test2()
 Dim fso As FileSystemObject
Set fso = New FileSystemObject ' インスタンス化

Dim fl As Folder
Set fl = fso.GetFolder("C:\Users\abcab\OneDrive\デスクトップ\試し\") ' フォルダを取得

Dim f As file
For Each f In fl.Files ' フォルダ内のファイルを取得
    Debug.Print (f.Name) ' ファイルの名前 (Tips.txt) など
    Debug.Print (f.Path) ' ファイルのパス (D:\Tips.txt) など
Next

' 後始末
Set fso = Nothing
    
End Sub

Answer 1

Dim fso As FileSystemObject
Set fso = New FileSystemObject ' インスタンス化

VBA から FileSystemObject を使用するには参照設定が必要です。
下記記事に手順が記載されていますので、参考にしてみて下さい。

■ 【Excel VBA入門】FileSystemObjectを使ったファイル操作の基本を解説
https://valmore.work/about-file-system-object/

もしくは、別の方法としては、CreateObject を使う方法があります。

Dim fso
Set fso = CreateObject("Scripting.FileSystemObject") ' インスタンス化

Comments

[退会済みユーザー]

ｃｘ２０様
ご返信ありがとうございます。
エラーは解消されました。
しかし、メッセージボックスへファイル名が出力されません。

どのようにしたらよろしいかよろしければご教授お願いいたします。

[cx20]

> メッセージボックスへファイル名が出力されません。
現状のコードにはメッセージボックスを表示するコードは記載されていません。
もしかして「Debug.Print()」のことでしょうか？
「Debug.Print()」の場合は、「イミディエイトウィンドウ」と呼ばれるウィンドウに表示されます。

もし VBA でメッセージボックスを表示したいのであれば「MsgBox()」関数を使用下さい。
使い方は下記を参照願います。
■ MsgBox関数の使い方（1） - メッセージボックスの表示方法
https://www.moug.net/tech/exvba/0100033.html

[退会済みユーザー]

cx20様　
ご返信ありがとうございます。

また、不明点あればご教授していただけると幸いです。