[R] Copie de fichiers + barre de progression

[bushiwolf]

Bonjour à Tous,

Je suis de retour après une longue absence. J'ai un programme qui cause quelques problèmes à ma job. Pour le régler, nous devrons recopié les fichiers alors je suis entrain de créer un petit script pour automatiser pour ça.
Le script fonctionne bien mais en copier les dossiers, il les converti en fichiers rendu dans le dossier de destination.
Est-ce que quelqu'un aurait une idée du problème ?
Voici le code:

► Afficher le textecode

Code : Tout sélectionner

#NoTrayIcon
#Include <File.au3>

$src= "dossier src"
$dst= "dossier dst"

ProcessClose("STATION.EXE")
ProcessClose("SOLUSOFT.EXE")

$files= _FileListToArray($src, "*.*")

$var = MsgBox(4,"Solusoft","Voulez-vous recopier les fichiers Solusoft?")

if $var = 6 Then
   For   $I = 1 to $files[0]
   ProgressOn("Transfère en cours","Complèté à","0 %")
      ProgressSet( ($I * 100) / $files[0], ($I * 100) / $files[0] & " %")
    FileCopy( $src & "\" & $files[$I], $dst & "\" & $files[$I], 9)
      Sleep(100)
   Next
   ProgressSet(100 , "Terminé", "Complèté") 
   sleep(500) 
   ProgressOff() 
      MsgBox(0,"Solusoft","Opération Terminée.")
Else
   MsgBox(0,"Solusoft","Opération Annulée.")
   EndIf

Merci d'avance.

[Tlem]

Bonsoir,

Avant chaque copie, vous devez vérifier si ce que vous copiez est un fichier ou un dossier (Utilisez FileGetAttrib) afin de faire la bonne opération (FileCopy ou DirCopy).

Ceci dit, vous vous retrouverez face à un problème plus ou moins important (à vos yeux), car la progression ne pourra pas prendre en compte les fichiers des sous dossiers et donc votre progression sera faussée en fonction du nombre de fichiers des sous dossiers.

Pour palier à ce problème, je vous conseil d'utiliser autre chose que _FileListToArray. Utilisez plutôt _FileListToArrayEx() que vous trouverez sur ce lien.
Avec cette fonction, listez uniquement les fichiers en récursif, puis recréez l'arborescence dans la destination ou si vous avez besoin de recréer les sous dossiers même vide, faites une première opération pour les dossiers, puis une seconde pour les fichiers.

[mikell]

Puisqu'il s'agit de copier un dossier et son contenu, pourquoi ne pas utiliser un DirCopy ou un objet shell.application avec l'option progressbar, qui respecte l'arborescence ?

[bushiwolf]

D'accord mais on fait ça comment ? haha

[PandiPanda]

Bonjour,
un outil très intéressant est disponible dans ce forum, à savoir ceci
en mettant dans la recherche le mot "Dircopy" vous auriez pu tomber sur ceci en 25 sec chrono

[bushiwolf]

J'avais fait une rechercher justement...mais Merci quand même.