comparer 2 fichiers

Question

dans une boucle , je veux comparer les propriétés (date de maj, auteur etc) de 2 série de fichiers. Comment acceder a ces informations ? et les manipuler ? 
du style : 
si fichier1.datesave > fichier2.savedate 
et fichier1.taille > fichier2.taille , .......

pijaku · Answer

Bonjour,

Source : https://silkyroad.developpez.com/VBA/ProprietesClasseurs/#LIV-A 

Code : !!!Nécessite d'activer la référence Microsoft Scripting Runtime
Sub Test()
    proprietesFichier_getFile "C:\Documents and Settings\michel\leClasseur.xls"
End Sub

Sub proprietesFichier_getFile(Fichier As String)
    '
    'Nécessite d'activer la référence Microsoft Scripting Runtime
    '
    Dim Cible As Scripting.FileSystemObject
    Dim Valeur As Scripting.File
    Dim Resultat As String
    
    Set Cible = CreateObject("Scripting.fileSystemObject")
    Set Valeur = Cible.GetFile(Fichier)
    
    Resultat = "Chemin et nom complet : " & Cible.GetAbsolutePathName(Valeur) & Chr(10) & Chr(10) & _
    "Chemin : " & Cible.GetParentFolderName(Valeur) & Chr(10) & Chr(10) & _
    "Nom fichier : " & Cible.GetFileName(Valeur) & Chr(10) & Chr(10) & _
    "Nom fichier sans extension : " & Cible.GetBaseName(Valeur) & Chr(10) & Chr(10) & _
    "Extension fichier : " & Cible.GetExtensionName(Valeur) & Chr(10) & Chr(10) & _
    "Chemin : " & Valeur.ParentFolder & Chr(10) & Chr(10) & _
    "Chemin court : " & Valeur.shortpath & Chr(10) & Chr(10) & _
    "Nom court : " & Valeur.ShortName & Chr(10) & Chr(10) & _
    "Date creation : " & Valeur.dateCreated & Chr(10) & Chr(10) & _
    "Derniere modification : " & Valeur.dateLastModified & Chr(10) & Chr(10) & _
    "Taille fichier : " & Valeur.Size & " octets" & Chr(10) & Chr(10) & _
    "Type fichier : " & Valeur.Type

MsgBox Resultat

End Sub

Comparer 2 fichiers

1 réponse

Discussions similaires

Newsletters