for文で取得したパスがどこにあるのかわからない件について

初めまして。プログラミング初心者です。
現在VBAを使ってあるプログラムを作成しています。

【実行したい処理】
以下のfor文で、ファイルのパスを取得したい。

【現状】
if文内にMsgBoxを入力し、FilePath(i)と入力すればパスがきちんと表示される。
しかし、For文を抜けた（Nextの後ろ）にMsgBoxを記述すると中身が表示されない。
（メッセージボックスが１度表示され、ブランクの状態）

このコードの後ろに、ここで取得したパスのファイルを開くというプログラムを
追加したいのですが、パスが取得できていない（正しく表示されない）ため
次に進めません。どうしたらいいのか教えてください。よろしくお願いします。

    Dim FilePath As Variant
    ReDim FilePath(1 To 200)
        
    '指定フォルダ内の.txtファイルを探索します
    i = 0
    For Each File In FSO.GetFolder(Fname).Files
        If InStr(File.Name, "sh") > 0 Then
            i = i + 1
            Else
            If InStr(File.Name, ".log") > 0 Then
            i = i + 1
            FilePath(i) = File.path 'ファイルのフルパスを取得
            
            'MsgBox FilePath(i) 4件のパスが正常に表示されることを確認
        End If
        End If
    Next

y_waiwai

2022/05/23 22:11

その、表示されないというコードも含めて、提示しましょう

退会済みユーザー

2022/05/24 00:31 編集

iをカウントアップ（＋１する）ことの意味って、なんなんでしょうね？　＋１することと、FilePath(i) = File.path が直接連動していない場面があるのが、どうしても気になってしまう。そもそも、このコードは何を目的にして書いていて、FilePathなる配列にどういうふうにデータを詰めることを期待しているのでしょうか？そこがわかっていないから、曖昧なコードになっているのではないでしょうか？仕様を正しく解釈してコードを書かないと。

s.s.s.s.

2022/05/24 00:46

すみません。初めて書いたコードなので無駄が多くあいまいなコードになってしまっていますよね。何をしたいのかを明確にしたうえでどのような結果を期待するのかをしっかり考えてプログラムを作成できるよう今後はより一層頑張ってまいります。コメントいただきありがとうございました。

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

回答1件

ベストアンサー

下記でどうですか。

vba
1    Dim FilePath As Variant
2    ReDim FilePath(1 To 200)
3        
4    '指定フォルダ内の.txtファイルを探索します
5    i = 0
6    For Each File In FSO.GetFolder(Fname).Files
7        If InStr(File.Name, "sh") > 0 Then
8'            i = i + 1  削除
9        Else
10            If InStr(File.Name, ".log") > 0 Then
11                i = i + 1
12                FilePath(i) = File.Path          'ファイルのフルパスを取得
13            
14                'MsgBox FilePath(i) 4件のパスが正常に表示されることを確認
15            End If
16        End If
17    Next
18
19    '取得したパスの確認
20    i=1
21    Do until FilePath(i) <> ""
22        MsgBox FilePath(i)
23        i = i + 1
24    Loop