[WD5.5] Copier un fichier avec jauge

Posté par Anonyme le 4/7/2002 15:10:57

bonjour,

la fonction fcopiefichier de windev est bien mise a part 2 choses, il n'est pas possible d'avoir une jauge (regle en windev 7) donc je l'ai faite pour WD5.5

function Monfcopiefichier(source,destination)

NumeFicSour est un entier long
NumeFicDes est un entier long
res est un entier
taillefic est un entier long
taillelue est un entier long
rep est un entier
Buffer est une chaineasciiz sur 512
rep=0
taillefic = ftaille(source)
si taillefic <> 0
NumeFicSour = fopen(source,folecture)
si NumeFicSour <> -1

NumeFicDes = fopen(destination,Focreation)
si NumeFicDes <>- 1

res = flit(NumeFicSour,512,&buffer)
tantque res <> 0

taillelue+=512
si fecrit(NumeFicDes,&buffer,512) = -1 ALORS rep=513
res = flit(NumeFicSour,512,&buffer)
Jauge(taillelue,TailleFic,"Copie du ficher",iRougeClair,iJauneClair)

fin
fferme(NumeFicDes)

sinon

rep = 512

fin
fFerme(NumeFicSour)

sinon

rep = 500

fin

sinon

rep = 256

fin message("")
renvoyer(rep)
---------------------------------------------------------------------------------------

voila qui est maintenant chose faite