Seehr geehrte Schwarmintiligenz,
folgender Ausschnitt soll Dateien nach Endung sortieren und das aktuellste File nach DateLastModified ausgeben.
In der Testumgebung Läuft das Script auf einem schnellen Netzlaufwerk problemlos ca. 5000 Dateien.
In der Praxis wird auf ein langsameres Netzlaufwerk zugegriffen und das skript liest nur einen Teil der Dateien ein und gibt nach der Logik eine ältere Datei aus.
Ich hoffe ihr habt einen Tipp für mich.
*Topic verschoben*
folgender Ausschnitt soll Dateien nach Endung sortieren und das aktuellste File nach DateLastModified ausgeben.
In der Testumgebung Läuft das Script auf einem schnellen Netzlaufwerk problemlos ca. 5000 Dateien.
In der Praxis wird auf ein langsameres Netzlaufwerk zugegriffen und das skript liest nur einen Teil der Dateien ein und gibt nach der Logik eine ältere Datei aus.
Ich hoffe ihr habt einen Tipp für mich.
Visual Basic-Quellcode
- sPath = "\\wurst\Brat\archiv"
- eack = "ACK"
- eibu = "IBU"
- sNewestFile = GetNewestFile(sPath)
- Function GetNewestFile(ByVal sPath)
- sNewestFile = Null ' initialisiere Wert
- Set oFSO = CreateObject("Scripting.FileSystemObject")
- Set oFolder = oFSO.GetFolder(sPath)
- Set oFiles = oFolder.Files
- ' Finde die neueste Datei unter allen anderen Dateien
- For Each oFile In oFiles
- if Ucase(oFSO.GetExtensionName(ofile)) = eack or Ucase(oFSO.GetExtensionName(ofile)) = eibu then 'selektiere Dateien mit der gewünschten Endung aus
- If IsNull(sNewestFile) Then
- sNewestFile = oFile.Path
- dPrevDate = oFile.DateLastModified
- Elseif dPrevDate < oFile.DateLastModified Then
- sNewestFile = oFile.Path
- End If
- end if
- Next
- If IsNull(sNewestFile) Then sNewestFile = " Kein File"
- GetNewestFile = sNewestFile
- End Function
- msgbox sNewestFile
*Topic verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()