File più recente in una cartella
Info
Esempi
Linguaggio
Librerie
Formule
Ultimi Inseriti

 Login

 Password
Argomenti correlati
Una funziona che mostra come sia possibile trovare il nome dell'ultimo file (per data) presente in una cartella.

Function FilePiuRecente(Folder As String)
  Dim Temp As String
  tFile = Dir(Folder & FileSpec)
  
  UltimoFile = ""
  UltimaData = DateSerial(1900, 1, 1)
  
  Do While (tFile <> vbNullString)
    tData = FileDateTime(Folder & tFile)
    If (tData > UltimaData) Then
      UltimaData = tData
      UltimoFile = tFile
    End If
    tFile = Dir
  Loop
  FilePiuRecente = UltimoFile
End Function
 

data4idea srls - PIva 01881000937 - info@data4idea.it