Sub Main 'Opens all SRF file in directory and coverts them to S10 format Debug.Clear ''''''''''''' User Variables '''''''''''''''''' file_extension = "srf" file_directory = "C:\Temp\" ''''''''''''''''''''''''''''''''''''''''''''''' 'Open Surfer 10 and use that instance to run the script Shell "C:\Program Files\Golden Software\Surfer 10\Surfer.exe" Dim SurferApp As Object Set SurferApp = GetObject(,"Surfer.Application") SurferApp.Visible = True file_extension = LCase(Right(file_extension,(Len(file_extension) - InStrRev(file_extension,".")))) If Len(file_directory)-InStrRev(file_directory,"\") <> 0 Then file_directory = file_directory + "\" srf_file = Dir( file_directory + "*." + file_extension) On Error GoTo FileError While srf_file <> "" out_file = file_directory + Left(srf_file, Len(srf_file)-(Len(srf_file)-InStrRev(srf_file,".")+1) ) + "_S10.srf" 'Declares Plot As an Object And opens an SRF file Dim Plot As Object Set Plot = SurferApp.Documents.Open(file_directory + srf_file) 'surf.plot.Export(export_file) Plot.SaveAs(out_file) Debug.Print srf_file srf_file = Dir() 'get next file Wend SurferApp.Quit Exit Sub 'Print a meaningful error message for each file that did not grid correctly FileError: Debug.Print "Error: " + srf_file + " " + Err.Description Resume Next End Sub