Discussion :

[ShortcutZ]

Salut à tous,

Voilà, la titre en dit long. Je voudrais savoir comment copier toutes les images finissant par .jpg et .bmp d'un répertoire.

J'ai trouvé dans la FAQ comment copier le répertoire complet, mais je ne sais pas comment appliquer un "filtre" à cette fonction.

Merci

[Delbeke]

Dans le sous forum distribution, j'ai posté un composant Difiletool6.ocx avec ses sources qui devrait permettre cela.
http://www.developpez.net/forums/sho...d.php?t=203465

Il suffit d' un dir("*.jpg" ) pour obtenir tous les jpg, d'ajouter chaque fichier avec la fonction addsourcefile, Indiquer la destionation avec Adddestfile,puis de lancer la fonction FileCopy ou FileMove

Exemple:

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
 
  Dim strTemp As String
  Dim MySourceDirectory As String
  Dim MyDestDirectory As String
 
  MySourceDirectory = " C:\TestDirectorySource"
  MySourceDirectory = " C:\TestDirectorySDestination"
 
  strTemp = Dir(MySourceDirectory & "\*.jpg")
  Do While strTemp <> ""
    FileTool1.AddSourceFile MySourceDirectory & "\" & strTemp
    strTemp = Dir
  Loop
 
  strTemp = Dir(MySourceDirectory & "\*.bmp")
  Do While strTemp <> ""
    FileTool1.AddSourceFile MySourceDirectory & "\" & strTemp
    strTemp = Dir
  Loop
  FileTool1.AddDestFile MyDestDirectory
  FileTool1.CopyFiles
  FileTool1.MoveFiles

[SfJ5Rpw8]

sinon avec filesystemobject..

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Sub copieImage()
 Dim repSource as string
 Dim repDest as string
 Dim Fso
 Set Fso = CreateObject("Scripting.FileSystemObject")
 repSource  = "c:\tmp"
 repDest  = "c:\temp"
 Fso.CopyFile repSource & "\*.jpg", repDest
 Fso.CopyFile repSource & "\*.bmp", repDest
  Set Fso = Nothing
End Sub

[jmfmarques]

Euh...(pour DelBeke)
Et pourquoi pas une seule boucle avec un "filtre" *.* puis la copie des seuls dont right(stremp, 4) = ".jpg" or right(stremp,4) = ".bmp" ?

[Delbeke]

Je voulais faire simple et comprehensible. donc le moins de test possible

[ShortcutZ]

Del, ca fonctionne vraiment bien, mais j'ai également besoin des images qui se trouvent dans tous les sous répertoires...

[jmfmarques]

Tu as également ceci, Shortcutz, qui date d'il y a 2 jours à peine :
http://www.developpez.net/forums/sho...61#post1308061
Celà fonctionne de façon récursive et balaye tous les sous-répertoire également.
Dans le module, le filtre est sur cette ligne :

Code :

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

cherchechemin = FindFirstFile(chemin & "*", WFD)

A toi de jouer (c'est fastoche)...

[ShortcutZ]

Malheureusement je reçois un message d'erreur en exécutant ce zip,

Compile error :

Argument not optional.

Debug me pointe la ligne :

Code :

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

Split = InStr(versrep$, "\")

Avec le Split = surligné.

[SfJ5Rpw8]

j'ai pas vu le zip.. mais Split est un mot réservé en VB6, s'il est utilisé en tant que variable Integer ici , vu le code renomme le ... remplace le par exemple par iSplit..

Code :

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

1
2
3
4
5
 
Dim iSplit as integer 
...
 
iSplit = InStr(versrep$, "\")...;

[jmfmarques]

Bonsoir Bbil,

Si notre ami ShortCutz avait lu le message 18 de la discussion du lien, il y aurait trouvé ceci :

Citation:
comme tu es en vb5, tu utilises Split (qui est utilisé en vb6).

Ouais...
Remplace split par jmfcoucou alors .....

[ShortcutZ]

Oui ça fonctionne très bien. Mais je constate que ^ca ne fonctionne qu'en local. Est-il possible de faire la même chose en réseau ? J'ai essayé en changeant le versrep$ pour "\\ShortZ\Partage\test", mais ca ne fonctionne pas...

[Delbeke]

Del, ca fonctionne vraiment bien, mais j'ai également besoin des images qui se trouvent dans tous les sous répertoires...

Désolé, j'ai raté ce message


Je suis pas sur que ca fonctionnera mais essaye

Code :

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

1
2
3
4
5
Filetool1.AddDestFile Mydirectory & "\*.jpg"
  Filetool1.AddDestFile Mydirectory & "\*.bmp"
  Filetool1.includedirectories = true
  FileTool1.AddDestFile MyDestDirectory
  FileTool1.CopyFiles

[ShortcutZ]

Salut Del,

J'ai essayé le bout de code ci-dessus mais ça ne fonctionne pas. Par contre, j'ai réussit à modifier le code de jmf pour copier à travers le réseau.

Merci à tous pour votre aide, je suis toujours étonné de voir que certaines personnes se donne du mal pour m'aider à résoudre des petits problèmes qui ne les concernent pas du tout.