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