DÉFILLEMENT COPIE DOSSIER 1.0

Commentaire de pixelone le 23/11/2003 08:55:43

ben didonc ! J'ai pas encore testé mais je te donne 5/10 pour avoir pris le temps de mettre ta source... Pffff c'est bien trop long pour moi pour une simple copie de fichiers... lol .... Merci à toi !

Commentaire de pixelone le 23/11/2003 12:56:20

Alle !  je monte les encheres ...
voici voilà ! 9/10

Commentaire de DARKSIDIOUS le 23/11/2003 18:13:40 administrateur CS

Vous pouvez mettre la note que vous voulez, c'est juste une source pour montrer à ce qui ne savent pas faire, comment afficher une progression de copie !

Merci pour ton 9 pixelone ;-)

J'essaie de mettre le code source directement, mais c'est pas pour autant que tu ne dois pas copier le zip...

Rrominet : il utilise uniquement 4 API, mais c'est vrai qu'elles sont utiles !

DarK Sidious

Commentaire de DARKSIDIOUS le 10/12/2003 07:32:52 administrateur CS

Mise à jour de la source : gestion de la copie complète d'un dossier dorénavant avec tout ses sous-dossiers.

DarK Sidious

Commentaire de DARKSIDIOUS le 18/12/2003 18:19:31 administrateur CS

kimmelf2 >> J'avoue avoir eu du mal à trouver cette fonction récursive pour obtenir les fichiers des sous-dossiers !

DarK Sidious

Commentaire de kimmelf2 le 22/12/2003 01:23:06

pour info, si vous voulez vous amuser ....

Ld et Lf sont des ListDir et ListFile
La fonction efface completement le contenu d'un repertoire cite

Private Sub VideDir(d As String)
    Dim i As Integer
    
    With frmMain
        .Ld.Path = d
        .Lf.Path = d
        For i = 0 To .Lf.ListCount - 1
            Kill .Lf.Path & "" & .Lf.List(i)
        Next
        
deldir: ' supprime le premier sous-dossier
        If .Ld.ListCount <> 0 Then
            VideDir .Ld.List(0)
        Else
            Exit Sub
        End If
        
        .Ld.Path = d
vbNo Then Exit Sub
        RmDir .Ld.List(0)
        .Ld.Refresh
        GoTo deldir
    End With
End Sub

Commentaire de DARKSIDIOUS le 11/11/2004 16:21:13 administrateur CS

Merci à toi ZackyBambou, c'est sympa ;)

DarK Sidious

Commentaire de gmni le 13/11/2008 23:34:14

Et bien ABF pourquoi pas ça (copier/coller un dossier/fichier):

Option Explicit

Private 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
End Type
      
Private Const FOF_MULTIDESTFILES = &H1
Private Const FOF_CONFIRMMOUSE = &H2
Private Const FOF_SILENT = &H4
Private Const FOF_RENAMEONCOLLISION = &H8
Private Const FOF_NOCONFIRMATION = &H10
Private Const FOF_WANTMAPPINGHANDLE = &H20
Private Const FOF_CREATEPROGRESSDLG = &H0
Private Const FOF_ALLOWUNDO = &H40
Private Const FOF_FILESONLY = &H80
Private Const FOF_SIMPLEPROGRESS = &H100
Private Const FOF_NOCONFIRMMKDIR = &H200
Private Const FO_MOVE = 1
Private Const FO_COPY = 2
Private Const FO_DELETE = 3
Private Const FO_RENAME = 4

Private Declare Function SHFileOperation Lib "shell32.dll" (lpFileOp As SHFILEOPSTRUCT) As Long

Public Function Copie(ByVal strSource As String, ByVal strDest As String) As Boolean
'
Dim varFOS As SHFILEOPSTRUCT
With varFOS
.wFunc = FO_COPY
.pFrom = strSource
.pTo = strDest
End With
Call SHFileOperation(varFOS)
Copie = (varFOS.fAnyOperationsAborted = 0)
'
End Function

Private Sub Command1_Click()
Copie "C:\test", "E:\test"
End Sub