Dateien auf Serverlaufwerk auslesen
18.05.2018 12:57:12
Tom
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