ich möchte alle Dateien mit Endung "*.dwg" von einem vorgegebenen Verzeichnis inklusive Unterverzeichnissen in ein Excelsheet ausgeben.
Mit den Archiveinträgen kam ich nicht zurecht.
dim fsObject as object
set fsObject = application.filesearch
with fsObject
.lookin = "c:\test\"
.searchsubfolders = true
.filename = "*.dwg"
if .execute größer (natürlich als Größer Zeichen) 0 then
for index = 1 to .foundfiles.count
cells(index,1)=.foundfiles(index)
next index
endif
end with
dieser code liefert mir immer Laufzeitfeher 445; Object unterstützt diese Aktion nicht in der Zeile
set fsObject = application.filesearch
Wer weiß Rat?
Danke für Hilfe,
Heinz