programm zum löschen mehrer mp3 dateien

[broken-promise]

Hallo,
ich würde gerne ein programm schreiben mit dem ich alle mp3 dateien indem ordner indem auch das programm ist aufeinmal löschen kann...es sollte auber wenns geht auch eine funktion haben mit der mir alle mp3's aufgelistet werden und ich dann alle auswählen kann...und dann halt auch welche einzeln löschen kann...

 

[wincnc]

Hallo, dazu benötigst Du eine FileListBox (File1) und einen Button (Command1).

Bei der FileLixstBox musst Du die Eigenschaft Multiselect auf 1 - Einfach oder auf 2 - Erweitert stellen.

Private Sub Form_Load()
  File1.Pattern = "*.mp3"
  File1.Path = "C:\DeinMp3Ordner"
End Sub

Private Sub Command1_Click()
  Dim N As Integer
  
  For N = File1.ListCount - 1 To 0 Step -1
    If File1.Selected(N) Then
      Kill File1.Path & "\" & File1.FileName
    End If
  Next
  
  File1.Refresh
  
End Sub

 

[Maik]

*offtopic*

@broken-promise: Bitte beachte beim Verfassen deiner Beiträge die Netiquette #15 bzgl. der Groß- und Kleinschreibung. Vielen Dank.

 

[broken-promise]

Jetzt bräuchte ich aber 1. noch ne Funktion das das Program selbst erkennt in welchem Ordner es ist,weil es auf meinem mp3 player sein soll...
2.Sollte es mir auch die mp3's aus den Unterordnern anzeigen...

und 3. würde ich auch gerne mehrere aufeinmal markieren können...

aber trotzdem vielen dank an wincnc