Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
572to576
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
572to576
572to576
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Daten von CD auslesen
21.02.2005 21:29:05
CD
Hallo Exel Experten,
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

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Daten von CD auslesen
CD

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 = "*.*"
Set objFs = Application.FileSearch
With objFs
.LookIn = strLookIn
.FileName = strFileName
.SearchSubFolders = False
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

Ulf
nicht ganz
21.02.2005 21:41:28
Hans
Hallo Ulf
habe das Makro ausprobiert, geht leider nicht!
So liest es leider alle möglichen Daten aus.
Auf der eingelegten CD sind 7 Ordner und 7 andere Dateien (install; info; usw)
Excel zeigt mir aber 479 Einträge an.
MfG
Hans
Anzeige
AW: habe mal die datei hochgeladen
Ulf
Du hast die entscheidende Zeile:
.SearchSubFolders = False
nicht geändert!
Ulf
Super Ulf, das war's ! Echt klasse ! o.T.
21.02.2005 22:37:44
Hans

300 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige