Comment afficher une animation durant copie de fichier

"Snoeze Poes" <Pas_de_Spam@ici.com> a écrit dans le message de
news:zXA0f.12663$m14.719924@phobos.telenet-ops.be...

Bonjour à tous,

Comment puis-je afficher comme via "explorer.exe" , une petite fenetre

avec

l'evolution de copie de fichier ?

Merci

C'est un avi.
Pour le "jouer" on utiliser le contrôle ActiveX Animation
Par exemple pour la lampe de poche on fait
Animation1.Autoplay=True
Animation1.Open "C:MYDIRsearch.avi"

Toutes les animations sont dans
Program FilesMicrosoft Visual StudioCommonGraphicsVideos

Snoeze Poes wrote:

Bonjour à tous,

Comment puis-je afficher comme via "explorer.exe" , une petite
fenetre avec l'evolution de copie de fichier ?

Merci

Bonjour,
pour une copie avec un beau look windows tu peux appeler l API qui va bien.
je copie ci-dessous l'adaptation que j' en ai faite .

tu appelles ma fonction comme cela:

Tmp = CopieFichiersPB(Source, Destination, Me.hwnd)

et C'est BOOOooooo !
DJ

et dans un module tu places le bazard suivant :

Rem ------------------------------------------------------------------------
---
Rem *** special copie et progressBar ***
Type SHFILEOPSTRUCT
hwnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
fAnyOperationsAborted As Long
hNameMappings As Long
lpszProgressTitle As String ' only used if FOF_SIMPLEPROGRESS
End Type
Private Declare Function SHFileOperation Lib "Shell32.dll" Alias
"SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Rem *** fin special progressbar ***
Rem ------------------------------------------------------------------------
---


Function CopieFichiersPB(ByVal PathFicSource As String, ByVal PathFicDesti
As String, hwnd As Long)
Rem
***************************************************************************
Rem * Objet : copie via API windows pour afficher une ProgressBar
*
Rem *
*
Rem * Entrées: chemin de la source, chemin de destination, me.hwnd
*
Rem *
*
Rem * Retours: message resultat de loperation
*
Rem *
*
Rem
***************************************************************************
Rem * NB: le tout est lié a des declarations en debut de module

Const FO_COPY = &H2 'idem avec '&H2&'
Const FO_DELETE = &H3
Const FO_MOVE = &H1
Const FO_RENAME = &H4
Const FOF_FILESONLY = &H80
Const FOF_NOCONFIRMATION = &H10
Const FOF_NOCONFIRMMKDIR = &H200
Const FOF_SIMPLEPROGRESS = &H100

Dim result As Long
Dim lenFileop As Long
Dim foBuf() As Byte
Dim fileop As SHFILEOPSTRUCT

With fileop
.hwnd = hwnd 'me.hwnd
.wFunc = FO_COPY
.pFrom = PathFicSource
.fFlags = FOF_NOCONFIRMATION + FOF_NOCONFIRMMKDIR ' FOF_FILESONLY
.pTo = PathFicDesti & vbNullChar & vbNullChar
End With

result = SHFileOperation(fileop)

If result <> 0 Then ' Operation failed
CopieFichiersPB = "ERREUR " & Err.LastDllError 'Show the error
returned from the API.
Else
CopieFichiersPB = "Copie reussie"
'If fileop.fAnyOperationsAborted <> 0 Then
' MsgBox "Operation Failed"
'End If
End If
End Function

Merci à tous deux !