10
« on: June 25, 2008, 04:08:05 PM »
Hi
I want to create a button to save(save as) my GCode.
I create this button in Screen4(.set), with this code:
Set objDialog = CreateObject("SAFRCFileDlg.FileSave")
objDialog.FileName = ""
objDialog.FileType = "Arquivo TAP"
intReturn = objDialog.OpenFileSaveDlg
If intReturn Then
Set objFSO = CreateObject("Scripting.FileSystemObject")
If StrComp(Right(objDialog.FileName,4),".tap") Then
objDialog.FileName = objDialog.FileName & ".tap"
End If
Set objFile = objFSO.CreateTextFile(objDialog.FileName)
objFile.Close
ArquivoTeach = objDialog.FileName
FileCopy "C:\Mach3\GCode\teach.tap", ArquivoTeach
A=MsgBox ("Arquivo salvo como " & ArquivoTeach, 0, "SALVO")
End If
However, now I am working in development of flash screen and that code do not work.
If someone know the code to create this button tell me please.
That's it.