Extract a file with date modified option from a ffolder

[Chandrahaas]

Dear Team,

The below macro helps to extract pdf files from a folder. Along with this, I also want to extract a "Date modified" from that same folder. But, I am unable to add that option to the below macro

****************************************
Sub get_pdf_name()
Dim FR As Long, sh As String, FPath As String, FName As String
sh = Sheets("Sheet2").Name
FR = Sheets(sh).Range("A" & Rows.Count).End(xlUp).Row + 1
FPath = "U:\Personal_Settings\W7Desktop\sent outs"
FName = Dir(FPath & "\" & "*.pdf*")
Do While Len(FName)
Sheets(sh).Range("A" & FR).Value = Left(FName, Len(FName) - 4)
FR = FR + 1
FName = Dir
Loop
MsgBox "Extraction done" '' Done Extract PDF Names"
End Sub
***********************************

I had tried adding the below options, but it couldn't serve my requirement

FPath = "U:\Personal_Settings\W7Desktop\Sent outs " & format(date(),"dd.mm.yyyy")

or

FPath = "U:\Personal_Settings\W7Desktop\Sent outs " & format(date(),range("a1").value)

Hence, requesting you to help me to extract afile name along with the Date modified

Sample is attached to this thread the filelds which I want to be included in this macro.

Hope this explains my requirement.

Thanks in advance for helping me.

KR
Chandru...

[nathansav]

Have you looked at the FileSystemObject instead? This will give you a .datelastmodified and .datelastaccessed properties of files.

[Chandrahaas]

Could you please add the FileSystemObject to this code which would be helpful for me to add.

Thanks
Chandru...

[nathansav]

I wont add it, but you can google it.

[HaHoBe]

Hi, Chandrahaas,

Your opening post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE]Please [url=https://www.excelforum.com/login.php]Login or Register [/url] to view this content.[/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

Ciao,
Holger