Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
25.04.2024 10:38:52
Bedingte Formatierung per VBA / MaxPoint
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1852to1856
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1852to1856
1852to1856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei suchen in Unterordner und löschen

Datei suchen in Unterordner und löschen
31.10.2021 21:10:00
chris
Hallo liebes Forum,
ich bin seid langer Zeit mal wieder hier und muss um Hilfe bitten.
Es geht um ein kompliziertes Problem für mich.
Ich möchte aus einem Ordner z.b C:/test/ alle MP3 Lieder finden lassen.
Diese gefundenen Lieder sollen dann im Ordner D:\MP3\meine Lieder\
gefunden und gelöscht werden.
Der Ordner D:\MP3\meine Lieder\ hat aber auch Unterordner die mit durchsucht werden sollen.
Könnt ihr mir helfen ?
Vielen lieben Dank !

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei suchen in Unterordner und löschen
31.10.2021 21:41:43
ralf_b
Solche Lösungen gibts schon. Erst suchen, finden, dann bei Umsetzungsproblemen Fragen stellen.
AW: Datei suchen in Unterordner und löschen
31.10.2021 23:06:35
volti
Hallo Chris,
hier eine Idee zum Ausprobieren. Auf eigene Gefahr...
Code:



[Cc]



Option Explicit

Sub MP3_Loeschen()
' Sub löscht Dateien auch in Unterordnern
  Dim sArr1() As String, sArr2() As String, i As Long
  Dim sPath1 As String, sPath2 As String
 
  sPath1 = "D:\MP3\meine Lieder\*.mp3"  ' Löschordner
  sPath2 = "C:\test\"                   ' Prüfordner
 
  sArr1 = Split(CreateObject("wscript.shell").exec("cmd /c dir " & Chr$(34) _
                & sPath1 & Chr$(34) & " /b/s").stdout.readall, vbCrLf)
  For i = 0 To UBound(sArr1) - 1
    sArr2 = Split(sArr1(i), "\")
    If Dir$(sPath2 & sArr2(UBound(sArr2))) <> "" Then
       Kill sArr1(i)
    End If
  Next i
End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Anzeige
AW: Datei suchen in Unterordner und löschen
01.11.2021 00:16:32
chris
Hallo Karl-Heinz,
klappt wunderbar.
Vielen DanK !
AW: Datei suchen in Unterordner und löschen
01.11.2021 01:15:57
chris
Hallo Karl-Heinz,
hätte da doch noch eine frage. Und zwar habe ich oder bekomme ich Probleme wenn es um Dateien geht die zu löschen sind die ä oder ö oder ü beinhalten. Warum ist das so ? Und was macht dieser Code teil den verstehe ich ganz und gar nicht ;(
sArr1 = Split(CreateObject("wscript.shell").exec("cmd /c dir " & Chr$(34) _
& sPath1 & Chr$(34) & " /b/s").stdout.readall, vbCrLf)
Vielen lieben Dank noch einmal !
AW: Datei suchen in Unterordner und löschen
01.11.2021 08:25:39
volti
Moin Chris,
schau mal, ob es jetzt besser hinkommt...
Code:



[Cc]



Option Explicit

Private Declare PtrSafe Function OemToCharA Lib "user32" ( _
        ByVal lpszSrc As String, ByVal lpszDst As String) As Long

Sub MP3_Loeschen()
' Sub löscht Dateien auch in Unterordnern
  Dim sArr1() As String, sArr2() As String, i As Long
  Dim sPath1 As String, sPath2 As String, sDateien As String
 
  sPath1 = "D:&bsol;MP3&bsol;meine Lieder&bsol;*.mp3"  ' Löschordner
  sPath2 = "C:&bsol;test&bsol;"                   ' Prüfordner

  sDateien = CreateObject("wscript.shell").exec("cmd /c dir " & Chr$(34) _
           & sPath1 & Chr$(34) & " /b/s").stdout.readall
  OemToCharA sDateien, sDateien
  sArr1 = Split(sDateien, vbCrLf)
  
  For i = 0 To UBound(sArr1) - 1
    sArr2 = Split(sArr1(i), "&bsol;")
    If Dir$(sPath2 & sArr2(UBound(sArr2))) <> "" Then
       Kill sArr1(i)
    End If
  Next i
End Sub
_________________________
viele Grüße aus Freigericht 😊
Karl-Heinz

Anzeige
AW: Zusatzinfo
01.11.2021 08:49:28
volti
Hallo Chris,
dieser Codeteil hier
sArr1 = Split(CreateObject("wscript.shell").exec("cmd /c dir " & Chr$(34) _
& sPath1 & Chr$(34) & " /b/s").stdout.readall, vbCrLf)
listet über den alten DOS-Befehl Dir alle relevanten Dateien und schafft sie in ein Array, welches später bequem ausgewertet werden kann.
Die möglichen Parameter zum Dir-Befehl kannst Du in der DOS-Umgebung cmd über C:\Dir /? ermitteln.
Gruß
Karl-Heinz
AW: Zusatzinfo
01.11.2021 12:08:45
chris
Dankeschön !
Schönen Feiertag !

309 Forumthreads zu ähnlichen Themen

Wechselnde Werte in VBA
Oliver

Hallo VBAler,
ich habe folgendes Problem, ich möchte gern eine Strategie an Hand von Hoch und Tiefpunkten testen, dies hat bisher einwandfrei funktioniert ... nun soll aber zwischen jedem ermitteltem Hoch zu einem Tief 3 Monate liegen - von Tief zu hoch besteht weiter mindesthaltedauer 1 M...
01.09.2008 14:39:15
Thread-ID: 1006370
6 Beiträge
Anzeige
FTP: Die Datei in den gleichen Ordner imopt.
Edie

Hallo zusammen,
habe im Archiv nachfolgende Code gefunden. Es wird per FTP eine Textdatei vom Server
runtergeladen. Dabei sollte die Textdatei in den gleichen Ordner importiert werden, dazu habe
ich den Code etwas angepasst mit: Dim Path$ und Path = ThisWorkbook.Path
In der Lo...
17.11.2008 20:22:40
Thread-ID: 1025395
4 Beiträge
Umwandeln in Zahlen mit VBA
Bernhard

Hallo liebe Excel-Experten,
heute brauche ich Eure Hilfe für folgendes Problem: Ich importiere Daten aus einer anderen Anwendung nach Excel und ich bekomme die Zahlen als Text formartiert. Die Zahlen sehen z.B. wie folgt aus: 4.75m, was als Zahl 4750000 entspricht. Ist es mit einem VBA-Code...
25.11.2008 13:46:12
Thread-ID: 1027705
4 Beiträge
Anzeige
Dateien löschen auch in Unterordner
Andre´

Hallo alle zusammen,
Ich möchte alle TXT-Dateien löschen die sich unter:
C:\Backup\Jahr
befinden aber nur wenn diese älter als 60 Tage sind.
Dabei sollen auch alle Unterordner falls vorhanden durchsucht werden.
Ich hoffe mir kann jemand helfen.
Vielen Dank im Voraus!
...
16.01.2009 12:10:00
Thread-ID: 1040526
12 Beiträge
Formeln in Zelle per VBA festlegen
Ryu

Hallo zusammen,
fällt jemanden auf warum es zu Fehler 1004 bei folgendem Code kommt? Es liegt an der Zeile wo ich die Formel in "H4" definiere. Dort möchte ich mit Funktion Verweis den Wert der Spalte C (Blatt Daten) rausfinden, wenn es dem Wert der Spalte D (Blatt Daten) gleich D11 (Blatt...
24.02.2009 16:15:40
Thread-ID: 1053577
9 Beiträge
Worddateien in Ordner auslesen
Dirk

Hallo Excelgemeinde!
Ich brauche eure Hilfe!!!!
Ich habe folgendes Problem:
Ich muß bestimmte Daten aus allen vorhandenen Word Dokumenten in einem Verzeichnis (inkl. Unterverzeichnisse) auslesen. Ich habe bereits eine Exceldatei mit der ich eine Worddatei in einem Verzeichnis auswäh...
14.03.2009 19:39:18
Thread-ID: 1060243
7 Beiträge
Alle Dateien eines Ordners öffnen
Florian

Hallo liebes Forum,
habe wieder mal eine Frage:
wie kann ich alle Workbooks in einem [bestimmten] Ordner ansprechen? Der Pfad ist mir dabei nur teilweise bekannt, d.h. ich kenne den genauen Anfang des Pfades nicht (dieser ändert sich mit jedem Durchlauf). Das Ende des Pfades ist mir wie...
07.04.2009 15:04:17
Thread-ID: 1067433
2 Beiträge
Dateien in Ordner bewegen
Claudia

Hallo zusammen,
ich stehe vor einer unlösbaren Aufgabe. Bleibt sie ungelöst, bin ich der "A..... der Welt" und muss das händisch machen.
Also ich beschreibe mein Problem.
Es gibt einen Ordner "Kundenverträge" (Pfad ist ja erst einmal egal, den müsste ich ohnehin noch anpassen).
...
17.04.2009 17:14:40
Thread-ID: 1069345
15 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
9
3
3
1
11
8
6
1
14
4
3
4
3
17
3
3
3
1
13
6
1
3
5
17