Microsoft Office Forums - View Single Post - [Solved] How to log info about files while looping through many in a folder

Guessed · 10-01-2021, 02:45 PM

You can keep passing variables across functions but I think it is easier to declare a variable so it can be used by all the sub/functions in the module. This then persists and can be added to or read by any of the subs or functions. This illustrates the concept.

Code:

Option Explicit

Private arr1() As String, sArr As String

Sub TheLoop()
  Dim i As Integer
  sArr = ""       'this empties the string in case the macro was run earlier
  For i = 1 To 10
    TheTest i
  Next i
ThePayout:
  MsgBox sArr
  arr1 = Split(sArr, "|")
End Sub

Sub TheTest(i As Integer)
  If i Mod 2 = 0 Then
    TheLogger i
  End If
End Sub

Sub TheLogger(i As Integer)
  If sArr = "" Then
    sArr = "Item " & i
  Else
    sArr = sArr & "|" & "Item " & i
  End If
End Sub