Include the names of dwg's in an array.

I have problems to make an array with the dwg files that are in a directory
that I choose when I run my app. I want to use this array to include
information about the layouts that containes the file.

How can I do this




Thanks,
Oscar Barbero Pinacho

 

Oscar,

I got this from a VB newsgroup somewhere, but I neglected to make a note of
who/where (my apologies to the author whoever you are). It returns an array
of file names from the folder you specify, with whatever extension you
provide.

Function GetFileList(strPath As String, strExt As String) As Variant
'Be sure strPath includes a "\" at the end
'Be sure strExt is in the format "*.dwg" (or whatever extension you're
after)
On Error Resume Next
Dim FName As String
Dim FList() As Variant
Dim cnt As Integer
Dim I As Integer

FName = Dir(strPath & strExt)
If FName = "" Then
' MsgBox "Can't find " & strPath & " folder or folder contains no " &
strExt & " files"
GetFileList = Empty
Exit Function
End If

cnt = 1
Do While FName <> ""
FName = Dir
cnt = cnt + 1
Loop
ReDim FList(0 To cnt - 2)
FList(0) = UCase$(Dir(strPath & strExt))
For I = 1 To cnt - 2
FList(I) = UCase$(Dir)
Next I

GetFileList = FList
End Function

Ben Rand
CAD Manager
CEntry Constructors & Engineers