Log In

Come Join Us!

Are you a
Computer / IT professional?
Join Tek-Tips Forums!
  • Talk With Other Members
  • Be Notified Of Responses
    To Your Posts
  • Keyword Search
  • One-Click Access To Your
    Favorite Forums
  • Automated Signatures
    On Your Posts
  • Best Of All, It's Free!
  • Students Click Here

*Tek-Tips's functionality depends on members receiving e-mail. By joining you are opting in to receive e-mail.

Posting Guidelines

Promoting, selling, recruiting, coursework and thesis posting is forbidden.

Students Click Here


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

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

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

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

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

I hope you got some advice thanks.

CODE --> vbs

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
   If IsNull(sNewestFile) Then sNewestFile = "    NO File"
   GetNewestFile = sNewestFile
End Function

msgbox sNewestFile 

Red Flag This Post

Please let us know here why this post is inappropriate. Reasons such as off-topic, duplicates, flames, illegal, vulgar, or students posting their homework.

Red Flag Submitted

Thank you for helping keep Tek-Tips Forums free from inappropriate posts.
The Tek-Tips staff will check this out and take appropriate action.

Reply To This Thread

Posting in the Tek-Tips forums is a member-only feature.

Click Here to join Tek-Tips and talk with other members! Already a Member? Login

Close Box

Join Tek-Tips® Today!

Join your peers on the Internet's largest technical computer professional community.
It's easy to join and it's free.

Here's Why Members Love Tek-Tips Forums:

Register now while it's still free!

Already a member? Close this window and log in.

Join Us             Close