[pepemosca]

Hello,
I would like to know how in VBA to list all the files that are on a specific folder.

Like doing a "DIR *.*", and getting the result on some collection or array or something like that.

Also, is there any way to recognize if is it a folder or a file the content of the path?

Thanks in advance for your help.

Saludos,
pepemosca

[shades]

Howdy. If you go to www.vbaexpress.com and register (great site - many fantastic coders and Excel experts), they have many articles, some of them already have the code written for you to use.

[pepemosca]

Great reference!
Thank you for your suggestion.

BTW, I've found the solution here
http://vbaexpress.com/kb/getarticle.php?kb_id=733
http://vbaexpress.com/kb/getarticle.php?kb_id=781
http://vbaexpress.com/kb/getarticle.....php?kb_id=837

I just post the links, to leave a reference at dBforums, but as you said: you must be registered at VBA Express to be able to see the code.

All the abobe are for Excel VBA 2003

[pepemosca]

Oh, too bad.
The "Application.FileSearch" doesn't work with Excel 2007

I need to make a new Google Search :P

[pepemosca]

Here is some code that works:
http://www.ozgrid.com/forum/showpost...50&postcount=5

Sub testit()
    myvar = FileList(ActiveWorkbook.Path)
    If TypeName(myvar) <> "Boolean" Then
        For i = LBound(myvar) To UBound(myvar)
            Cells(i + 1, 1).Value = myvar(i)
        Next
    Else
         MsgBox "No files found"
    End If
End Sub
 
Function FileList(fldr As String, Optional fltr As String = "*.*") As Variant
    Dim sTemp As String, sHldr As String
    If Right$(fldr, 1) <> "\" Then fldr = fldr & "\"
    sTemp = Dir(fldr & fltr)
    If sTemp = "" Then
        FileList = False
        Exit Function
    End If
    Do
        sHldr = Dir
        If sHldr = "" Then Exit Do
        sTemp = sTemp & "|" & sHldr
     Loop
    FileList = Split(sTemp, "|")
End Function