Solved: Using Dir()

[sapcloasst]

I'm trying to access files thats are two levels deeper than the chosen path.

For example:

1 level down there are folders named "ADM", "QM", "ENG"
2 levels down there are folders named "BP", "FO", "STD"

I was wondering if I could put a sort of placeholder in the "\*.xls" part of the line of code below.

FileName = Dir(Path & "\*.xls", vbNormal)

[Aussiebear]

will the following code in the KB assist you?
http://www.vbaexpress.com/kb/getarticle.php?kb_id=837

[Bob Phillips]

Why not just use

[VBA]FileName = Dir(Path & "\ADM\BP\*.xls", vbNormal)[/VBA]

[snb]

to get all found files into a string:

[vba]
Sub tst()
MsgBox CreateObject("wscript.shell").exec("cmd /c dir G:\OF\*.xls /b /s").stdout.readall
End Sub
[/vba]

to get all found files in an array
[vba]
Sub tst()
sn= split(CreateObject("wscript.shell").exec("cmd /c dir G:\OF\*.xls /b /s").stdout.readall,vbCrlf)
End Sub
[/vba]

[sapcloasst]

I did that, and it worked. However there are too many folders and the code becomes too long to execute.

Why not just use

[vba]FileName = Dir(Path & "\ADM\BP\*.xls", vbNormal)[/vba]

[Bob Phillips]

So what determines how many levels you look down?