CommmonDialog

denstiduvilgemmetil=CommonDialog1.Filename


:o)

/Jennemaan

CommonDialog1.Filter = \"*.txt\"
CommonDialog1.filename = \"text1\"
CommonDialog1.ShowSave
       

Du skal jo selv skrive filen bag efter, det gør CommonDialog ikke for dig:

Private Sub mnu_gem()
CommonDialog1.ShowSave
Open CommonDialog1.Filename For Output as 1
print #1,Text1.Text
Close 1
End Sub

Svaret findes i dette spørgsmål:

http://www.eksperten.dk/spm/60435

mvh
Johs_j

Gad nok vide om dth er interesseret i et svar, for svaret fra driis ser rigtig ud.

johs_j > jeg ville da også mene at mit svar var ok...

/Jennemaan

DETTE VIRKER
sæt denne kode ind under en commandbutton og tilføj commondialog controlleren og giv den navnet CommonDialog1

Dim sFilnavn As String
On Error GoTo mnuGemSomErr1
CommonDialog1.CancelError = True
CommonDialog1.DefaultExt = \"txt\"
CommonDialog1.Filter = \"Tekst Filer [*.txt]|*.txt|Alle filer [*.*]|*.*\"
CommonDialog1.FileName = sFilnavn
CommonDialog1.ShowSave
sFilnavn = CommonDialog1.FileName
On Error GoTo mnuGemSomErr2
Open sFilnavn For Output As 1
  Print #1, Text1.Text
Close #1
FileChanges = False
Text1.SetFocus
Exit Sub
mnuGemSomErr2:
  MsgBox Error
  Exit Sub
mnuGemSomErr1:
  Exit Sub