Recupérer la date de modification d'un fichier avec vbs

Question

Bonjour,
J'aimerais crée un petit programme sur une clé USB de tel a se que dés que je l'a branche, il me propose d'ouvrir le dernier fichier modifier sur la clé.

J'ai deja crée : 
"response = MsgBox ("Ouvrir le dernier fichier modifié ?" , vbYesNo + vbQuestion, "Accès rapide")
If Response =6 then
msgbox "Yes selected"
else
msgbox "No selected"
end if"

Cependant, il me manque la partie pour trouver le dernier fichier modifier.

Merci pour l'aide :)

jordane45 · Answer

Bonjour,

jette un oeil à ça :

Option Explicit  
Dim fso, path, file, recentDate, recentFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set recentFile = Nothing
For Each file in fso.GetFolder("C:\Temp").Files
  If (recentFile is Nothing) Then
    Set recentFile = file
  ElseIf (file.DateLastModified > recentFile.DateLastModified) Then
    Set recentFile = file
  End If
Next

If recentFile is Nothing Then
  WScript.Echo "no recent files"
Else
  WScript.Echo "Recent file is " & recentFile.Name & " " & recentFile.DateLastModified
End If

Recupérer la date de modification d'un fichier avec vbs

1 réponse

Discussions similaires

Newsletters