Gary,
Here is some code I use to accomplish this task. It you pass the function a
string containing the path you want to start with it will put all *.dwg
files below that path in a listbox. Maybe you can modify it to meet your
needs.
John
Public MyPath as String
Public Sub GetSubDirs(MyPathInput As String)
Dim NumOfDwgFiles As Integer
Dim NumOfDirectories As Integer
Dim MyName As String
Dim i As Integer, n As Integer
Dim StartDirectory As String
'Assign the MyPath variable. If we are in the base directory (eg, C:\) then
dont append '\'
If Right(MyPathInput, 1) <> "\" Then MyPath = MyPathInput & "\" Else MyPath
= MyPathInput
StartDirectory = MyPath
'Find the number of directories in MyPath
i = 0
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> ""
If MyName <> "." And MyName <> ".." Then
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
i = i + 1
End If
End If
MyName = Dir
Loop
NumOfDirectories = i
If NumOfDirectories > 0 Then
ReDim dirs(0 To NumOfDirectories - 1) As String
i = 0
'Populate the dirs array with the names of directories in MyPath
MyName = Dir(MyPath, vbDirectory) ' Retrieve the first entry.
Do While MyName <> "" ' Start the loop.
If MyName <> "." And MyName <> ".." Then
'Use bitwise comparison to make sure MyName is a directory.
If (GetAttr(MyPath & MyName) And vbDirectory) = vbDirectory Then
dirs(i) = MyPath & MyName ' Store entry only if it
represents a directory.
i = i + 1
End If
End If
MyName = Dir ' Get next entry.
Loop
End If
'Find the number of DWG files in MyPath
NumOfDwgFiles = 0
i = 0
MyName = Dir(MyPath + "*.dwg", vbNormal) 'Tell the Dir command what to
look for
Do While MyName <> "" 'Counts the number of files in this directory that
fit above description
MyName = Dir
i = i + 1
Loop
NumOfDwgFiles = i
If NumOfDwgFiles > 0 Then
ReDim files(0 To NumOfDwgFiles - 1) As String 'An array to store the
names of the files
i = 0
' Populate the file array with the names of files in MyPath
MyName = Dir(MyPath + "*.dwg", vbNormal) ' Retrieve the first entry.
Do While MyName <> "" ' Start the loop.
files(i) = MyPath & MyName
MyName = Dir ' Get next entry.
i = i + 1
Loop
'We are adding all DWG files to ListBox2
For i = 0 To (NumOfDwgFiles - 1)
ListBox2.AddItem files(i)
Next i
End If
'Call the GetSubDirs routine (recursivly) for each subdirectory in MyPath.
The base case (when
'the function returns to the routine that called it) is when the For loop is
finished
For n = 0 To NumOfDirectories - 1
GetSubDirs (dirs(n))
Next n
MyPath = StartDirectory
Exit Sub
End Sub
"Gary McMaster" wrote in message
news:ef29a66.1@WebX.SaUCah8kaAW...
> Mark,
>
> Thanks for your interest. I am trying to get all of the files in the
> directory that contains the active drawing and/or any and all sub
> directories under that directory with no user intervention. I am already
> using the dir function to get all the files in the directory containing
the
> active drawing (one of the options in the program). I started looking into
> recursive calls with dir but it started getting very involved. A similar
> post to this suggested using dos. At the time I didn't want to re-invent
the
> wheel so I went with the dos stuff. I would like to replace it something
> thats works entirely within VBA.
>
> Gary
>
