Ordner auslesen
08.11.2013 11:02:34
Max
ich lese mit einem Makro meine Ordner aus, z.B. meine MP3-Sammlung. Leider funktioniert es nach Umstellung auf Win7 64 Bit und Office 14 nicht mehr. Es läuft immer in die Fehlermeldung, ich habe den Link aber aus dem Explorer herauskopiert. Ich komme nicht weiter - hat jemand eine Idee?
Gruß
Max
Sub DateienAuflisten()
Dim i As Long
'hier den auszulesenden Pfad eingeben
Const verz = "Y:\2 Audiothek\1 Musik"
On Error GoTo fehler
ChDir verz
Range("A1").Select
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
ActiveCell.Value = .FoundFiles(i)
ActiveCell.Offset(1, 0).Select
Next i
End With
Exit Sub
fehler:
MsgBox "Es gibt kein Verzeichnis mit dem Namen " & verz
End Sub
Anzeige