
Sub LastUpdatedFile()
Set fs = CreateObject("Scripting.FileSystemObject")
fpath = "c:/Stampe"
Set f = fs.Getfolder(fpath)
Set NFile = f.Files
For Each pf1 In f.Files
If pf1.Name = "" Then Exit Sub
date3 = pf1.DateLastModified
fName = pf1.Name
If MDataUM < date3 Then
FpathName = pf1
MDataUM = date3
fnameExt = fName
End If
Next
Cells(6, 1).Value = FpathName
' <<<<<<<<<<<< qui il codice per importare il file
End Sub |
