Datei-Eigenschaften auslesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Volker!
habe leider noch keine VBA-Erfahrung und möchte nun die ersten VBA-Schritte machen.
Und dann gleich Datei-Manipulationen im Dateisystem? Na gut, aber...
Ich möchte aus den (geschlossenen) Dateien ... die Eigenschaften (Dateiname,Pfad,letzte Speicherung) auslesen
Dateiname und -pfad sind Dir ja offenbar bekannt - wozu also auslesen? Da ist es vermutlich besser, alle Dateien in Deiner Tabelle aufzulisten (zB ab A2:Ax) und diesen Bereich dann in einer Schleife abzuarbeiten um für alle dort gelisteten Dateien (inkl. vollständigem Pfad!) die letzte Änderung auszulesten und aufzulisten.
Oder Du gibst im Code nur das Ausgangsverzeichnis an (bspw. Z:\Finance\ZZ-Filetransfers\) und in der Tabelle nur die Dateinamen, oder Du lässt das Ausgangsverzeichnis per Datei-Dialog auswählen oder, oder, oder...
Wie sehen Deine Verhältnisse/Bedürfnisse denn konkret aus... Da geht's doch sicher nicht um nur zwei Tabellen, oder?!
LG
Michael

VollständigerDateiname = "Z:\Finance\ZZ-Filetransfers\Matstamm.xlsx" Pfad = Left(VollständigerDateiname, InstrRev(VollständigerDateiname, "\") - 1) Dateiname = Mid(VollständigerDateiname, InstrRev(VollständigerDateiname, "\") + 1)

Sub ShowLastMod() Const STR_BLATT As String = "Upload-Info" Dim Wb As Workbook Dim Ws As Worksheet Dim r As Range Dim f As Range Dim sPfad As String Dim sDname As String Dim oFSO As Object Dim oFile As Object Set Wb = ThisWorkbook Set Ws = Wb.Worksheets(STR_BLATT) Set oFSO = CreateObject("Scripting.FileSystemObject") With Ws Set r = .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row) For Each f In r If Not f.Value = vbNullString Then sPfad = f.Text If Right(sPfad, 1) "\" Then sPfad = sPfad & "\" sDname = f.Offset(, 1).Text Set oFile = oFSO.getfile(sPfad & sDname) f.Offset(, 2).Value = oFile.DateLastModified End If Next f End With End Sub

Hallo!
Gelle ;-)... Hier mit Hinweis:

Sub ShowLastMod()
'Auf dem Blatt Upload-Info, in A1:C3 stehen Überschriften,
'd.h. Pfad- und Dateieinträge ab A2.
Const STR_BLATT As String = "Upload-Info"
Dim Wb As Workbook
Dim Ws As Worksheet
Dim r As Range
Dim f As Range
Dim sPfad As String
Dim sDname As String
Dim oFSO As Object
Dim oFile As Object
Set Wb = ThisWorkbook
Set Ws = Wb.Worksheets(STR_BLATT)
Set oFSO = CreateObject("Scripting.FileSystemObject")
With Ws
Set r = .Range("A2:A" & .Cells(.Rows.Count, 1).End(xlUp).Row)
For Each f In r
If Not f.Value = vbNullString Then
sPfad = f.Text
If Right(sPfad, 1)  "\" Then sPfad = sPfad & "\"
sDname = f.Offset(, 1).Text
If oFSO.FileExists(sPfad & sDname) = True Then
Set oFile = oFSO.getfile(sPfad & sDname)
f.Offset(, 2).Value = oFile.DateLastModified
Else: f.Offset(, 2).Value = "Datei nicht gefunden!"
End If
End If
Next f
End With
End Sub

Passt?
LG
Michael

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Datei-Eigenschaften auslesen

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

1 Forumthread zu ähnlichem Thema

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread