Daten von CD auslesen
21.02.2005 21:29:05
CD
ich habe, dank K-Rola, folgendes Makro in einer Excel Tabelle :
Sub VerzeichnisseAuslesen()
Dim strLookIn As String, objFs As Object, lngi As Long, strFileName As String
Dim strPur As String
'Hier muss der Buchstabe des Laufwerks angepasst werden
'------------------------------------------------------
strLookIn = "J:\"
'------------------------------------------------------
strFileName = "*.mp3"
Set objFs = Application.FileSearch
With objFs
.LookIn = strLookIn
.FileName = strFileName
.SearchSubFolders = True
If .Execute > 0 Then
For lngi = 1 To .FoundFiles.Count
strPur = .FoundFiles(lngi)
DAT.Cells(lngi, 1) = Name_pur(strPur)
Next
End If
End With
Columns(1).AutoFit
Set objFs = Nothing
End Sub
Private Function Name_pur(strDatei As String) As String
Dim objFso As Object
Set objFso = CreateObject("Scripting.FileSystemObject")
Name_pur = objFso.GetBaseName(strDatei)
End Function
Damit lassen sich die MP3 Verzeichnisse der CD auslesen. Nun wollte ich das Makro ändern, um mir den Inhalt anderer CD's anzeigen zu lassen, aber egal was ich eingebe, es geht nicht.
Ich möchte lediglich das Hauptverzeichnis der CD auslesen lassen, aber mein Makro liest immer auch alle Unterverzeichnisse und zeigt mir alle Daten der CD an.
Wer kann mir helfen ?
MfG
Hans
Anzeige