Quote:
Originally Posted by DivinationX View Post
How do i code such that, the filename that is captures will be stored into an array of strings? Thanks!
You need to declare an undimensioned array, and then initialize it at the top:
Dim myresults()
ReDim myresults(0)

then replace the output portion:
objNewFile.WriteLine(tfolder.Name)
with these two lines:

myresults(ubound(myresults))=tfolder.Name
redim Preserve Myresults(ubound(Myresults)+1)

This will leave you with an array full of the results and one empty slot at the end.