Scinder ou Grouper rapidement

Question

Bonjour,
Je désire trouver un code me permettant de copier plusieurs fichiers, dans l'ordre de mon choix.
D'habitude, je me contente d'un code du style :

Open "Groupe.dat" for binary as #1
          For I=0 to (le nombre de fichiers)
              Open Fichier for binary as #2
           A$=input (#1, X)
           B$=input (#1, X)
           ... (simplement pour ne pas stocker trop de donner dans une seule variable)
           Put #2, ,A$
           Put #2, ,B$
           Put #2, ,...
              Close #1
         Next I
Close #2

le problème, c'est que ce n'est pas très rapide (environ 0.5Mo/Sec)
Y aurait il un moyen de rendre le code plus rapide, ou la lenteur vient simplement des accès disques ?

Merci

PrinceSilk · Answer

EDIT: j'ai inversé #1 et #2 pour le input et put, mais tout le monde aura compris ^^

gillardg · Answer

Dim fichier() As String 'les noms des fichiers source
Dim cible As String ' le fichier dans lequel tu veux copier les autres


x = Shell("cmd.exe /C copy" & fichier(1) & fichier(2) & cible & "/B", vbHide)






Bonjour chez vous !

PrinceSilk · Answer

oui, passer par Shell marche bien, mais peut on le faire sans cette commande ? en traitant chaque partie de chaque fichier dans une variable ?

gillardg · Answer

copy te permet de copier des fichiers entiers pour faire un truc plus compliqué style ne copier que certaines lignes il faudrait utiliserun script  powershell

Bonjour chez vous !

PrinceSilk · Answer

gné?
lignes? pas suffisamment précis des lignes, car si je groupe des images par exemple, il faudra plutôt copier au byte près!
Pis en plus, les fichiers groupés puis dégroupés sont traités en même par le programme (algorithme, mais même sans l'algorithme, ca va pas vite)

gillardg · Answer

il y a quelqu'un qui a déposé un truc du genre sur le site il y a quelques temps 
mais sinon fais un zip !
ou alors utilises tar http://gnuwin32.sourceforge.net/packages/gtar.htm

Bonjour chez vous !

Scinder ou Grouper rapidement

6 réponses

Votre réponse

Discussions similaires