Open lastmodified file in a folder

[vimal singh]

Can anyone send me the script for "to open the last modified file in a folder"

[manishbhalshankar]

Hi Vimal,
Hope you can make use of this:

Code:

Option Explicit
Dim objFSO, objFile, objFolder, FolderToScan
Dim c, i, j
FolderToScan = "D:\EricData\vbs"
Set objFSO = CreateObject("Scripting.fileSystemObject")
Set objFolder = objFSO.GetFolder(FolderToScan)

Dim arrFileName(), arrFileDateLastModified()

c = 0
For Each objFile In objFolder.Files
    c = c + 1
    
    ReDim Preserve arrFileName(c)
    arrFileName(c) = objFile.Name

    ReDim Preserve arrFileDateLastModified(c)
    arrFileDateLastModified(c) = objFile.DateLastModified
Next

For i = 1 To c
    For j = i + 1 To c
        If arrFileDateLastModified(i) < arrFileDateLastModified(j) Then
            SwapValues arrFileName(i), arrFileName(j)
            SwapValues arrFileDateLastModified(i), arrFileDateLastModified(j)
        End If
    Next
Next

For i = 1 To c
    MsgBox "File: " & arrFileName(i) & "  Last mod: " & arrFileDateLastModified(i)
Next

Sub SwapValues(ByRef v1, ByRef v2)
    Dim vTemp
    vTemp = v1
    v1 = v2
    v2 = vTemp
End Sub