När man sparar en fil, och det redan finns en med samma namn.
Hur gör man för att bli varnad då ?
Ex. vill du skriva över "filnamnet"




Sören

Exempelvis såhär:

<code>
If Len(dir(App.Path & "\filnamn.txt")) > 0 Then
svar = MsgBox ("Filen finns redan, vill du skriva över den?", vbYesNo)
If svar = vbYes Then
' skriv över
Else
' skriv inte över
End If
Else
' spara den - den finns inte tidigare
End If
</code>

/Pelle

Hej
Om du sparar via CommonDialog skall du
sätta denna Flagga.
CmDialog.Flags = &H2
CmDialog.FileName = "Nytt Namn"
CmDialog.ShowSave
SaveName = CmDialog.FileName

mvh
Sven

Detta funkar ju kanon bra

If Len(Dir(App.Path & "\Hej.txt")) > 0 Then
svar = MsgBox("Filen finns redan, vill du skriva över den?", vbYesNo)
If svar = vbYes Then
Open App.Path & "\Hej.txt" For Output As #1
Print #1, Text1.Text;
Close #1
MsgBox "En hälsning"
Else
' skriv inte över
End If
Else
Open App.Path & "\Hej.txt" For Output As #1
Print #1, Text1.Text;
Close #1
MsgBox "En hälsning"
End If

Men jag får inte till det om jag ska spara via CommonDialog



Tacksam för all hjälp jag fått tidigare
Sören

Så har kan du skriva för att spara genom CommonDialog:

Sub cmdSpara_Click()
Dim FileNum As Long
CommonDialog1.ShowSave
' Hitta ett ledigt filnummer.
FileNum = FreeFile
' Öppna filen för output.
Open CommonDialog1.FileName For Output As FileNum
' Skriv innehållet i textboxen till filen.
Print #FileNum, Text1.Text
' Stäng filen
Close FileNum
End Sub

Var det så här du tänkte?

//Petter