TABLE OF CONTENTS The ability to rapidly process 10, 100, or even 1000 files is as simple as it is powerful.
It is common to have a list of files that need processing in an ASCII text file. Here is an example:
This first example opens the file ProcessThese.txt, reads each line in it, then displays each line in a MessageBox.
Sub <b class="bold">ProcessASCII</b>() Dim FileToOpen As String Dim BatchFile As String Dim FFile As Long FFile = FreeFile BatchFile = "C:\MicroStation VBA\BatchProcessing\ProcessThese.txt" Open BatchFile For Input As #FFile While EOF(FFile) = False Line Input #FFile, FileToOpen MsgBox FileToOpen WendEnd Sub
Now that the basics are in place, let's build on them.
Sub <b class="bold">ProcessASCIIB</b>() Dim FileToOpen As String Dim BatchFile As String Dim FFile As Long FFile = FreeFile BatchFile = "C:\MicroStation VBA\BatchProcessing\ProcessThese.txt" Open BatchFile For Input As #FFile While EOF(FFile) = False Line Input #FFile, FileToOpen Application.OpenDesignFile FileToOpen, True MsgBox "Do Something" WendEnd Sub
Instead of just showing the file...
