VBS Files are only partially read, Network Storage too slow?

[Bratw0rst]

Hello programmers,

The following section will sort files by extension and output the most recent file (DateLastModified).
during the test environment, the script easily runs without errors. Thats about 2000 files on a fast network drive.
In practice a slower network drive is accessed and the script only reads in a portion of the files and outputs an older file according to the logic.


The PC who run the script got admin rights. manually I can edit and view all files.

For testing reasons my script writes all locatet Files in a LogFile

When I start the script it runs without error until the MsgBox
appears, in the LogFile depending on the run 300-500 files
displayed.

2 minute after the appearance of the MsgBox, the LogFile contains all 1302 files.



I hope you got some advice thanks.

sPath = "\\wurst\Brat\archiv" 
eack = "ACK" 
eibu = "IBU"  
 

sNewestFile = GetNewestFile(sPath)

Function GetNewestFile(ByVal sPath)
 
   sNewestFile = Null  
 
   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 
 
            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 = "    NO File"
 
   GetNewestFile = sNewestFile
End Function

msgbox sNewestFile