Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
19.04.2024 17:05:40
Zählen von Zeilen, in denen in bestimmten Bereich Daten sind
19.04.2024 16:34:52
gemeinsamer Filter über drei Spalten
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1200to1204
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
1200to1204
1200to1204
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Musikdaten löschen

Musikdaten löschen
Sebastian
Hallo zusammen,
ich habe verhältnismässig viele Musikdateien auf dem Rechner. Leider habe ich am Anfang die CD´s nur mit niedriger Bitrate importiert.
Jetzt würde ich gerne alle Musikdaten löschen, die eine Bitrate kleiner 192 haben, löschen.
Leider habe ich aber keine Ahnung von VBA. Wer kann mir bei diesem Problem helfen?
Danke schön!
Gruß
Sebastian

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Musikdaten löschen
28.02.2011 15:18:36
Josef

Hallo Sebastian,
ACHTUNG! die Dateien sind endgültig weg, es erfolgt KEINE Rückfrage und sie landen NICHT im Papierkorb!
' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Dim varName As Object
Dim x As Byte
Dim spalte As Integer
Dim zeile As Long
Dim objShell As Object
Dim objFolder As Object
Dim arrHeaders(34)
Sub DateieigenschaftenMitSubFolder()
  'Orignal von k.rola
  Const STRFOLDER As String = "E:\MusiK\div" 'anpassen
  
  If Dir(STRFOLDER, 16) = "" Then
    MsgBox "Der Ordner " & STRFOLDER & " wurde nicht gefunden!" & Space(10), 64, "weise hin..."
    Exit Sub
  End If
  
  Set objShell = CreateObject("Shell.Application")
  Set objFolder = objShell.Namespace(STRFOLDER)
  
  getDetails objFolder
  
  Set objShell = Nothing
  Set objFolder = Nothing
  
End Sub

Private Function delMP3(objF)
  Dim objSF As Object
  
  For Each varName In objF.Items
    If varName.IsFolder Then
      Set objSF = objShell.Namespace(varName)
      getDetails objSF
    Else
      If varName Like "*.mp3" Then
        If Val(Mid(objF.GetDetailsOf(varName, 28), 2, 99)) < 192 Then
          Kill objF.Self.Path & "\" & varName
        End If
      End If
    End If
  Next
  Set objSF = Nothing
End Function


Gruß Sepp

Anzeige
AW: Musikdaten löschen
28.02.2011 19:11:48
Sebastian
Hallo Sepp,
vielen Dank für das tolle Makro.
Danke schön!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige