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 firstname.lastname@example.org.
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.
- If you have a version of Surfer that can open the file type, use the script below:
Copy the script below from Sub Main to End Sub.
Open Scripter and press CTRL+V on your keyboard to paste the script.
Change the line Shell "C:\Program Files\Golden Software\Surfer 10\Surfer.exe" so the version is the correct version.
Change the line: Directory = file_directory = "C:\Temp\" to the desired directory that contains your SRF files.
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.
'Opens all SRF file in directory and coverts them to S10 format
''''''''''''' 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)
srf_file = Dir() 'get next file
'Print a meaningful error message for each file that did not grid correctly
Debug.Print "Error: " + srf_file + " " + Err.Description
Updated November 26, 2019