Can you please modify this bit of code to just give one group of variables [directory()] that will contain all existing directories in the station directory?

I think if I can just get this, i'll have this project licked.

Thanks....


' >> First list all directories

SearchDir = Station
File = Dir(FixDir(SearchDir) & Asterisk, vbDirectory)

While File <> ""

DoEvents

If File = "." Or File = ".." Then GoTo 5
If GetAttr(FixDir(SearchDir) & File) <> vbDirectory Then GoTo 5

DirNum = DirNum + 1
Directory(DirNum) = FixDir(SearchDir) & File
5
File = Dir

Wend

2

CurDir = 1

While CurDir < DirNum

CurDir = CurDir + 1
SearchDir = Directory(CurDir)

File = Dir(FixDir(SearchDir) & Asterisk, vbDirectory)

While File <> ""

DoEvents

If File = "." Or File = ".." Then GoTo 4
If GetAttr(FixDir(SearchDir) & File) <> vbDirectory Then GoTo 4

DirNum = DirNum + 1
Directory(DirNum) = FixDir(SearchDir) & File
4
File = Dir

Wend

3
Wend

' >> All dirs within 'Station' are listed