Surfer 5 and 6 SRF files are no longer supported by Surfer. To convert this file to a format that can be read, please open and resave it in either Surfer 7, 8, 9 or 10. For more information, please contact surfersupport@goldensoftware.com.

1. If you do not have a version of Surfer that can open the files, email us the SRF files and any data files they use, and we will send you back the converted files. If the files are too large to email, please zip them and upload them here. If you upload the files to our Sharefile account via the previous hyperlink, please also email us to let us know that the files are there.

2. If you have a version of Surfer that can open the file type, use the script below:

   1. Copy the script below from Sub Main to End Sub.

   2. Open Scripter and press CTRL+V on your keyboard to paste the script.

   3. Change the line Shell "C:\Program Files\Golden Software\Surfer 10\Surfer.exe" so the version is the correct version.

   4. Change the line: Directory = file_directory = "C:\Temp\" to the desired directory that contains your SRF files.

   5. Click the Script | Run command. The new SRF files are created in the same directory with _S10 appended to the file names. These files can be opened in the current version of Surfer.

Sub Main

'Opens all SRF file in directory and coverts them to S10 format

Debug.Clear

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

file_extension = "srf"

file_directory = "C:\Users\Katie\Downloads\10307-attachments\"

'''''''''''''''''''''''''''''''''''''''''''''''

'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