Salut,
voici un petit programme que je n'arrive pas à traduire correctement en batch...
n'hésitez pas à m'aider !
 
Dim fso, f, fc, f1, s
Dim d, fichier
Dim Shell
 
Set fso = CreateObject("Scripting.FileSystemObject" )
 
Set f = fso.GetFolder("C:\Documents and Settings\utile\Local Settings\Application Data\Microsoft\Windows NT\NTBackup\data" )
Set fc = f.Files
 
    for Each f1 in fc
        if mid(f1.name, 1, 6) = "backup" then
            if f1.DateLastModified > d then  
                d = f1.DateLastModified
                set fichier = f1
            end if
        end if
    next
 
 
Set Shell = WScript.CreateObject("WScript.Shell" )
 
' Imprime en passant par Notepad
Shell.Run "Notepad /p " & """" & fichier.path & """" , 7, true