- Visual Basic / VB.NET : Comparaison entre 2 chaines, retourne un pourcentage de ressemblance (dupont
- PHP : Comparaison de 2 chaines , et retour du pourcentage de ressemblance - CodeS SourceS
- Java : Classe java pour la comparaison de 2 fichiers excel - CodeS SourceS
- [vb 2008] comparer deux répertoires
- File2compare: comparaison de deux fichiers ligne par ligne
Comparaison de 2 repertoires
Signaler
olisab1
cs_JMO
- Messages postés
- 13
- Date d'inscription
- dimanche 1 juillet 2007
- Statut
- Membre
- Dernière intervention
- 4 juillet 2012
cs_JMO
- Messages postés
- 1854
- Date d'inscription
- jeudi 23 mai 2002
- Statut
- Membre
- Dernière intervention
- 24 juin 2018
A voir également:
- Comparaison de 2 repertoires
- Python : Comparaison récursive de 2 répertoires - CodeS SourceS - Guide
- Comparer le contenu de deux repértoires - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Comparaison de 2 fichiers vers 1.0 - Codes sources - Visual Basic / VB.NET (API)
- Mise à jour de 2 répertoires - Codes sources - Visual Basic / VB.NET (VBA)
- Javascript : Comparaison de 2 dates en dd/mm/yyyy - CodeS SourceS - Guide
1 réponse
cs_JMO
- Messages postés
- 1854
- Date d'inscription
- jeudi 23 mai 2002
- Statut
- Membre
- Dernière intervention
- 24 juin 2018
Bonsoir,
Attention au choix du thème
Vous êtes ici : Thèmes / [forum-VB-NET-VB-2005_40.aspx VB.NET et VB 2005] / [theme-DIVERS_221.aspx Divers] / [theme-GENERAL_223.aspx General] / Comparaison de 2 repertoires
au lieu
Vous êtes ici : Thèmes
/ [forum-VISUAL-BASIC_1.aspx Visual Basic 6] / [theme-LANGAGES-DERIVES_287.aspx Langages dérivés] / [theme-VBSCRIPT_245.aspx VBScript]
L'exemple ci-dessous affiche la liste des fichiers de deux répertoires.
Reste à adapter et à comparer keys et items des deux dictionnaires.
Option Explicit
Sub CreateDico(argFolder, argDico, argListe)
Dim objFile, arrDicoKeys,arrDicoItems, i
For Each objFile In argFolder.Files
argDico.Add objFile.Name, _
objFile.DateLastModified & " ! " & objFile.Size
Next
arrDicoKeys = argDico.Keys
arrDicoItems = argDico.Items
For i = 0 To argDico.Count-1
argListe = argListe & vbCrLf & arrDicoKeys(i) & _
vbTab &arrDicoItems(i)
Next
End Sub
Sub ShowFilesList(argPath)
Dim objFso, objDico, strListe
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objDico = CreateObject("Scripting.Dictionary")
Call CreateDico(objFso.GetFolder(argPath), objDico, strListe)
MsgBox strListe,,"Liste des fichiers sur " & argPath
Set objFso = Nothing
Set objDico = Nothing
End Sub
call ShowFilesList("d:\test")
call ShowFilesList("f:\test")
jean-marc
Attention au choix du thème
Vous êtes ici : Thèmes / [forum-VB-NET-VB-2005_40.aspx VB.NET et VB 2005] / [theme-DIVERS_221.aspx Divers] / [theme-GENERAL_223.aspx General] / Comparaison de 2 repertoires
au lieu
Vous êtes ici : Thèmes
/ [forum-VISUAL-BASIC_1.aspx Visual Basic 6] / [theme-LANGAGES-DERIVES_287.aspx Langages dérivés] / [theme-VBSCRIPT_245.aspx VBScript]
L'exemple ci-dessous affiche la liste des fichiers de deux répertoires.
Reste à adapter et à comparer keys et items des deux dictionnaires.
Option Explicit
Sub CreateDico(argFolder, argDico, argListe)
Dim objFile, arrDicoKeys,arrDicoItems, i
For Each objFile In argFolder.Files
argDico.Add objFile.Name, _
objFile.DateLastModified & " ! " & objFile.Size
Next
arrDicoKeys = argDico.Keys
arrDicoItems = argDico.Items
For i = 0 To argDico.Count-1
argListe = argListe & vbCrLf & arrDicoKeys(i) & _
vbTab &arrDicoItems(i)
Next
End Sub
Sub ShowFilesList(argPath)
Dim objFso, objDico, strListe
Set objFso = CreateObject("Scripting.FileSystemObject")
Set objDico = CreateObject("Scripting.Dictionary")
Call CreateDico(objFso.GetFolder(argPath), objDico, strListe)
MsgBox strListe,,"Liste des fichiers sur " & argPath
Set objFso = Nothing
Set objDico = Nothing
End Sub
call ShowFilesList("d:\test")
call ShowFilesList("f:\test")
jean-marc