Topic: Re-order a batch process

[Arizona]

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?

Code: [Select]

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


[Bob Wahr]

Try this

Code: [Select]

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 = colFiles.count To 1 step -1
      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

[Arizona]

That was perfect! Thanks Bob!

[Bob Wahr]