Access vba の実行時エラー5

ボールドテキストAccess vba を用いてファイル数を取得しようとしているのですが、エラーになってしまいます。

実行時エラー5となるのはfor each~の箇所になります。

先輩が以前使用していたものを写しながら勉強中です。
原因が全く分からないのでアドバイスお願い致します。

Function
1 
2    Dim o_File As Object     'ファイルオブジェクト
3    Dim o_SubFile As Object  'ファイル名オブジェクト
4    Dim s_FileSys As String     'ファイル名、サブフォルダ名格納変数
5 
6   
7    Set o_File = CreateObject("Scripting.FileSystemObject")
8   
9    
10    '指定フォルダ内の対象ファイルを取得
11    s_FileSys = Dir(s_Path & "*." & s_FileType)
12   
13    '対象ファイルの取得確認
14    Do While s_FileSys <> ""
15   
16         'フォームにて指定したファイル名、拡張子の条件を満たしている場合
17         If s_FileSys Like "*" & s_FileName & "*" Then
18        
19             '対象ファイル数をカウントアップ
20             l_Count = l_Count + 1
21            
22             
23        End If
24       
25        '指定フォルダ内の次の対象ファイルを取得
26        s_FileSys = Dir()
27       
28        
29    Loop
30    'サブフォルダにてループ
31    **For Each o_SubFile In o_File.GetFolder(s_Path).subfolders**
32 
33    Next
34   
35        '戻り値にファイル数をセット
36        対象ファイル数取得 = l_Count
37       
38        
39End Function
40コード

dodox86

2021/03/17 17:53

Accessは試せないので質問文への指摘のみですが、エラーが起きている場所や、エラーの全文（＜あれば）を質問文中にちゃんと提示しましょう。「実行時エラー5」だけでは分かりません。On Error Gotoで飛ばして、Errオブジェクトで得た値でしょうか。 5 であれば恐らく「VBA エラー 5 プロシージャの呼び出し、または引数が不正」のようなことだと思いますが、それも「どこで起きているか」を特定してからのお話です。ご提示のコードも全文ではないか、Dimによる変数の宣言があったりなかったりで不完全に見えます。「Option Explicit」をコード冒頭につけて、なるべく厳密にコードを書きましょう。

jinoji

2021/03/17 21:52

For Each o_SubFile In o_File.GetFolder(s_Path).subfolders Next のところに処理が何もないのは妙ですね。対象ファイル数取得 o_SubFile.Path , s_FileType, l_Count みたいな行がありそうな気がしますが。

jinoji

2021/03/17 23:40

Set o_file = CreateObject("Scripting.FileSystemObject") の下に、 If o_file.FolderExists(s_Path) = False Then MsgBox "FolderNotExists" Exit Sub End If とか入れてみるといいかもしれません。

行動規範の内容に同意します

回答1件

ベストアンサー

一例としては、o_File.GetFolder(s_Path)でエラーの可能性がありますね
s_Pathが空だとそのエラーが発生します。

1004jhさんが全くの初心者だとして説明させていただきますと

エラーの原因を調べる方法は
実行してみて、エラーダイアログが表示されて処理が止まったら「終了」と「デバッグ」のボタンがあると思うので「デバッグ」を選択するとエラー行がハイライトされエラー箇所を特定できます。
その状態で各変数にカーソルを持っていくと変数の中身がツールチップで表示されますので、内容が問題ないか確認して下さい。
変数等を選択して右クリックしてウォッチ式に追加をして中身を見る方法もありますし、イミディエイトウィンドウに? 変数名を入力してエンターを押すことで
変数の中身を文字列にしてみることもできます。

とりあえずは、こんなところでしょうか。

投稿2021/03/17 18:51

xail2222

総合スコア1508

1004jh

2021/03/18 00:41

回答ありがとうございます。ご指摘のとおり、for each～の文でエラーになっていました。調べたところ、s_Path＝"" だったので設定してみようと思います。先輩のプログラムを写しているのですが、そちらには s_Path＝というような記載はありませんでした。しかしエラーにはなっていないので、空でも動くのでしょうか？