save command

[jullaras]

Hello everyone.

I want to get the save command.One friend has told me that it is something like Fileopen ( ) but i don't know what is.

This question has asked for sure but because i am with a dial up i don't have
time,sorry for that

[mebhas]

??? the save command can be anything from saving to a file to saving to a database. in each case the logic is different and so is the technique according to the amount and type of data u want to save.

please be specific on what you want to save and where.

[Max bayne]

plz specific what do you want to can help you man okk

you can save data from Database , Registry , Files and more ..........

[jullaras]

I want when the user clicks the save command button the programm will save the programm everywhere the user want i have already put

cdl.Filter = "Exe Files(*.exe)|*.exe"
cdl.DialogTitle = "Save"
cdl.ShowSave

and i need the last command

i hope you understand

[Static]

what is the user saving to an exe???

does your app create an exe?

[jullaras]

No the form1 will be saved as an exe
i tell it again this time better
In fact i ve got a programms with text.When i close the programm the text of the text
is again blank.That's why i need it,so the user save the form1 everywhere he want to i
can open it with the text written

[Static]

well. you can save the form as an exe from code?

anyway I think this is what you want.

User types data in a text field... then closes the program
when opened.. the text is back in the field?

Private Sub Form_Load()
    If Len(Dir(App.Path & "\data.txt")) <> 0 Then
        Open App.Path & "\data.txt" For Input As #1
            Text1.Text = Input(LOF(1), 1)
        Close #1
    End If
End Sub
 
Private Sub Form_Unload(Cancel As Integer)
    Open App.Path & "\data.txt" For Output As #1
        Print #1, Text1.Text
    Close #1
End Sub

[jullaras]

Thanx but in the case of 5 text boxes ?
And something in the end of text it has two black II