Sub Main

'Opens all SRF file in directory
'Exports each to GIF
Debug.Clear

''''''''''''' User Variables ''''''''''''''''''

file_extension	= "srf"

file_directory	= "C:\temp\grids\"

export_format = "gif"

'''''''''''''''''''''''''''''''''''''''''''''''
	Set surf = CreateObject("surfer.application")
	surf.Visible = True
	Debug.Print surf.Version

	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 <> ""
		'Define output grid file directory & name
		export_file	= file_directory + Left(srf_file, Len(srf_file)-(Len(srf_file)-InStrRev(srf_file,".")+1) ) + "." + export_format

		'Declares Plot As an Object And opens an SRF file
   		Dim Plot As Object
		Set Plot = surf.Documents.Open(file_directory + srf_file)
		'surf.plot.Export(export_file)
		Plot.Export2(export_file, filterid:=export_format)

		Debug.Print srf_file
		srf_file = Dir() 'get next file
	Wend

	surf.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