Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
604to608
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
604to608
604to608
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dateieigenschaften auslesen

Dateieigenschaften auslesen
30.04.2005 01:47:30
Walter
Moin an Alle,
da ich schon im Forum rumlese :-) noch ne Frage:
zwecks aufräumens von Serververzeichnissen (ne ganz dankbare Aufgabe :-) ) meiner Jungs + Mädels suche ich ein Makro zur Hyperlinkerstellung (das hab ich gefunden) das aber zusätzlich zum Link alle Dateiegenschaften wie Pfad, Ersteller, Ertellungsdatum, letzte Änderung, letzte Änderung/Speicherung durch...., Größe etc...jeweils in eine Spalte schreibt.
mit Dank im Voraus
Walter

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateieigenschaften auslesen
30.04.2005 08:43:47
ransi


      
Hallo walter
schau mal hier ob du damit was anfangen kannst:
Sub Dateieigenschaften()
'von k.rola
Const STRFOLDER As String = "d:\Eigene Dateien" 'anpassen
Dim objShell As Object
Dim objFolder As Object
Dim x As Byte
Dim spalte As Integer
Dim zeile As Long
Dim varName, arrHeaders(34)
If Dir(STRFOLDER, 16) = "" Then
MsgBox 
"Der Ordner " & STRFOLDER & " wurde nicht gefunden!" & Space(10), 64, "weise hin..."
Exit Sub
End If
Application.ScreenUpdating = 
False
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(STRFOLDER)
spalte = 1
For x = 0 To 33
arrHeaders(x) = objFolder.GetDetailsOf(varName, x)
Cells(1, spalte + x) = arrHeaders(x)
Next
Rows(1).Font.Bold = 
True
zeile = 2
For Each varName In objFolder.Items
For x = 0 To 33
Cells(zeile, spalte + x) = objFolder.GetDetailsOf(varName, x)
Next
zeile = zeile + 1
Next
Columns.AutoFit
Application.ScreenUpdating = 
True
End Sub
ransi 


Anzeige
AW: Danke ransi - hab auch sowas gesucht!! o.T.
05.05.2005 00:24:34
Walter
Hallo Ransi,
sorry für späte Reaktion, war'n paar Tage nicht anwsend. Werd ich testen.
Gruß
Walter

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige