common dialog problem

hvad med?:
if dir(CommondDialog1.FileName) <> "" then
  ' skulle være en confirm box, men kan ikke huske hvordan den virker..
msgbox "filen eksisterer!"
if vbYes then ' save kode her
else
' save kode her
end if

rettelse: CommonDialog1
Jeg plejer at kalde dem CD1, CD2 osv..

Eksempel:

Private Sub Command1_Click()
On Error GoTo EndOfSub
CD1.ShowSave ' CommonDialog objekt omdøbet til CD1

If Dir(CD1.FileName) <> "" Then
tmp = MsgBox("Overskriv fil?", vbYesNo, "Overskriv fil?")
If tmp = vbYes Then MsgBox "saving..." ' save kode her
Else
' save kode her
MsgBox "saving..."
End If

EndOfSub:
End Sub

Sæt CD1's CancelError egenskab/property til Sand/True

Du kan garanteret sætte et flag for CD der bevirker at den spørger inden den overskriver... Kik på MDSN

Det er jo kun 1 linie.. If Dir(CD1.FileName) <> "" Then

martin havde ret der var sgu en property der styrede det nemlig den her: dlgBrowse.FLAGS = cdlOFNOverwritePrompt

smid et svar hvis du vil ha point martin

og tak for hjælpen begge o :)

behøver ingen...

nå ok men tak anyways :)