Using the old vbdesign batch process, is there a way that I can capture the listing of files and re-order them bottom to top?
- Public Sub OpenAndProcessAllDrawings()
- Dim objSelSet As AcadSelectionSet
- Dim objDoc As AcadDocument
- Dim objSearch As New vbdSearch
- Dim objEnt As AcadEntity
- Dim colFiles As New Collection
- Dim strFolder As String
- Dim intCnt As Integer
- Dim strName As String
- On Error GoTo Err_Control
- strFolder = objSearch.ReturnFolder '(0&)
- If Len(strFolder) > 0 Then
- FindFile colFiles, strFolder, "dwg"
- For intCnt = 1 To colFiles.count
- Set objDoc = OpenAnyMode(colFiles(intCnt))
- ThisDrawing.PurgeAll
- BorderBlk
- objDoc.Close
- Next intCnt
- End If
- Exit_here:
- Exit Sub
- Err_Control:
- MsgBox Err.Description
- Resume Exit_here
- End Sub
|