Hi guys
I have the following function that reads the contents of one of my files. However, I have hundreds of files that I want to read individually. How do I put all the .txt files that I have in my folder into an array and put them through this function????
Thanks for any help.
JK

Code:
Public Function Opening_Files_For_Reading()
Dim inputfile  As String
inputfile = "D:\Orator\Outgone\00007629000003.txt"
'***************************************'
'Input the file ----  into a string named TempFile'
'***************************************'
TempFile = ""   'initialise tempfile
Open inputfile For Input As #1
    Do While Not EOF(1) ' Check for end of file.
        Line Input #1, GenFileText   ' Read line of data.
        TempFile = TempFile & GenFileText 'increment the temporary string with the file data
        MsgBox GenFileText
    Loop

Close #1

End Function