Hallo zusammen,
ich habe einen Code gebastelt, der Ordner, Unterordner und Datei ausliest. Und ich möchte gerne, dass die Überschriften
ActiveSheet.Cells(Zeile, Spalte + 1).HorizontalAlignment = xlLeft
ActiveSheet.Cells(Zeile, Spalte + 1) = "erstellt"
ActiveSheet.Cells(Zeile, Spalte + 2).HorizontalAlignment = xlLeft
ActiveSheet.Cells(Zeile, Spalte + 2) = "letzte Änderung"
ActiveSheet.Cells(Zeile, Spalte + 3).HorizontalAlignment = xlLeft
ActiveSheet.Cells(Zeile, Spalte + 3) = "Dateigröße in MB"
nur geschrieben werden, wenn sich auch wirklich Dateien im Ordner befinden (sonst sind die Überschriften logischerweise nicht notwendig); derzeit werden die Überschriften immer neben den Ordner ausgegeben, egal ob eine "Dateiauflistung" erfolgt oder nicht. Vielleicht mit If When möglich? Aber wie heißt der Befehl "Ordner leer"?
Danke im Voraus und viele Grüße
ElAdvento |