1  |   Order by index

Apr 27, 2001, 6:47pm

Hello all technical users of AW,
I need an example for my new program that creates xelagot scripts, easily
customised by the user, who needs no programming experience whatsoever!
Ijust need an example of a vb6 script that will, in conjunction with the
Save As Common Dialog box, save files into a format specified in the script.
If posible, an open file code would be greatly accepted as well! Thanks To
All Takers of My Request

Sincerly,
Barbarossa

Apr 28, 2001, 7:21am

here's some code that should do it (I've used it in my apps):

Private Sub mnuFileSave_Click()
MCI.filename = App.Path & "\saveproject.mp3"
MCI.Command = "play"
On Error GoTo usercanceledsave
With CommonDialog1
.CancelError = True
.filename = ""
.DialogTitle = "Save project"
.Filter = "basic Millenium binary file|*.bmb|Plain text|*.txt"
.FilterIndex = 0
.ShowSave
End With
Open CommonDialog1.filename For Output As #1
Print #1, Source.Text
Close #1
usercanceledsave:
Exit Sub
End Sub

code taken from: basic Millenium compiler, one of my projects

KAH

[View Quote]

Apr 28, 2001, 12:01pm

uh...forgot to strip it for my sounds( the MCI.something stuff must be
removed!), I play a message for every command...

KAH

[View Quote]

1  |   Order by index