Discussion :

[retraite83]

Bonjour,

j'ai une macro qui sauve tous les fichiers d'un répertoire dans le répertoire de même nom sur un autre disque

Code :

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

1
2
3
4
5
6
7
8
9
Kill ThisWorkbook.Path & "\PHOTOS\*.*"
 
phto = Dir(pathServeur & "\PHOTOS\" & "*.*")
    Do While Len(phto) > 0
        phtoPC = ThisWorkbook.Path & "\PHOTOS\" & phto
        phtoServ = pathServeur & "\PHOTOS\" & phto
        FileCopy phtoServ, phtoPC
        phto = Dir()
    Loop

Peut-on copier tous les fichiers sans passer par une boucle, comme le fait "Kill" pour supprimer tous les fichiers

[Valtrase]

Bonjour,
Je pense que la méthode MoveFile de l'objet Scripting.FileSystemObject peut faire cela. Mais est-on gagnant ?

[retraite83]

Bonjour

j'ai testé, on ne gagne rien en temps d'exécution et finalement pour 600 fichiers ça prend 3 secondes, je ne cherche pas plus loin

Merci

[Valtrase]

Re,
Testez aussi avec la méthode MoveFolder pour voir. On ne sait jamais...

[Valtrase]

Bonsoir,
Explication sur les ArrayList et pas que...

[patmeziere]

Bonsoir
la méthode FSO copy avec les propriété du dossier original
ca peut avoir son importance
petie fonction avec la possibilité de supprimer l'original true en 3eme argument

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
Sub test()
    Dim N1 As tring, N2 As String
    'pour un fichier
    'n1 =c:\blablabla\monfichier.txt
    'n2 =c:\trucbidule\machin\monfichier.txt
 
    'pour un dossier
    N1 = "H:\icon"
    N2 = Environ("userprofile") & "\desktop\icon"
    FolderFileCopy N1, N2
End Sub
Function FolderFileCopy(N1, N2, Optional del As Boolean = False)
    If GetAttr(N1) = 16 Then
        Set oFsO = CreateObject("Scripting.FileSystemObject")
        oFsO.CopyFolder N1, N2, True
        If del Then oFsO.deletefolder (N1) 'si on veut supprimer l'original
    Else
        FileCopy N1, N2
        If del Then Kill N1
    End If
End Function