VB6 VS explorer.exe (Copie Coller)

Question

Voila :  j'essaye de copier un fichier d'environ  100Mo d'un dossier vers un autre , par :
 -Clique droit , copier , coller .... et sela se passe dans environ quelques secondes ...

mais avec vb6 :

dim M as binary

Open "c:\100Mo.exe" For binary as #1
   open "c:\copie.exe" for binary as #2

for i = 1 to lof(1)
doevents


get #1 , lof(1) , M
put #2 , lof (2+1) , M

next i

dsl , je suis sur qu'il ya une erreur dans ce code , car g pas le vb6 sur moi , et je n'arive pas a me consontrer car , ya des gens avec moi ... Bon l'idée est claire  non ?

Et ce fichier de 100Mo par vb6 se copie dans des heures .... + Le processus est a 94%  Alors que explorer.exe est a ~ 15 - 25% seulkment 

  mem si j'evite le Progresse bar  et j'enleve le Doevents !

c quoi le secret ?
Technologie Reacen²

jmfmarques · Answer

Bonsoir,

Pourquoi ?
Ta version VB6 n'aurait-elle pas l'instruction FileCopy ?

Syntaxe :

FileCopy source, destination

Mais ouvre ton aide en ligne, et lis, quand même...

Reacen · Answer

wé , mais jveux , la façon de open.....
   commça , si il ya eu une erreur de copiage d'une octet , je la remplace par chr(255) .. ou kchose pareille  et en + de la pause ....

Technologie Reacen²

jmfmarques · Answer

Oui ?

Ben alors.... l'instruction Get ne marche en général qu'avec les fichiers écrits avec l'instruction Put, ce qui n'est pas le cas d'un exe ....!
Tu devrais lire alors ce que dit ton aide en ligne pour cette instruction Get (c'est long...)


Et je ne vois pas ce que tu entends par "pause", dans cette affaire ...

Gobillot · Answer

??????????????

dim M as binary
get #1 , lof(1) , M
put #2 , lof (2+1) , M

Daniel

Gobillot · Answer

Bon pas de réponse !
c'est quoi binary, un type perso avec 1 octet
qu'est ce que tu veux faire avec get #1 ,Lof(1)  lire toujours le même octet en fin de fichier
et lof(2+1) ne correspond à rien, il n'y a pas de fichier #3
quant à Lof(2) le fichier #2 n'est pas encore écrit, il n'a donc pas de taille.

ton code ne peut pas marcher comme ça, c'est n'importe quoi
la technologie Reacen2 est à revoir

Daniel

Renfield · Answer

"si il ya eu une erreur de copiage d'une octet ...."

la confiance règne ^^

Renfield
Admin CodeS-SourceS- MVP Visual Basic

abdessamad19846 · Answer

aidez moi plz j'ai un projet a realisé sur la gestion de location de voiture en vb6

jmfmarques · Answer

Oui, abdessamad19846 ?
donnant donnant, alors !
moi, j'ai un problème de barbe qui pousse trop vite !

Reacen · Answer

Et moi g un penise qui Crash trop de sperme (Mais aucun spermatozoide)  ! lol


   c Fou ce qu'on se moque de nous ..... (Cree ton propre topic pour questionner a si AbdSamad  )

Technologie Reacen²

VB6 VS explorer.exe (Copie Coller)

9 réponses

Votre réponse

Discussions similaires