Excel vba: Dateiliste auswerten

[snb]

Reicht schon:

Code:

Private Sub workbook_open()
   sn=sheets(1).columns(1).specialcells(2).resize(,2)

   for j=1 to ubound(sn)
     sn(j,1)=filedatetime(sn(j,1))
     sn(j,2)=filelen(sn(j,1))
   next

   sheets(1).cells(1,2).resize(ubound(sn),2)=sn
End Sub

[sharky51]

Oh je das Teil verstehe ich nicht.
Trotzdem vielen Dank für Deinen Beitrag.

[00202]

Hallo, :19:

das kannst Du mit dem bestehenden Modul so machen: :21:

Code gehört unter "DieseArbeitsmappe":

Code:

Option Explicit
Private Sub Workbook_Open()
    Dim lngRow As Long
    ' Tabelle1 bei Bedarf anpassen!!!
    With ThisWorkbook.Worksheets("Tabelle1")
        ' Ab Zeile 1 - sonst anpassen!!!
        For lngRow = 1 To IIf(IsEmpty(.Cells(.Rows.Count, 1)), _
            .Cells(.Rows.Count, 1).End(xlUp).Row, .Rows.Count)
            Call Main(Cells(lngRow, 1).Text, Cells(lngRow, 1).Address)
        Next lngRow
    End With
End Sub

"Tabelle1" und "lngRow" musst Du gegebenenfalls anpassen.

Im Tabellenblatt würde ich den Code für "Rechtsklick" noch so abändern:

Code:

Option Explicit
Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
    If Target.Column = 1 And Target.CountLarge = 1 Then
        If Trim(Target.Value) <> "" Then Call Main(Target.Text, Target.Address): Cancel = True
    End If
End Sub

Damit du den Rechtsklick auch in leeren Zellen noch normal nutzen kannst, der Code nur in Spalte A geht und nicht bei Markierungen von mehr als einer Zelle losrennt.

Den Code von "snb" kannst Du nutzen, wenn dir zwei Informationen genügen. FileDateTime-Funktion und FileLen-Funktion. Die erste Funktion gibt dir das "Erstell- bzw. letzte Änderungsdatum" zurück - gleichbedeutend mit "DateLastModified" aus meinem Beispiel. "DateCreated" (außer die Datei wurde noch nie geändert) und "DateLastAccessed" erhältst du so nicht.

[sharky51]

Guten morgen Ralf,

das ist einfach genial und funktioniert perfekt. Herzlichen Dank dafür!!!!
Vor Euch Jungs (Mädels) hier im Forum muss man sich echt verneigen.

Ich wünsche Dir noch einen schönen Sonntag.

[00202]

Guten morgen Ralf,

Ich wünsche Dir noch einen schönen Sonntag.

Hallo Erich, :19:

den wünsche ich Dir auch. :21: