faire evoluer progressbar pendant transfert fichier

**bansan** · 14/10/2010, 14h38

Bonjour
Je me suis mis au vb.net depuis peu

je suis actuellement en train de faire un programme totut simple qui coupe les fichier sélectionnés et les met dans un autre dossier

J'ai mis une listbox , 2 boutons , des combobox...

Tout marche nikel...
Maintenant j'aimerais mettre une barre de progression qui evolue en fonction des fichiers en train de se deplacer...(comme quand on fait un copier ou couper sur windows quoi)

en cherchant sur divers forums sur le net, je vois qu'eventuellement il serait possible d'utiliser un API
( MoveFileWithProgress)

Bien qu'ayant lu quelques tutos concernant les API ect
Je ne vois pas du tout comment pouvoir l'utiliser

J4entrevois plutot un moyen pour que ..durant le deplacement du fichier, on puisse avoir le nombre de byte du fichier a chaque laps de temps..et par la suite faire un calcul pour faire evoluer la progressbar...

Merci de votre aide

**tomlev** · 14/10/2010, 16h15

En gros, tu as 2 options:

- utiliser la méthode File.Move, en "pur" VB.NET : c'est simple, mais ça ne te donne pas la progression

- utiliser cette API MoveFileWithProgress : c'est plus complet, mais nettement plus difficile à utiliser...

C'est une fonction native de Windows, donc pour l'utiliser en VB.NET il faut la déclarer dans ton code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
<DllImport("kernel32.dll", SetLastError:=True, EntryPoint:="MoveFileWithProgressW", CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)>
Private Shared Function MoveFileWithProgress  ( _
    ByVal lpExistingFileName As String, _
    ByVal lpNewFileName As String, _
    ByVal lpProgressRoutine As CopyProgressRoutine, _
    ByVal lpData As IntPtr, _
    ByVal dwFlags As MoveFileFlags) As Boolean
End Function

Il faut aussi déclarer le delegate CopyProgressRoutine et les enums utilisés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Private Delegate Function CopyProgressRoutine( _
    ByVal TotalFileSize As Int64, _
    ByVal TotalBytesTransferred As Int64, _
    ByVal StreamSize As Int64, _
    ByVal StreamBytesTransferred As Int64, _
    ByVal dwStreamNumber As UInt32, _
    ByVal dwCallbackReason As CopyProgressCallbackReason, _
    ByVal hSourceFile As IntPtr, _
    ByVal hDestinationFile As IntPtr, _
    ByVal lpData As IntPtr) As CopyProgressResult
 
Private Enum CopyProgressResult As UInt32
    PROGRESS_CONTINUE = 0
    PROGRESS_CANCEL = 1
    PROGRESS_STOP = 2
    PROGRESS_QUIET = 3
End Enum
 
Private Enum CopyProgressCallbackReason As UInt32
    CALLBACK_CHUNK_FINISHED = 0
    CALLBACK_STREAM_SWITCH = 1
End Enum
 
<Flags>
Private Enum MoveFileFlags As UInt32
    MOVE_FILE_REPLACE_EXISTSING = &H00000001
    MOVE_FILE_COPY_ALLOWED = &H00000002
    MOVE_FILE_DELAY_UNTIL_REBOOT = &H00000004
    MOVE_FILE_WRITE_THROUGH = &H00000008
    MOVE_FILE_CREATE_HARDLINK = &H00000010
    MOVE_FILE_FAIL_IF_NOT_TRACKABLE = &H00000020
End Enum

Ensuite, tu déclares une fonction de callback qui sera appelée à chaque fois que la copie progresse, avec la même signature que le delegate CopyProgressRoutine :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Function OnCopyProgress( _
    ByVal TotalFileSize As Int64, _
    ByVal TotalBytesTransferred As Int64, _
    ByVal StreamSize As Int64, _
    ByVal StreamBytesTransferred As Int64, _
    ByVal dwStreamNumber As UInt32, _
    ByVal dwCallbackReason As CopyProgressCallbackReason, _
    ByVal hSourceFile As IntPtr, _
    ByVal hDestinationFile As IntPtr, _
    ByVal lpData As IntPtr) As CopyProgressResult
 
    Dim percent As Double = TotalBytesTransferred / TotalFileSize
    Console.WriteLine("{0:P}", percent)
 
    Return CopyProgressResult.PROGRESS_CONTINUE
 
End Function

Et enfin tu peux appeler MoveFileWithProgress :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dim result As Boolean = MoveFileWithProgress(source, destination, AddressOf OnCopyProgress, IntPtr.Zero, MoveFileFlags.MOVE_FILE_WRITE_THROUGH Or MoveFileFlags.MOVE_FILE_COPY_ALLOWED)

Après il faut jouer sur les paramètres si tu veux modifier le comportement... Je te laisse regarder la doc pour voir ce dont tu as besoin exactement

**bansan** · 18/10/2010, 13h19

Bonjour,

j'ai trouvé un code sur internet censé pouvoir copier un fichier tout en faisant evoluer le progressbar
or une fois que je met ce code sous micorsoft visual basic 2010
il me signale une erreur au niveau de la fonction et me dit que

La fonction copyprogress ne retourne pas une valeur pour tous les chemins du code. Une instruction 'Return' est t'elle manquante?

Si quelqu'un pouvait m'aider

merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Delegate Function CopyProgressRoutine(ByVal totalFileSize As Int64, ByVal totalBytesTransferred As Int64, ByVal streamSize As Int64, ByVal streamBytesTransferred As Int64, ByVal dwStreamNumber As Int32, ByVal dwCallbackReason As Int32, ByVal hSourceFile As Int32, ByVal hDestinationFile As Int32, ByVal lpData As Int32) As Int32
 
Private Declare Auto Function CopyFileEx Lib "kernel32.dll" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal lpProgressRoutine As CopyProgressRoutine, ByVal lpData As Int32, ByVal lpBool As Int32, ByVal dwCopyFlags As Int32) As Int32
 
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim copyError As Exception = New System.ComponentModel.Win32Exception(System.Runtime.InteropServices.Marshal.GetLastWin32Error)
Dim cpr As New CopyProgressRoutine(AddressOf CopyProgress)
CopyFileEx("C:\Program Files\Common Files\Microsoft Shared\DAO\dao360.dll", "C:\dao360_delete.dll", cpr, 0, 0, 0)
 
End Sub
 
Private Function CopyProgress(ByVal totalFileSize As Int64, ByVal totalBytesTransferred As Int64, ByVal streamSize As Int64, ByVal streamBytesTransferred As Int64, ByVal dwStreamNumber As Int32, ByVal dwCallbackReason As Int32, ByVal hSourceFile As Int32, ByVal hDestinationFile As Int32, ByVal lpData As Int32) As Int32
ProgressBar1.Value = Convert.ToInt32(totalBytesTransferred / totalFileSize * 100)
 
End Function

**Jerede** · 18/10/2010, 23h15

Bonsoir,

Tu déclare une fonction qui est censé retourné un Int32

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Private Delegate Function CopyProgressRoutine(ByVal totalFileSize As Int64, ByVal totalBytesTransferred As Int64, ByVal streamSize As Int64, ByVal streamBytesTransferred As Int64, ByVal dwStreamNumber As Int32, ByVal dwCallbackReason As Int32, ByVal hSourceFile As Int32, ByVal hDestinationFile As Int32, ByVal lpData As Int32) As Int32

Hors dans ton code, ta fonction ne retourne rien

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Function CopyProgress(ByVal totalFileSize As Int64, ByVal totalBytesTransferred As Int64, ByVal streamSize As Int64, ByVal streamBytesTransferred As Int64, ByVal dwStreamNumber As Int32, ByVal dwCallbackReason As Int32, ByVal hSourceFile As Int32, ByVal hDestinationFile As Int32, ByVal lpData As Int32) As Int32
ProgressBar1.Value = Convert.ToInt32(totalBytesTransferred / totalFileSize * 100)
End Function

Tu peut voir sur msdn les différentes valeurs à renvoyer : http://msdn.microsoft.com/en-us/libr...(v=VS.85).aspx

PROGRESS_CANCEL 1 Cancel the copy operation and delete the destination file.

PROGRESS_CONTINUE 0 Continue the copy operation.

PROGRESS_QUIET 3 Continue the copy operation, but stop invoking CopyProgressRoutine to report progress.

PROGRESS_STOP 2 Stop the copy operation. It can be restarted at a later time.

J'aurais préféré utiliser du code managé pour copié les fichiers et mettre ca dans un Thread pour ne pas bloquer l'interface

**tomlev** · 19/10/2010, 00h31

Envoyé par bansan

j'ai trouvé un code sur internet censé pouvoir copier un fichier tout en faisant evoluer le progressbar
or une fois que je met ce code sous micorsoft visual basic 2010
il me signale une erreur au niveau de la fonction et me dit que

C'est à peu près la même chose que ta question de l'autre jour, où je t'ai donné une réponse longue et détaillée pour laquelle tu ne t'es même pas donné la peine de remercier... Franchement, ça donne pas trop envie de t'aider

A part ça, la réponse de Jerede semble correcte.

**bansan** · 19/10/2010, 00h53

Désolé si je ne t'ai pas remercier

Merci

**bansan** · 19/10/2010, 01h17

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Shared Function MoveFileWithProgress( _
        ByVal lpExistingFileName As String, _
        ByVal lpNewFileName As String, _
        ByVal lpProgressRoutine As CopyProgressRoutine, _
        ByVal lpData As IntPtr, _
        ByVal dwFlags As MoveFileFlags) As Boolean
 
    End Function

Sous vb2010 express il me met "end Function" surligné en vert et me dit comme erreur:

La fonction 'MoveFileWithProgress' ne retourne pas une valeur pour tous les chemins de code. Une instruction 'Return' est-elle manquante*?

Pourquoi?

**Sehnsucht** · 19/10/2010, 01h26

Bonsoir,

Tu as ce warning, car tu as créé une fonction qui renvoie une valeur (ici un Boolean) mais tu ne renvoies aucune valeur (à l'aide d'une instruction Return).

Or comme le but d'une fonction est "normalement" d'utiliser la valeur de retour, et que tu n'en renvoies pas ça peut poser des problèmes ce que te signale le compilateur.

Cordialement !

**bansan** · 19/10/2010, 01h27

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
Public Class Form1
 
    Private Shared Function MoveFileWithProgress( _
        ByVal lpExistingFileName As String, _
        ByVal lpNewFileName As String, _
        ByVal lpProgressRoutine As CopyProgressRoutine, _
        ByVal lpData As IntPtr, _
        ByVal dwFlags As MoveFileFlags) As Boolean
 
    End Function
 
 
    Private Delegate Function CopyProgressRoutine( _
    ByVal TotalFileSize As Int64, _
    ByVal TotalBytesTransferred As Int64, _
    ByVal StreamSize As Int64, _
    ByVal StreamBytesTransferred As Int64, _
    ByVal dwStreamNumber As UInt32, _
    ByVal dwCallbackReason As CopyProgressCallbackReason, _
    ByVal hSourceFile As IntPtr, _
    ByVal hDestinationFile As IntPtr, _
    ByVal lpData As IntPtr) As CopyProgressResult
 
    Private Enum CopyProgressResult As UInt32
        PROGRESS_CONTINUE = 0
        PROGRESS_CANCEL = 1
        PROGRESS_STOP = 2
        PROGRESS_QUIET = 3
    End Enum
 
    Private Enum CopyProgressCallbackReason As UInt32
        CALLBACK_CHUNK_FINISHED = 0
        CALLBACK_STREAM_SWITCH = 1
    End Enum
 
    <Flags()>
    Private Enum MoveFileFlags As UInt32
        MOVE_FILE_REPLACE_EXISTSING = &H1
        MOVE_FILE_COPY_ALLOWED = &H2
        MOVE_FILE_DELAY_UNTIL_REBOOT = &H4
        MOVE_FILE_WRITE_THROUGH = &H8
        MOVE_FILE_CREATE_HARDLINK = &H10
        MOVE_FILE_FAIL_IF_NOT_TRACKABLE = &H20
    End Enum
 
 
    Private Function OnCopyProgress( _
    ByVal TotalFileSize As Int64, _
    ByVal TotalBytesTransferred As Int64, _
    ByVal StreamSize As Int64, _
    ByVal StreamBytesTransferred As Int64, _
    ByVal dwStreamNumber As UInt32, _
    ByVal dwCallbackReason As CopyProgressCallbackReason, _
    ByVal hSourceFile As IntPtr, _
    ByVal hDestinationFile As IntPtr, _
    ByVal lpData As IntPtr) As CopyProgressResult
 
        Dim percent As Double = TotalBytesTransferred / TotalFileSize
 
 
        Return CopyProgressResult.PROGRESS_CONTINUE
 
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim result As Boolean = MoveFileWithProgress("D:\VIDEOS\je.v", "D:\Jeu.v", AddressOf OnCopyProgress, IntPtr.Zero, MoveFileFlags.MOVE_FILE_WRITE_THROUGH Or MoveFileFlags.MOVE_FILE_COPY_ALLOWED)
        MsgBox(CopyProgressResult.PROGRESS_CONTINUE)
    End Sub
End Class

j'ai tut essayé mais a priori ca ne marche pas

**tomlev** · 19/10/2010, 01h32

Envoyé par bansan

Sous vb2010 express il me met "end Function" surligné en vert et me dit comme erreur:
La fonction 'MoveFileWithProgress' ne retourne pas une valeur pour tous les chemins de code. Une instruction 'Return' est-elle manquante*?

Tu as bien mis l'attribut <DllImport> au dessus comme dans mon code ? Normalement ça devrait marcher, j'ai testé ce code avant de le poster...

**Jerede** · 19/10/2010, 01h33

Qu'est ce qui ne marche pas ?

Tu m'embrouille avec tes deux sujets, faudrai en supprimer un

**tomlev** · 19/10/2010, 01h34

Envoyé par bansan

j'ai tut essayé mais a priori ca ne marche pas

C'est parce que tu as supprimé les attributs <DllImport> du code que j'avais posté... ils n'étaient pas là pour faire joli

(suite de la discussion sur le sujet d'origine, sinon on va plus s'y retrouver...)

**bansan** · 19/10/2010, 01h37

si qqun pouvait juste me donner le bon code et ensuite une fois que cela marche, m'expliquer
ca serait genial...
ca fait une semaine que je cherche et tourne et retourne les forums ...

http://khsw.blogspot.com/2005/08/cop...-in-vbnet.html

Sur ce lien , il donne toutes les etapes, cependant...cela ne fonctionne pas chez moi en tout cas..

je suis sous vb 2010 express...

quand j'essaie la solution de tomlev....pareil...je ne sais pas ou cela bug...

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
Private Shared Function MoveFileWithProgress( _
        ByVal lpExistingFileName As String, _
        ByVal lpNewFileName As String, _
        ByVal lpProgressRoutine As CopyProgressRoutine, _
        ByVal lpData As IntPtr, _
        ByVal dwFlags As MoveFileFlags) As Boolean
 
    End Function
 
 
    Private Delegate Function CopyProgressRoutine( _
    ByVal TotalFileSize As Int64, _
    ByVal TotalBytesTransferred As Int64, _
    ByVal StreamSize As Int64, _
    ByVal StreamBytesTransferred As Int64, _
    ByVal dwStreamNumber As UInt32, _
    ByVal dwCallbackReason As CopyProgressCallbackReason, _
    ByVal hSourceFile As IntPtr, _
    ByVal hDestinationFile As IntPtr, _
    ByVal lpData As IntPtr) As CopyProgressResult
 
    Private Enum CopyProgressResult As UInt32
        PROGRESS_CONTINUE = 0
        PROGRESS_CANCEL = 1
        PROGRESS_STOP = 2
        PROGRESS_QUIET = 3
    End Enum
 
    Private Enum CopyProgressCallbackReason As UInt32
        CALLBACK_CHUNK_FINISHED = 0
        CALLBACK_STREAM_SWITCH = 1
    End Enum
 
    <Flags()>
    Private Enum MoveFileFlags As UInt32
        MOVE_FILE_REPLACE_EXISTSING = &H1
        MOVE_FILE_COPY_ALLOWED = &H2
        MOVE_FILE_DELAY_UNTIL_REBOOT = &H4
        MOVE_FILE_WRITE_THROUGH = &H8
        MOVE_FILE_CREATE_HARDLINK = &H10
        MOVE_FILE_FAIL_IF_NOT_TRACKABLE = &H20
    End Enum
 
 
    Private Function OnCopyProgress( _
    ByVal TotalFileSize As Int64, _
    ByVal TotalBytesTransferred As Int64, _
    ByVal StreamSize As Int64, _
    ByVal StreamBytesTransferred As Int64, _
    ByVal dwStreamNumber As UInt32, _
    ByVal dwCallbackReason As CopyProgressCallbackReason, _
    ByVal hSourceFile As IntPtr, _
    ByVal hDestinationFile As IntPtr, _
    ByVal lpData As IntPtr) As CopyProgressResult
 
        Dim percent As Double = TotalBytesTransferred / TotalFileSize
 
 
        Return CopyProgressResult.PROGRESS_CONTINUE
 
    End Function
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim result As Boolean = MoveFileWithProgress("D:\VIDEOS\MEGAVIDEO - Je le regarde.flv", "D:\MEGAVIDEO - Je le regarde.flv", AddressOf OnCopyProgress, IntPtr.Zero, MoveFileFlags.MOVE_FILE_WRITE_THROUGH Or MoveFileFlags.MOVE_FILE_COPY_ALLOWED)
        MsgBox(CopyProgressResult.PROGRESS_CONTINUE)
    End Sub
 
    Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
        ProgressBar1.Value = CopyProgressResult.PROGRESS_CONTINUE
    End Sub

**Jerede** · 19/10/2010, 01h41

Si tu dis pas le problème, on peut pas t'aider

puis j'en connais un qui va devenir fou

Il te répète depuis tout à l'heure de mettre les attributs

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
<DllImport>

au dessus de la déclaration de tes fonctions non managé comme il le montre ici : http://www.developpez.net/forums/d98...sfert-fichier/

**tomlev** · 19/10/2010, 01h58

Envoyé par bansan

si qqun pouvait juste me donner le bon code et ensuite une fois que cela marche, m'expliquer

J'ai déjà posté un code complet qui marche, il suffit de remplacer le Console.WriteLine par la mise à jour de la ProgressBar

Envoyé par bansan

quand j'essaie la solution de tomlev....pareil...je ne sais pas ou cela bug...

Je viens de te dire pourquoi ça marchait pas... mais on a posté presque en même temps, donc tu as peut-être pas vu mon post. Regarde juste au dessus de ton dernier post

**bansan** · 19/10/2010, 10h05

J'ai bien essayé aussi avec le Dllimport cependant voila ce que cela me marque comme erreur:

Erreur 1 Le spécificateur d'attribut n'est pas une instruction complète. Utilisez un signe de continuation de ligne pour appliquer l'attribut à l'instruction suivante.

Etpuis pareil , j'ai le end of function qui est surligné(celui que j'ai souligné)
et l'erreur est la suivante

Avertissement 2 La fonction 'MoveFileWithProgress' ne retourne pas une valeur pour tous les chemins de code. Une instruction 'Return' est-elle manquante*?

Concernant cette ligne qu'il faudrait que je remplace:

Console.WriteLine("{0}", percent)

Sachant que je met une progressbar
Je suis donc censé ecrire: progressbar.value= ....

C'est ça??

Merci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
<DllImport("kernel32.dll", SetLastError:=True, EntryPoint:="MoveFileWithProgressW", CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)>

    Private Shared Function MoveFileWithProgress( _
        ByVal lpExistingFileName As String, _
        ByVal lpNewFileName As String, _
        ByVal lpProgressRoutine As CopyProgressRoutine, _
        ByVal lpData As IntPtr, _
        ByVal dwFlags As MoveFileFlags) As Boolean
    End Function


  Private Delegate Function CopyProgressRoutine( _
      ByVal TotalFileSize As Int64, _
      ByVal TotalBytesTransferred As Int64, _
      ByVal StreamSize As Int64, _
      ByVal StreamBytesTransferred As Int64, _
      ByVal dwStreamNumber As UInt32, _
      ByVal dwCallbackReason As CopyProgressCallbackReason, _
      ByVal hSourceFile As IntPtr, _
      ByVal hDestinationFile As IntPtr, _
      ByVal lpData As IntPtr) As CopyProgressResult

    Private Enum CopyProgressResult As UInt32
        PROGRESS_CONTINUE = 0
        PROGRESS_CANCEL = 1
        PROGRESS_STOP = 2
        PROGRESS_QUIET = 3
    End Enum

    Private Enum CopyProgressCallbackReason As UInt32
        CALLBACK_CHUNK_FINISHED = 0
        CALLBACK_STREAM_SWITCH = 1
    End Enum

    <Flags()>
    Private Enum MoveFileFlags As UInt32
        MOVE_FILE_REPLACE_EXISTSING = &H1
        MOVE_FILE_COPY_ALLOWED = &H2
        MOVE_FILE_DELAY_UNTIL_REBOOT = &H4
        MOVE_FILE_WRITE_THROUGH = &H8
        MOVE_FILE_CREATE_HARDLINK = &H10
        MOVE_FILE_FAIL_IF_NOT_TRACKABLE = &H20
    End Enum

    Private Function OnCopyProgress( _
    ByVal TotalFileSize As Int64, _
    ByVal TotalBytesTransferred As Int64, _
    ByVal StreamSize As Int64, _
    ByVal StreamBytesTransferred As Int64, _
    ByVal dwStreamNumber As UInt32, _
    ByVal dwCallbackReason As CopyProgressCallbackReason, _
    ByVal hSourceFile As IntPtr, _
    ByVal hDestinationFile As IntPtr, _
    ByVal lpData As IntPtr) As CopyProgressResult

        Dim percent As Double = TotalBytesTransferred / TotalFileSize
        Console.WriteLine("{0:P}", percent)

        Return CopyProgressResult.PROGRESS_CONTINUE

    End Function

    Dim result As Boolean = MoveFileWithProgress(source, destination, AddressOf OnCopyProgress, IntPtr.Zero, MoveFileFlags.MOVE_FILE_WRITE_THROUGH Or MoveFileFlags.MOVE_FILE_COPY_ALLOWED)
End Class

**bansan** · 19/10/2010, 10h13

Est ce qu'il ne faudrait pas mettre ces 2 ecritures avant de commencer ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Imports System.Runtime.InteropServices
Imports System.ComponentModel

**bansan** · 19/10/2010, 11h01

Bonjour
De retour sur mon probleme de code ce matin, j'ai enfin reussi a déplacer un fichier sauf que...je ne vois rien sur la barre de progression...

voici le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
Imports System.Runtime.InteropServices
Imports System.ComponentModel
 
Public Class Form1
 
 
    <DllImport("kernel32.dll", SetLastError:=True, EntryPoint:="MoveFileWithProgressW", CharSet:=CharSet.Unicode, ExactSpelling:=True, CallingConvention:=CallingConvention.StdCall)> _
    Private Shared Function MoveFileWithProgress( _
        ByVal lpExistingFileName As String, _
        ByVal lpNewFileName As String, _
        ByVal lpProgressRoutine As CopyProgressRoutine, _
        ByVal lpData As IntPtr, _
        ByVal dwFlags As MoveFileFlags) As Boolean
    End Function
 
 
    Private Delegate Function CopyProgressRoutine( _
        ByVal TotalFileSize As Int64, _
        ByVal TotalBytesTransferred As Int64, _
        ByVal StreamSize As Int64, _
        ByVal StreamBytesTransferred As Int64, _
        ByVal dwStreamNumber As UInt32, _
        ByVal dwCallbackReason As CopyProgressCallbackReason, _
        ByVal hSourceFile As IntPtr, _
        ByVal hDestinationFile As IntPtr, _
        ByVal lpData As IntPtr) As CopyProgressResult
 
    Private Enum CopyProgressResult As UInt32
        PROGRESS_CONTINUE = 0
        PROGRESS_CANCEL = 1
        PROGRESS_STOP = 2
        PROGRESS_QUIET = 3
    End Enum
 
    Private Enum CopyProgressCallbackReason As UInt32
        CALLBACK_CHUNK_FINISHED = 0
        CALLBACK_STREAM_SWITCH = 1
    End Enum
 
    <Flags()>
    Private Enum MoveFileFlags As UInt32
        MOVE_FILE_REPLACE_EXISTSING = &H1
        MOVE_FILE_COPY_ALLOWED = &H2
        MOVE_FILE_DELAY_UNTIL_REBOOT = &H4
        MOVE_FILE_WRITE_THROUGH = &H8
        MOVE_FILE_CREATE_HARDLINK = &H10
        MOVE_FILE_FAIL_IF_NOT_TRACKABLE = &H20
    End Enum
 
    Private Function OnCopyProgress( _
    ByVal TotalFileSize As Int64, _
    ByVal TotalBytesTransferred As Int64, _
    ByVal StreamSize As Int64, _
    ByVal StreamBytesTransferred As Int64, _
    ByVal dwStreamNumber As UInt32, _
    ByVal dwCallbackReason As CopyProgressCallbackReason, _
    ByVal hSourceFile As IntPtr, _
    ByVal hDestinationFile As IntPtr, _
    ByVal lpData As IntPtr) As CopyProgressResult
        Dim percent As Double = TotalBytesTransferred / TotalFileSize
progressbar1.value = percent
        Return CopyProgressResult.PROGRESS_CONTINUE
 
    End Function
 
 
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim result As Boolean = MoveFileWithProgress("D:\images.img", "C:\images.amg", AddressOf OnCopyProgress, IntPtr.Zero, MoveFileFlags.MOVE_FILE_WRITE_THROUGH Or MoveFileFlags.MOVE_FILE_COPY_ALLOWED)
 
    End Sub
End Class

**tomlev** · 19/10/2010, 11h02

Envoyé par bansan

J'ai bien essayé aussi avec le Dllimport cependant voila ce que cela me marque comme erreur:

Erreur 1 Le spécificateur d'attribut n'est pas une instruction complète. Utilisez un signe de continuation de ligne pour appliquer l'attribut à l'instruction suivante.

Enlève la ligne vide entre l'attribut et la méthode MoveFileWithProgress
Oui, VB.NET est vraiment un langage de m***e

Envoyé par bansan

Est ce qu'il ne faudrait pas mettre ces 2 ecritures avant de commencer ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Imports System.Runtime.InteropServices
Imports System.ComponentModel

Juste System.Runtime.InteropServices (après tu as peut-être besoin de System.ComponentModel pour autre chose, mais pour le code que je t'ai filé la 1e devrait suffire il me semble)