Das Notes Forum

Sonstiges => Infrastruktur => Thema gestartet von: pd am 14.10.08 - 08:01:12

Titel: Übersicht über Verzeichnisse (Windows)
Beitrag von: pd am 14.10.08 - 08:01:12

Tach auch,

ich suche eine Möglichkeit, Dateien so rauszufiltern, dass ich sie in Excel importieren kann. Ich hab das über die cmd mit der Pipe gemacht, dann hab ich ne txt-Datei, aus der krieg ich das aber nur zeilenweise, und keine separaten Spalten für Datum, Verzeichnis usw.

Hat da einer nen Tip?


Gruß und Danke

Patrick

Titel: Re: Übersicht über Verzeichnisse (Windows)
Beitrag von: Fedaykin am 14.10.08 - 09:23:59

Hallo Patrick

Ich würde es mit WSH (Windows Script Host Object Model, Scripting.FileSystemObject) versuchen.

Sub Beispiel()
    Dim fso As New FileSystemObject
    Dim fld As Folder
    Dim objFile As file
    Dim Bereich As Range
    Dim i As Long
   
    If fso.FolderExists("c:\temp") Then
        Set fld = fso.GetFolder("c:\Temp")
        Set Bereich = ActiveSheet.Range("A1")
        For Each objFile In fld.Files
            With objFile
                Bereich.Offset(i, 0).Value = .Name
                Bereich.Offset(i, 1).Value = .Size
                Bereich.Offset(i, 2).Value = .DateLastModified
            End With
            i = i + 1
        Next objFile
    End If
End Sub

Gruss
Remo

Titel: Re: Übersicht über Verzeichnisse (Windows)
Beitrag von: pd am 14.10.08 - 10:04:59

puuuh ;-) Bin erstmal erschlagen. Da muss ich mich mal reinsteigern...


Danke, Patrick