[VB.net] Saving text without text files problem...

[Mitron]

I dont want it saved to any text files like .txt or .rtf etc... dont like when anyone can jsut go there and open the file + i already got it working with adressbook.txt so thats np.... if you just could tell any file that would work with exact same code as i got to save it to txt files it would be great.

if its possible and not way to hard i would like text files saved in MPQ files ;O
but i guess its kinda hard in VB.net ..... but anything like MPQ files could work aswell, but as i know MPQs abit i know what the hell it is.... but if its not possible to save text files in some other file i want it as stated above, NO TEXTFILES... =3

i would like a way like this:
Click button1 to save textbox1.text in a file
after its saved it should popup in combobox1 list


Ask if you dont understand what i mean, will try to explain better ^^

EDIT: I did find something earlier... but didnt want to work for me... was some .brm files but it failed when i put it into my mailer stuff....

[Bacanze]

So your saying you want your own file format which can't typically be opened by normal application such as notepad etc?

[Vivisnai]

I'm not sure what you mean, but try this.

If you want done on the desktop

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

My.Computer.FileSystem.WriteAllText(My.Computer.FileSystem.SpecialDirectories.Desktop & "\NameOfFile.txt", TextBox1.Text , True)

If you want done in the program directory:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

My.Computer.FileSystem.WriteAllText( "\NameOfFile.txt", TextBox1.Text , True)

[soulchief]

you want a text file that cant be viewed in any other program? Just add your own encryption/decryption function to your system.. encrypt the data before saving so something like "Now you see, now you dont" becomes "{Q*$p]q9@O q9is0 ae29o[[] 2e9apw3a" if opened in notepad.

[d3rrial]

    Private Sub Savetofile()
        Dim Filenumber As Object = FreeFile()
        FileOpen(Filenumber, "C:\PATHTOYOURFOLDER\Textfile.mpq", OpenMode.Output)
        Write(Filenumber, TextBox1.Text)
        FileClose(Filenumber)
    End Sub

Didnt get it to work to make it choosable from the Combobox, since the Combobox is read only >_>