2186
« on: January 29, 2016, 03:24:15 AM »
Hi,
that is how i did it two years ago.
script from the file open button:
Dim objDialog
Dim filesys
set filesys=CreateObject("Scripting.FileSystemObject")
' Create a dialog object
Set objDialog = CreateObject( "UserAccounts.CommonDialog" )
objDialog.InitialDir = "C:\Programme\Platemaster\Projekte"
objDialog.Filter = "Programm|*.tap"
' Open the dialog and return the selected file name
If objDialog.ShowOpen Then
If filesys.FileExists(Left(objDialog.FileName, Len(Trim(objDialog.FileName)) - 4) + ".bmp") Then
filesys.CopyFile Left(objDialog.FileName, Len(Trim(objDialog.FileName)) - 4) + ".bmp", "C:\Mach3\Bitmaps\Platemaster\Anzeige.BMP"
End If
LoadStandardLayout()
Sleep(3000)
LoadFile(objDialog.FileName)
Else
GetFileName = ""
End If
Thomas