Put this in a button
This is going to make your head hurt ....
This should do it
Brian
Begin Dialog FILERENAME 15,42, 213, 62, "File Save"
Text 20,12,60,12, "Enter File Name:"
TextBox 84,12,100,12, .EditBox_1
OKButton 36,36,37,12
CancelButton 136,36,37,12
End Dialog
Dim Dlg1 As FILERENAME
Dlg1.EditBox_1 = "*.tap"
Button = Dialog (Dlg1)
If Button = 0 Then
Exit Sub
End If
Newfilename = "C:\Mach3\GCode\" + Dlg1.EditBox_1
FileCopy "C:\Mach3\GCode\turn.tap", Newfilename
MsgBox ("File Saved to" & Newfilename )