COPIER, DÉPLACER DES FICHIERS AVEC AFFICHAGE DE LA PROGRESSION

Commentaire de DraaFil le 08/02/2006 03:47:49

Super ta source!
par contre j'ai un probleme, je copie plusieurs fichierSSS, cela fonctionne numero un sauf que je dois supprimer la ligne suivant car cela me donne l'errreur suivante : Dépacement de capacité
donc je supprime la ligne suivante et cela marche : PB.Value = (TotalBytesTransferred / TotalFileSize) * 100.

voici l'appelle de la fonction
For i = 1 To UBound(variable)
   'MsgBox variable(i)
   lblFichier.Caption = variable(i)
   '-------------------------------------
FichSource = RepSource & variable(i)
FichDestination = App.Path & "\Autorun\Prog\" & DossierCopie & "\" & variable(i)
   If CopyFileWithProgress(FichSource, FichDestination, PB) = 0 Then
        
        Dim Buffer As String
        'Crée le buffer
        Buffer = Space(200)
        'Formate le message
        FormatMessage FORMAT_MESSAGE_FROM_SYSTEM, ByVal 0&, GetLastError, LANG_NEUTRAL, Buffer, 200, ByVal 0&
        'affiche le message d'erreur
        MsgBox Buffer, vbCritical
    Else
        MsgBox "Opération réussie avec succès.", vbInformation
    End If
  
   '---------------------------------------
Next i


Merci si tu sais pkoi
DraaFil

Commentaire de ShareVB le 22/02/2008 21:55:17

salut,

normalement, cela devrait être corrigé...

ShareVB