Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Dateien auf Serverlaufwerk auslesen

Forumthread: Dateien auf Serverlaufwerk auslesen

Dateien auf Serverlaufwerk auslesen
18.05.2018 12:57:12
Tom
Hallo,
ich prüfe die Dateien die auf dem Server liegen über folgenden Code, benötige aber noch zudem das Anlegedatum. Wie lässt sich der Code dahingehend erweitern?
  • 
    Sub Vorrat()
    Dim fs As Object
    Dim fVerz As Object
    Dim fDatei As Object
    Dim fdateien As Object
    Dim strDat As String
    Dim Zeile As Integer
    Columns("A:A").Select
    Selection.ClearContents
    Set fs = CreateObject("scripting.FileSystemObject")
    Set fVerz = fs.getFolder("T:\1_DEMAND\")
    Set fdateien = fVerz.Files
    For Each fDatei In fdateien
    If InStr(fDatei, "") > 0 Then
    Zeile = Zeile + 1
    Cells(Zeile, 1) = fDatei.Name
    End If
    Next fDatei
    End Sub
    

  • danke
    Gruß Tom
    Anzeige

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

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Dateien auf Serverlaufwerk auslesen
    18.05.2018 13:04:15
    UweD
    Hallo
    so?
    
    Sub Vorrat()
    Dim fs As Object
    Dim fVerz As Object
    Dim fDatei As Object
    Dim fdateien As Object
    Dim strDat As String
    Dim Zeile As Integer
    Columns("A:A").Select
    Selection.ClearContents
    Set fs = CreateObject("scripting.FileSystemObject")
    Set fVerz = fs.getFolder("T:\1_DEMAND\")
    Set fdateien = fVerz.Files
    For Each fDatei In fdateien
    If InStr(fDatei, "") > 0 Then
    Zeile = Zeile + 1
    Cells(Zeile, 1) = fDatei.Name
    Cells(Zeile, 2) = fDatei.DateCreated
    Cells(Zeile, 3) = fDatei.DateLastModified
    End If
    Next fDatei
    End Sub
    

    LG UweD
    Anzeige
    AW: Dateien auf Serverlaufwerk auslesen
    18.05.2018 13:44:59
    Tom
    perfekt....merci!!!
    LG Tom
    AW: gern geschehen owt
    18.05.2018 13:54:29
    UweD
    ;

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige