Hej Brian.
> Jeg forsøger at gemme "filen" med commondialogboksen herunder og det virker
> sådan set også ok.
>
> Mit problem er at hvis jeg klikker annuler i commondialogboksen så gemmer
> den også.
> Jeg kan desværre ikke gennemskue hvad det er jeg mangler.
Så vidt jeg kan se, skal du bruge en linje der hedder
CommonDialog1.CancelError = True
Som bevirker, at et tryk på 'Annuller' genererer en fejl, som så kan
håndteres med noget errorhandling i stedet for et direkte check af det
returnerede filnavn. Idet jeg antager, at din save-funktion virker, som
den skal, vil jeg foreslå noget i stil med følgende kode i stedet.
CommonDialog1.Filter = ".zip-files (*.zip)|*.zip|"
CommonDialog1.FileName = "Fil" & Dato
CommonDialog1.CancelError = True
On Error GoTo nosave
CommonDialog1.ShowSave
If CheckFile(CommonDialog1.FileName) = True Then
If MsgBox(CommonDialog1.FileName & " already exits - Overwrite ?", _
vbApplicationModal + vbQuestion + vbYesNo, "Save As") = vbYes Then
Kill (CommonDialog1.FileName)
Else
Open (CommonDialog1.FileName) For Binary Access Write As #1
Put #1, , filen()
Close #1
Text1.Text = "File succesfully saved
"
Endif
On Error GoTo 0
Exit Sub
nosave:
On Error GoTo 0
End Sub
God fornøjelse - håber, det virker.
Mange hilsener
Erling Grønlund