Comparer 2 fichiers
Pascal
-
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
pijaku Messages postés 12263 Date d'inscription Statut Modérateur Dernière intervention -
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 , .......
du style :
si fichier1.datesave > fichier2.savedate
et fichier1.taille > fichier2.taille , .......
A voir également:
- Comparer 2 fichiers
- Supercopier 2 - Télécharger - Gestion de fichiers
- Renommer des fichiers en masse - Guide
- Fichiers epub - Guide
- Wetransfer gratuit fichiers lourd - Guide
- Explorateur de fichiers - Guide
1 réponse
Bonjour,
Source : https://silkyroad.developpez.com/VBA/ProprietesClasseurs/#LIV-A
Code : !!!Nécessite d'activer la référence Microsoft Scripting Runtime
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