Alle Dateien mit bestimmter Endung löschen

YtEx · 25. Februar 2009, 16:53

Kann man z.B. alle .txt-Dateien aus dem Ordner "C:\Textdateien und mehr\zu_löschen" alle .txt-Dateien löschen lassen. Es ist aber wichtig, dass die anderen Dateien erhalten bleiben.

EDIT: Wieso kommt man jetzt gerade eigentlich fast nicht mehr ins Forum oder liegt das Problem bei mir?

foxm2k · 25. Februar 2009, 17:03

Und noch einmal:

VB.NET-Quellcode

Dim m_Dir As IO.DirectoryInfo = New IO.DirectoryInfo("C:\")
For Each sFile As IO.FileInfo In m_Dir.GetFiles("*.txt")
... hier löschen...
Next

Gruß,

f0x

basti2485 · 25. Februar 2009, 17:06

YtEx schrieb:

...

EDIT: Wieso kommt man jetzt gerade eigentlich fast nicht mehr ins Forum oder liegt das Problem bei mir?

Ne liegt nicht nur an dir.
is bei mir auch

YtEx · 25. Februar 2009, 17:07

Also:

VB.NET-Quellcode

Dim m_Dir As IO.DirectoryInfo = New IO.DirectoryInfo("C:\")
For Each sFile As IO.FileInfo In m_Dir.GetFiles("*.txt")
My.Computer.Filesystem.Deletefile("*.txt")
Next

Geht das auch mit relativen Pfadangaben (also alles, was sich im Ordner der .exe befindet und die .txt-Endung hat)?

foxm2k · 25. Februar 2009, 17:12

Den bekommst du mit Application.StartupPath heraus.

YtEx · 25. Februar 2009, 17:24

So?

VB.NET-Quellcode

Dim m_Dir As IO.DirectoryInfo = New IO.DirectoryInfo(Application.StartupPath)
For Each sFile As IO.FileInfo In m_Dir.GetFiles("*.txt")
My.Computer.Filesystem.Deletefile("*.txt")
Next

foxm2k · 25. Februar 2009, 17:25

Ähm... ja..
Warum probierst du es nicht einfach aus?

YtEx · 25. Februar 2009, 17:27

beim Programmieren sollte man nie zu große Risiken eingehen. Schließlich könnte ich nachher keine .txt-Dateien mehr auf meiner Festplatte haben

Ich teste es mal.

foxm2k · 25. Februar 2009, 17:29

Dann schau dir zunächst mal an, was raus kommt bei Application.StartupPath.ToString

YtEx · 25. Februar 2009, 17:30

VB.NET-Quellcode

Dim m_Dir As IO.DirectoryInfo = New IO.DirectoryInfo(Application.StartupPath)
For Each sFile As IO.FileInfo In m_Dir.GetFiles("*.txt")
My.Computer.Filesystem.Deletefile("*.txt")
Next

Nein, hat nicht geklappt. Aber es gab eine coole Meldung: "Illegales Zeichen im Pfad"
Wie könnte es sonst gehen?

foxm2k · 25. Februar 2009, 17:39

Ja, wie lautet denn der Pfad? Welchen Wert hat Application.StartupPath.ToString? Mach doch einfach mal in die For Each Schleife eine MsgBox in der du jede Datei mit Pfad ausgeben läßt. Dann weißt du auch ziemlich schnell wo der Fehler liegt.

YtEx · 25. Februar 2009, 17:41

Mein Pfad: Application.StartupPath

foxm2k · 25. Februar 2009, 17:45

Hast du das etwa in Anführungszeichen gesetzt??
Sorry, aber so kommen wir hier nicht weiter. Du hast eigentlich alles was du brauchst um das zu lösen, jetzt mußt du es nur noch zusammenbasteln. Setz die Breakpoints, debugge durch und probier ein wenig, dann hast du das gleich raus.

Gruß,

f0x

YtEx · 25. Februar 2009, 17:47

ich muss nur wissen, wie die gefundenen dateien heißen

foxm2k · 25. Februar 2009, 17:51

Das steht doch in sFile drin. Du hast das Prinzip nicht verstanden, da liegt dein Problem. Nimm dir die Zeit und schaus dir an.

YtEx · 25. Februar 2009, 17:54

ok. hat geklappt. ich hatte sfile schon da drin, aber es konnte nicht konvertiert werden; lösung:
sfile.tostring

Danke

foxm2k · 25. Februar 2009, 18:13

Na, is doch klar sFile ist ja auch ein Objekt der Klasse IO.FileInfo und kein String-Objekt. Das meinte ich damit, als ich sagte setz dich mal mit dem Konzept auseinander.

Memo · 25. Mai 2010, 12:58

VB.NET-Quellcode

Dim files As ReadOnlyCollection(Of String)
files = My.Computer.FileSystem.GetFiles("C:\Textdateien und mehr\zu_löschen", FileIO.SearchOption.SearchAllSubDirectories, "*.txt")
For index As Integer = 0 To files.Count - 1
My.Computer.FileSystem.DeleteFile(files.Item(index))
Next

Ich denke so gehts

Samus Aran · 25. Mai 2010, 14:54

Ich denke, nach mehr als einem Jahr sollte der Threadersteller das Problem gelöst bekommen haben.

OliverSte · 14. September 2017, 13:13

Ja, der Thread ist alt. Aber man findet das Ding bei der Suche nach einer Lösung.
Ich habe eine:

VB.NET-Quellcode

FileSystem.Kill(Pathname as String)

löscht Dateien und verarbeitet auch Wildcards (*).

VB.NET-Quellcode

My.Computer.FileSystem.DeleteFile()

verarbeitet nur einzelne Dateien.

Sehr schön. Reicht damit auch. Fall es Diskussionsbedarf gibt, bitte nicht mehr in diesem Thread. Geschlossen. ~fufu

Alle Dateien mit bestimmter Endung löschen

Alle Dateien mit bestimmter Endung löschen

VB.NET-Quellcode

YtEx schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

2 Benutzer haben hier geschrieben