Thank You Shalabh!
On Mon, Jun 8, 2015 at 2:31 PM, Shalabh Dixit <[email protected]>
wrote:
> Also You can refer use the code below:
>
> s = GetLastModifiedFile("Z:\Results")
>
> Public Function GetLastModifiedFile(ByVal sFolderPath)
> Dim FSO, objFolder, objFile
> Dim objFileResult, longDateTime
> Dim boolRC
>
> Set FSO = CreateObject("Scripting.FileSystemObject")
> boolRC = FSO.FolderExists(sFolderPath)
> If Not boolRC Then
> Set FSO = Nothing
> Set GetLastModifiedFile = Nothing
> Exit Function
> End If
>
> Set objFolder = FSO.GetFolder(sFolderPath)
> If objFolder.Files.Count = 0 Then
> Set FSO = Nothing
> Set objFolder = Nothing
> Set GetLastModifiedFile = Nothing
> Exit Function
> End If
>
> Set objFileResult = Nothing
> longDateTime = CDate(0)
>
> For Each objFile in objFolder.Files
>
> If objFile.DateLastModified > longDateTime Then
> Set objFileResult = objFile
> longDateTime = objFile.DateLastModified
>
> Print objFile.Name
> End If
>
> Next
>
> Set FSO = Nothing
> Set objFolder = Nothing
> Set GetLastModifiedFile = objFileResult
>
> End Function
>
> Regards
>
> *Shalabh Dixit*My QTP Blog <http://shalabhdixit.wordpress.com/>
>
> On Mon, Jun 8, 2015 at 2:27 PM, Shalabh Dixit <[email protected]>
> wrote:
>
>> Hi Vishal,
>>
>> Please refer the link below. Hope it helps..
>>
>>
>> http://blogs.technet.com/b/heyscriptingguy/archive/2008/05/02/how-can-i-identify-the-20-most-recently-modified-files-in-a-folder.aspx
>>
>>
>>
>> Regards
>>
>> *Shalabh Dixit*My QTP Blog <http://shalabhdixit.wordpress.com/>
>>
>> On Fri, Jun 5, 2015 at 4:24 PM, Vishal Gupta <[email protected]>
>> wrote:
>>
>>> Guys any input for me
>>>
>>>
>>> On Thu, Jun 4, 2015 at 11:14 PM, Vishal Gupta <[email protected]>
>>> wrote:
>>>
>>>> Hello Friends
>>>>
>>>> I wrote a simple *.vbs function to get the file name of last two
>>>> modified file and getting an error while retriving the value from the
>>>> array. The error code is shared in the attached attachment and VB code is
>>>> shared below:
>>>>
>>>>
>>>>
>>>> msgbox Isarray (GetFilename)
>>>>
>>>> msgbox UBound (GetFilename)
>>>>
>>>> msgbox LBound (GetFilename)
>>>>
>>>> abc = GetFilename(0)
>>>>
>>>> msgbox abc
>>>>
>>>> msgbox GetFilename(LBound (GetFilename))
>>>>
>>>> msgbox GetFilename(UBound (GetFilename))
>>>>
>>>> 'msgbox GetFilename(0) & "------------->" & GetFilename(1)
>>>>
>>>>
>>>> Function GetFilename()
>>>>
>>>>
>>>> Dim objShell
>>>> Dim strPath
>>>> Dim objFSO
>>>> Dim objFile
>>>> Dim GetCurrentFolderPath
>>>> Dim objFolder
>>>> Dim Flag
>>>> Dim FileItem
>>>> Dim Filename
>>>> ReDim Filename(1)
>>>> Dim Filename1
>>>> Dim File1
>>>> Dim Filename2
>>>> Dim File2
>>>>
>>>>
>>>> Set objShell = CreateObject("Wscript.Shell")
>>>> strPath = Wscript.ScriptFullName
>>>>
>>>> Set objFSO = CreateObject("Scripting.FileSystemObject")
>>>> Set objFile = objFSO.GetFile(strPath)
>>>> GetCurrentFolderPath = objFSO.GetParentFolderName(objFile)
>>>>
>>>> Set objFolder = objFSO.GetFolder(GetCurrentFolderPath)
>>>>
>>>> Flag = 1
>>>>
>>>> For Each FileItem In objFolder.Files
>>>>
>>>> If FileItem.DateLastModified > File1 Then
>>>> File1 = FileItem.DateLastModified
>>>> Filename1 = FileItem.Name
>>>> If Flag = 1 Then
>>>> File2 = FileItem.DateLastModified
>>>> Filename2 = FileItem.Name
>>>> Flag = Flag + 1
>>>> End If
>>>> End If
>>>>
>>>> If FileItem.DateLastModified > File2 And
>>>> FileItem.DateLastModified < File1 Then
>>>> File2 = FileItem.DateLastModified
>>>> Filename2 = FileItem.Name
>>>> End If
>>>>
>>>>
>>>> Next
>>>>
>>>> Filename(LBound(Filename)) = Filename1
>>>> Filename(UBound(Filename)) = Filename2
>>>>
>>>>
>>>> GetFilename = Filename
>>>>
>>>> Set objFolder = Nothing
>>>> Set objFile = Nothing
>>>> Set objFSO = Nothing
>>>> Set objShell = Nothing
>>>>
>>>> End Function
>>>>
>>>>
>>>> --
>>>> Best regards,
>>>> Vishal Gupta
>>>> +919989475211
>>>>
>>>
>>>
>>>
>>> --
>>> Best regards,
>>> Vishal Gupta
>>> +919989475211
>>>
>>> --
>>> --
>>> You received this message because you are subscribed to the Google
>>> "QTP - HP Quick Test Professional - Automated Software Testing"
>>> group.
>>> To post to this group, send email to [email protected]
>>> To unsubscribe from this group, send email to
>>> [email protected]
>>> For more options, visit this group at
>>> http://groups.google.com/group/MercuryQTP?hl=en
>>>
>>> ---
>>> You received this message because you are subscribed to the Google
>>> Groups "QTP - HP Quick Test Professional - Automated Software Testing"
>>> group.
>>> To unsubscribe from this group and stop receiving emails from it, send
>>> an email to [email protected].
>>> For more options, visit https://groups.google.com/d/optout.
>>>
>>
>>
> --
> --
> You received this message because you are subscribed to the Google
> "QTP - HP Quick Test Professional - Automated Software Testing"
> group.
> To post to this group, send email to [email protected]
> To unsubscribe from this group, send email to
> [email protected]
> For more options, visit this group at
> http://groups.google.com/group/MercuryQTP?hl=en
>
> ---
> You received this message because you are subscribed to the Google Groups
> "QTP - HP Quick Test Professional - Automated Software Testing" group.
> To unsubscribe from this group and stop receiving emails from it, send an
> email to [email protected].
> For more options, visit https://groups.google.com/d/optout.
>
--
Best regards,
Vishal Gupta
+919989475211
--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/d/optout.
