gabrixl
Jun 09, 2017
view1814
view7
0
Goto Top

If Statement mit SaveFileDialog - Datei Überschreiben

GermansolvedQuestionVB for ApplicationsDevelopment
Hallo Zusammen

Habe ein Problem mit dem SaveFileDialog.
Ich möchte gern überprüfen ob der Benutzer, bei der Abfrage ob er die existierende Datei überschreiben will - Ja oder Nein angeklickt hat.
Wenn es dazu schon tausende Antworten im Internet gibt tut es mir leid, habe wirklich lange (evtl. falsch) gesucht...

Jemand eine Idee?

Vielen Dank für jede Hilfe.

Gruss
comment-contentCommentShareShare
Share on Facebook Share on Twitter Share on Reddit Share on Linkedin

Content-Key: 340195

Url: https://administrator.de/contentid/340195

Printed on: April 25, 2024 at 07:04 o'clock

7 Comments
Latest comment
Goto Top
Mitglied: 133417
Solution 133417 Jun 09, 2017 updated at 12:28:26 (UTC)
Goto Top
Eine Property für das was der User dort klickt gibt es nicht.

Prüfe einfach mit dem ausgewählten Dateinamen des Dialogs ob die Datei im Dateisystem schon existiert.
if File.Exists("BlabBla") then ....

Gruß
heart1
Member: emeriks
Solution emeriks Jun 09, 2017 at 12:29:02 (UTC)
Goto Top
Hi,
die Frage ist gegenstandslos. Wenn er "nein" klickt, dann wird der Dialog nicht beendet.

E.
heart1
Member: gabrixl
gabrixl Jun 09, 2017 at 12:36:12 (UTC)
Goto Top
Danke! Also gilt SaveFileDialog1.ShowDialog() = DialogResult.OK für den gesamten Dialog, Hauptsache er wird erfolgreich durchgeführt?
Mitglied: 133417
133417 Jun 09, 2017 at 12:36:52 (UTC)
Goto Top
Jip.
Member: gabrixl
gabrixl Jun 09, 2017 at 12:50:25 (UTC)
Goto Top
Noch ne Frage, wie kann ich verhindern das jedes mal ein neues Fenster aufgeht, wenn in einer If Abfrage "SaveFileDialog1.ShowDialog()" vorkommt .

Hier mein Code:
If SaveFileDialog1.ShowDialog() = DialogResult.Cancel Then
        Else
            If File.Exists(SaveFileDialog1.FileName) And SaveFileDialog1.ShowDialog() = DialogResult.OK Then
                File.Delete(FilePath)
                File.AppendAllText(FilePath, Inserts)
            Else
                File.AppendAllText(FilePath, Inserts)
            End If
End If

Gut möglich das es nicht schön gelöst ist, bin Anfänger..
Mitglied: 133417
Solution 133417 Jun 09, 2017 updated at 12:57:44 (UTC)
Goto Top
If SaveFileDialog1.ShowDialog() = DialogResult.OK Then
    if File.Exists(SaveFileDialog1.FileName) then
         File.Delete(SaveFileDialog1.FileName)
    End If
End if
heart1
Member: gabrixl
gabrixl Jun 09, 2017 at 13:36:24 (UTC)
Goto Top
Hat geklappt, danke!
GermansolvedQuestionVB for ApplicationsDevelopment
Hotly discussed
gleixnerdCheck of ZFW Firewallgleixnerd - 5 CommentsjstrickerWireguard VPN on UDM Pro behind Fritzbox - Handshake did not completejstricker - 3 Comments