配列に格納したファイルパスをMsgBoxで表示したい

Question

初めまして。プログラミング初心者です。

【実行したい処理】
①フォルダを選択
②フォルダ内のパスを取得し配列に格納
⇒「ｓｈ」が含まれないもの（.logのもののみ）取得したい
③格納した配列を使用しテキストファイルを１行ずつ読み込む

現在②の処理で躓いてしまっています。
for文内でMsgBoxを指定すると正しくすべてのファイルのパスが表示されるのですが、
for文の外だと最初の１件しかパスが表示されないのです。
この後、配列として処理を追記したいのですがどこをどうしたらいいのかわかりません。

初歩的な質問で申し訳ありませんが教えていただけますと幸いです。
よろしくお願いします。

Sub ファイルパスの取得()

'
'【変数の宣言】
'
Dim FSO As Object
Dim Folder As Variant
Dim File As Variant
Dim FilePath As Variant
    
    'フォルダ指定用のダイアログを表示します
    With Application.FileDialog(msoFileDialogFolderPicker)
        
        'カレントディレクトリを指定します
        .InitialFileName = ThisWorkbook.path
        
        '設定しなかったら終了します
        If .Show = False Then Exit Sub
            
        '設定したフォルダを表示します
                'Dim Fname
        Fname = .SelectedItems(1)
        
    End With
    
    
    
    '参照設定
                'Dim FSO As Object, Folder As Variant, File As Variant
    Set FSO = CreateObject("Scripting.FileSystemObject")
    
    
    
                'Dim FilePath As Variant
    ReDim FilePath(1 To 200)
        
        
    '指定フォルダ内の.logファイルを探索します
    i = 0
    For Each File In FSO.GetFolder(Fname).Files
        If InStr(File.Name, "sh") > 0 Then

            Else
            If InStr(File.Name, ".log") > 0 Then
             i = i + 1
            FilePath(i) = File.path 'ファイルのフルパスを取得
            
            'ここで設定したMsgBoxは正しく表示される
            'MsgBox FilePath(i)
            
            

            
        End If
        End If
        
        
    Next
    
    
    MsgBox FilePath(i)
    
    

End Sub

Comments

[meg_]

> for文内でMsgBoxを指定すると正しくすべてのファイルのパスが表示されるのですが、for文の外だと最初の１件しかパスが表示されないのです。この後、配列として処理を追記したいのですがどこをどうしたらいいのかわかりません。

forループ内で配列を生成すれば良いのではないでしょうか？

[s.s.s.s.]

for文内で
FilePath(i) = File.path 'ファイルのフルパスを取得
と指定しているため、ループ内で配列を生成している気でいたのですが
これでは生成できていないのでしょうか？

[jinoji]

FilePathは配列になっているけど、そのコードだとMsgBoxの行は１回しか動かないというだけでは。
（iの値はその直前のForループで最後のファイルの時にセットされた値になっている）

[jinoji]

ちなみに、.log は、画像のように後ろに日付などがついていても処理対象にするのでしょうか。
〜.log は対象とするが 〜.log.20xx-xx-xx のようなファイルは除きたいということなら、修正が必要だと思います。

[s.s.s.s.]

for文内でMsgBoxを設定すると正しく４件のパスが表示されるのですが、
どうやったらfor文の外でこの配列を使用することができるのでしょうか？

コードのどこを修正したらいいのでしょうか...。

〜.log 、 〜.log.20xx-xx-xx ともに対象としています。

[meg_]

> FilePath(i) = File.path 'ファイルのフルパスを取得と指定しているため、ループ内で配列を生成している気でいたのですが

すみません。見落としていました。
iの値を変化させれば配列にアクセスできるかと思いますよ。

[s.s.s.s.]

すみません。iの値を変化させて配列にアクセスというのがよくわからなくて…
もしよろしければ教えていただけますでしょうか？

Answer 1

下記コードで取得したパスを表示できますが、FilePathの配列数を200にしていますのでMsgBoxが200回表示されてしまいます。ご参考まで。

For Each File In FilePath
  MsgBox File
Next

Comments

[s.s.s.s.]

ありがとうございます。
実装して200回表示、という意味が分かりました。
配列に記入があるとき処理を実行、というIf文を追加してみます。
ありがとうございました。

[jinoji]

その場合、手前で ReDim Preserve FilePath(1 to i ) とすると良いかもしれませんね。

（まあ、本当はhatena19さんのいう通りな気もしますが）

Answer 2

前回の下記の質問で解決しているのでは。

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

ただ、わざわざ配列に格納しなくても、
現状の For Each ループ内で、テキストファイルを１行ずつ読み込めばいいだけだと思います。

Comments

[s.s.s.s.]

それが、上記（質問で記載したコード）では正しく出力されなくて...。
参考にしたソースが配列を使用していたので配列に格納するものだと思っていましたが
配列に格納しなくても、１行ずつ読み込んでその中から指定の文字列を抜き出すことは
できるのでしょうか？

[hatena19]

当然、できます。

For Each ループ内で、ファイル名を取得出来ているので、そのファイル名をもとに読み込めばいいだけです。

ちなみに、削除依頼した質問ではUTF8のテキストファイルを読み込みたいとのことでしたが、その場合、
Workbooks.OpenText を使うのが簡単です。

VBA CSV ファイルの読み込み (Workbooks.OpenText 関数を使う)
https://www.tipsfound.com/vba/18015