objShell.Namespace
tobi
ich rufe mit folgendem VBA-Code die Dateieigenschaften von Dateien aus einem Verzeichnis ab:
For x = 0 To 14
arrHeaders(x) = objFolder.GetDetailsOf(varName, x)
Next
und übertrage diese Eigenschaften mit der folgenden Anweisung in ein WorkbooK:
for Each varName In objFolder.Items
Cells(lngRow, intColumn + x) = objFolder.GetDetailsOf(varName, x)
Das funktioniert auch prima, die jeweilige Dateiendung (z. B. .xls , .pdf, ...) wird aber nur dann mit übertragen, wenn in der Systemsteuerung und dort den Ordneroptionen die Funktion "Erweiterung bei bekannten Dateitypen ausblenden" deaktviert ist.
Kann ich, unabhängig von der gesetzten Einstellung, die übertragung des vollständigen Dateinamens irgendwie erzwingen?
Wie immer vielen Dank für die Hilfe :-)
Gruß,
Tobi