Get file version info

[webzila]

I am using VB 6
I need a program to get file version information of all files in a specified folder and print each file version on a seperate line...

I have a pre-written API to get all the version info data.
Then using the pre-written module the program does this:

' Display version information for the file.
Private Sub cmdGetInfo_Click()
Dim version_information As VersionInformationType
Dim txt As String
 
    txtResults.Text = ""
 
    ' Get the version information.
    version_information = VersionInformation(txtFileName.Text)
 
    ' Display the version information.
    With version_information
        txt = .FileVersion & vbCrLf
    End With
 
    txtResults.Text = txt
End Sub
Private Sub Form_Load()
Dim file_name As String
 
    file_name = App.Path
    If Right$(file_name, 1) <> "\" Then file_name = file_name & "\"
    txtFileName.Text = file_name & "Project1.exe"
End Sub

It works great but only gets the file info version of one specified file.
What is the code to go through all the files in a folder and print each file version on a seperate line?