Hjælp til database/fil håndtering

Det er jo helt oplagt at lave en database....

Men ellers er det bare at loope gennem din mappe med alle undermapper, og se om første karakter er lig den karakter du søger, f.eks. A

Opret reference til MicroSoft Scripting Runtime (Project -> References, vistnok)

Dim fso As Scripting.FileSystemObject
Set fso = New Scripting.FileSystemObject
FindFile "A", fso.GetFolder("c:\CD")


'--- Søgerutine---
Private Sub FindFile(SearchChar as String, folder As Scripting.folder)
Dim tmpFolder As Scripting.folder
Dim tmpFile As Scripting.File
  If folder.SubFolders.Count > 0 Then
    For Each tmpFolder In folder.SubFolders
      FindFile SearchChar, tmpFolder
    Next
  End If
  If folder.Files.Count > 0 Then
    For Each tmpFile In folder.Files
      If lcase(left(tmpFile.Name,1)) = lcase(searchChar) Then
        msgbox "Fil fundet : " & tmpfile.name
        'Mere kode - f.eks. smid den over i en filelist
      End If
    Next
  End If
End Sub


Kan også gøres med rekursiv søgning, se f.eks. :
http://vbnet.mvps.org/index.html?code/fileapi/recursivefiles_minimal_multiple.htm

Hej.

Nogle hundrede timers arbejde og du har noget som:  http://jkfsoft.dk/musik32.htm
Der kan vises billeder af covers, men der er desuden en base til at oprette solister og gruppe i hvor der kan gemmes billeder og URL'er samt andre data.
MP3-filer på disken skal omdøbes så deres navne passer til nummereringen.  De må ikke ligge i mapper under solist \ albumtitel el. lign.  Til gengæld kan der fra programmet dannes en sådan struktur med henblik på brænding el.lign. udtræk.

M.v.h.  Jørn