Copie arbo existante ou creation d'une arbo a partir d'un fichier txt

zeltron54

Membre expert
Club MacG
29 Mars 2008
2 356
370
Lorraine
Effectivement j'ai fais le test sur le nom !
Sur le poids me parait aléatoire car si la date de l'enregistrement et le nom ont changé, alors le poids aussi !
 

zeltron54

Membre expert
Club MacG
29 Mars 2008
2 356
370
Lorraine
Bonjour,

Pour les doubles, le plus simple serait de rechercher les doubles après avoir fait le transfert de tous tes fichiers.
Faire une recherche de double en faisant un checksum des fichiers du dossier (A).

Si OK ! je te ferais le script de recherche de doubles.
 

zeltron54

Membre expert
Club MacG
29 Mars 2008
2 356
370
Lorraine
Voilà !

Je te mets le script qui recherche les doubles dans un dossier et ses sous dossiers.
Il te demande de choisir le dossier, puis fais sa recherche sur le checksum des fichiers et crée un fichier texte "Les doubles.txt" sur le bureau contenant le chemin des fichiers ayant le même checksum.
A toi de supprimer un des fichiers en double après vérification...

Bloc de code:
--recherche doubles dans un dossier y compris les sous dossier
tell application "Finder"
    set Chemin to choose folder with prompt "Sélectionnez le dossier contenant les fichiers à redater"
    my inspecter(Chemin)
end tell

on inspecter(Chemin)
    tell application "Finder"
        set Chemin to Chemin as string
        set repertoire to quoted form of POSIX path of Chemin as string
        set laliste to do shell script "cksum " & repertoire & "/* | sort"
       
        set nb to count paragraph of laliste
        repeat with i from 1 to nb
            set x to paragraph i of laliste
            --crée un fichier provisoire avec la list au format mac (CR+LF)
            set aa to ASCII character 10
            set lelog to open for access ((path to desktop folder as text) & "prov.txt") as text with write permission
            write x & aa to lelog starting at eof
            close access lelog
        end repeat
       
        -- traitement des dossiers :
        set Chemin to Chemin as alias
        set les_dossiers to folders of Chemin
        repeat with chaque_dossier in les_dossiers
            my inspecter(chaque_dossier)
        end repeat
       
    end tell
end inspecter

-- faire le tri du fichier prov et tester
set Chemin to ((path to desktop folder as text) & "prov.txt") as string
set repertoire to quoted form of POSIX path of Chemin
set laliste to do shell script "sort " & repertoire

set nb to count paragraph of laliste
repeat with i from 1 to nb - 1
    set x to paragraph i of laliste
    set xx to characters 1 thru 17 of x as string
   
    set y to paragraph (i + 1) of laliste
    set yy to characters 1 thru 17 of y as string
   
    if xx = yy then
        set x to characters (offset of "/" in x) thru end of x as string
        set y to characters (offset of "/" in y) thru end of y as string
        --cree le fichier double
        set lelog to open for access ((path to desktop folder as text) & "les doubles.txt") as text with write permission
        write "DOUBLE  : " & x & " AVEC " & y & return to lelog starting at eof
        close access lelog
    end if
   
end repeat
--efface le fichier provisoire
set aeffacer to quoted form of POSIX path of ((path to desktop folder as text) & "prov.txt")
do shell script "rm " & aeffacer

tell application "Finder"
    (display dialog ("waouou ... Ca y est c'est fait !") buttons {"Salut !"})
end tell