Hey,
Ich habe einen Button und einen FolderBrowserDialog erstellt.
Man soll per Dialog Ordner XY öffnen und dieser Ordner muss Datei XYZ.exe enthalten...
If File.Exists("FolderBrowserDialog1.SelectedPath\xyz.exe") Then
habe die Erste Zeile so gemacht... Aber funktioniert nicht 
EDIT:// Das mit Löschen soll dann so sein, wenn XYZ.exe da ist, soll Gecheckt werden ob Datei:
a.exe
b.exe
c.exe
da ist, wenn ja , soll diese gelöscht werden
Deine Variante würde jetzt den Pfad 'FolderBrowserDialog1.SelectedPath\xyz.exe' aufrufen der nicht existiert.
Ersetz mal deine Zeile mit dieser hier:
If File.Exists(FolderBrowserDialog1.SelectedPath + "\xyz.exe") Then
If File.Exists(FolderBrowserDialog1.SelectedPath + "\a.exe") Then
File.Delete(FolderBrowserDialog1.SelectedPath + "\a.exe")
End If
If File.Exists(FolderBrowserDialog1.SelectedPath + "\b.exe") Then
File.Delete(FolderBrowserDialog1.SelectedPath + "\b.exe")
End If
If File.Exists(FolderBrowserDialog1.SelectedPath + "\c.exe") Then
File.Delete(FolderBrowserDialog1.SelectedPath + "\c.exe")
End If
End IfIf File.Exists(FolderBrowserDialog1.SelectedPath +"\xyz.exe") then My.Computer.Filesystem.Deletefile("PFAD")If File.Exists(FolderBrowserDialog1.SelectedPath + "\xyz.exe") Then
Danke:D
Und wie gehts es nun, das wenn
Datei:
a.exe
b.exe
usw.
Vorhanden ist, gelöscht wird?
Alles anzeigenDanke:D
Und wie gehts es nun, das wenn
Datei:
a.exe
b.exe
usw.
Vorhanden ist, gelöscht wird?
Schau oben ich habe meinen Post editiert.
Schau oben ich habe meinen Post editiert.
Geht nicht...
Hier mein Code
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FolderBrowserDialog1.ShowDialog()
If File.Exists(FolderBrowserDialog1.SelectedPath + "\gta_sa.exe") Then
TextBox2.Text = FolderBrowserDialog1.SelectedPath
If File.Exists(FolderBrowserDialog1.SelectedPath + "\Uninstall_mod_sa.exe") Then
File.Delete(FolderBrowserDialog1.SelectedPath + "\Uninstall_mod_sa.exe")
End If
If File.Exists(FolderBrowserDialog1.SelectedPath + "\mod_sa.ini") Then
File.Delete(FolderBrowserDialog1.SelectedPath + "\mod_sa.ini")
End If
If File.Exists(FolderBrowserDialog1.SelectedPath + "\mod_sa.raw") Then
File.Delete(FolderBrowserDialog1.SelectedPath + "\mod_sa.raw")
End If
If File.Exists(FolderBrowserDialog1.SelectedPath + "\mod_sa_ChangeLog.txt") Then
File.Delete(FolderBrowserDialog1.SelectedPath + "\mod_sa_ChangeLog.txt")
End If
If File.Exists(FolderBrowserDialog1.SelectedPath + "\mod_sa_setup.log") Then
File.Delete(FolderBrowserDialog1.SelectedPath + "\mod_sa_setup.log")
End If
If File.Exists(FolderBrowserDialog1.SelectedPath + "\needle.png") Then
File.Delete(FolderBrowserDialog1.SelectedPath + "\needle.png")
End If
If File.Exists(FolderBrowserDialog1.SelectedPath + "\speedo.png") Then
File.Delete(FolderBrowserDialog1.SelectedPath + "\speedo.png")
End If
Else
MsgBox("Die gta_sa.exe ist nicht im Ordner enthalten!")
End If
End Sub
End ClassErledigt:) Passt schon
Dim files() As String = {"datei1", "datei2", "etc"}
For Each fl As String In files
If IO.File.Exists(FolderBrowserDialog1.SelectedPath & "" & fl) Then
IO.File.Delete(FolderBrowserDialog1.SelectedPath & "" & fl)
End If
Nextich würde es so machen da brauchst du weniger tippen und kannst weitere Dateien einfach in die Array eintragen. Dann verliert man die Übersicht nicht so schnell.
