Hvis man skal gemme noget i HTML format via en commondialog, hvad kode skal man så bruge?
Noget ala det her ikke?
CommonDialog1.ShowSave
SaveFile HTML.Text, CommonDialog1.FileName
Form1.Caption = CommonDialog1.FileTitle
lblFilNavn.Caption = CommonDialog.FileName
Kommer and på om du bruger en normal textbox eller en RichTextBox.
Hvis du bruger en almindelig tekstboks skal du bruge
Dim Filename As String
Filename = "H:\\SAVETESTFILE.txt" 'Gem til denne fil
Open Filename For Output As #1
Print #1, Text1.Text 'Teksten der skal gemmes
Close #1
Jeg har lavet den samme kode her, men hvor den bruger CommonDialogen.
On Error GoTo SaveErr
CommonDialog1.DialogTitle = "Gem fil..." 'Dialogens titel
CommonDialog1.Filter = "Tekstfiler (*.txt)|*.txt|HTML-filer (*.html)|*.html|Alle filer (*.*)|*.*" 'Filteret
CommonDialog1.CancelError = True 'Sørger for at en fejl opstår når brugeren trykker annuller
CommonDialog1.ShowSave 'Viser gem dialogen
Open CommonDialog1.Filename For Output As #1
Print #1, Text1.Text 'Gemmer filen
Close #1
Exit Sub
SaveErr:
'Intet sker
Håber det hjalp... Hvis du til gengæld bruger RichTextBox skal du udskifte...
Open CommonDialog1.Filename For Output As #1
Print #1, Text1.Text 'Gemmer filen
Close #1
Exit Sub
Med...
'Denne funktion gemmer en fil. Du skal blot erstatte
'FilenSkalStåHer med der hvor du vil gemme din fil, eller
'erstatte det med CommonDialog1.Filename hvis du vil bruge
'den.
'Parametren rtfText, sørger for at RichTextBox'en gemmer
'filen i almindelig tekstformat, da den ellers ville gemme
'den i RTF(Rich Text Format) format.
RichTextBox1.SaveFile FilenSkalStåHer, rtfText
Jeg håber det hjalp...
