Discussion :

[Mut]

Bonjour !

J'essais de copier des fichiers selon une extension (.pdf) dans un dossier de destination (sans spécifier les noms de fichiers).

J'ai fais des tests avec copyfile mais il n'a pas l'air de prendre le c:\*.pdf...

Si quelqu'un a une idée...


Merci

[Delbeke]

Et si tu nous montrait le code que tu utilises ?
Copyfiles n'est pas une instruction vb6

[Mut]

En fait mon code ne correspond pas vraiment à mon besoin....

dans le module :

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
 
 
        Private Declare Function CopyFileA Lib "kernel32" _
  ( _
  ByVal lpExistingFileName As String, _
  ByVal lpNewFileName As String, _
  ByVal bFailIfExists As Long _
  ) _
  As Long
 
Private Const MAX_PATH = 260
 
 
Function MyFileCopy(ByVal Source As String, _
                   ByVal Destination As String, _
                   Optional ByVal Overwrite As Boolean = True) As Boolean
 
 
    If Len(Destination) > MAX_PATH Or Len(Source) > MAX_PATH Then
        MyFileCopy = False
    Else
        If (Overwrite) Then
            MyFileCopy = (CopyFileA(Source, Destination, 0) <> 0)
        Else
            MyFileCopy = (CopyFileA(Source, Destination, 1) <> 0)
        End If
    End If
End Function

Ensuite

Code :

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

1
2
 
retour=MyFileCopy("c:\*.pdf","c:\test")

ça ne fonctionne pas car à mon avis la fonction ne gère pas le "*" et il faut également lui spécifier un nom de fichier dans la destination alors que moi je souhaite lui spécifier un repertoire cible et non un fichier...J'espère que c'est un peu plus clair...

[Delbeke]

Effectivement, l' api copyfile ne gère pas les wildchars.Pour faire çà, on utilise l'api SHFileOperation, qui est u peu plus compliquée à utiliser.
Tu trouveras dans mes contributions, un composant écrit en vb6 avec son source qui fait çà (entre autres) DiFileTools6.ocx.
Tu peux l'utiliser tel quel ou extraitre la partie qui s'occupe de la copie de fichiers

[Mut]

C'est tout simplement parfait ! Un peu dur de récupérer la partie qui m'intéressait mais ça fonctionne maintenant !

Merci beaucoup !