+- Micro Focus QTP (UFT) Forums (https://www.learnqtp.com/forums)
+-- Forum: Micro Focus UFT (earlier known as QTP) (https://www.learnqtp.com/forums/Forum-Micro-Focus-UFT-earlier-known-as-QTP)
+--- Forum: VB Scripting/Descriptive Programming (https://www.learnqtp.com/forums/Forum-VB-Scripting-Descriptive-Programming)
+--- Thread: Open lastmodified file in a folder (/Thread-Open-lastmodified-file-in-a-folder)
Open lastmodified file in a folder - vimal singh - 04-26-2010
Can anyone send me the script for "to open the last modified file in a folder"
RE: Open lastmodified file in a folder - manishbhalshankar - 04-26-2010
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