Quote Originally Posted by Benzadeus
Well, do you have Excel 2003?

[vba]Option Explicit
Option Base 1
Sub ListFolders()
Dim n As Long
Dim arFolders() As String

With Application.FileSearch
.LookIn = "C:\Documents and Settings\felipe.gualberto\Desktop\Felipe\VBA"
.FileType = msoFileTypeAllFiles
.Execute
ReDim arFolders(.FoundFiles.Count)

For n = 1 To .FoundFiles.Count
arFolders(n) = .FoundFiles(n)
Next n

End With
Debug.Print UBound(arFolders)
End Sub[/vba]
I can not test now, but the vba code should work for every version of excel