Function FindLastModified(strDir)
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = objFSO.GetFolder(strDir)
Date = CDate("1/1/1950")
For Each oFile In oFolder.Files
If oFile.DateLastModified > Date Then
NewestFile = oFile.Name
Date = oFile.DateLastModified
End If
Next
FindLastModified = NewestFile
End Function
dinsdag 29 juli 2008
Find the last modified file in a directory - vbscript
Gepost door PartyPete op 03:18
Labels: Automation, QTP, vbscript
Abonneren op:
Reacties posten (Atom)
Geen opmerkingen:
Een reactie posten