dodineau
Messages postés45Date d'inscriptiondimanche 4 juillet 2004StatutMembreDernière intervention11 mars 2022
-
12 août 2006 à 16:34
dodineau
Messages postés45Date d'inscriptiondimanche 4 juillet 2004StatutMembreDernière intervention11 mars 2022
-
12 août 2006 à 22:59
Bonjour,
Dans mon poste de travail, je vois mon appareil photo dans la liste séparée des scanneurs et appareils photos.
Je voudrais connaitre la commande pour pouvoir faire la liste des photos présentes et les copiers dans un répertoire du DD.
Merci
A+
tri_yann
Messages postés124Date d'inscriptionmercredi 23 novembre 2005StatutMembreDernière intervention19 septembre 20133 12 août 2006 à 22:49
Tu peux essayer ça. Il faut que tu coches "Microsoft Scripting Runtime" dans les références
<hr />
Dim fso As Scripting.FileSystemObject
Dim fle As Scripting.File
Dim fld As Scripting.Folder
Dim strExt, strDestination As String
Set fso = New Scripting.FileSystemObject
Set fld = fso.GetFolder("F:\Source_Photos") '--- Indiquer ici le chemin source des photos---
strDestination = "C:\Destination_Photos" '--- Indiquer ici le chemin de destination des photos ---
'--- Lecture de tous les fichiers du dossier source ---
For Each fle In fld.Files
strExt = Right(fle.Name, Len(fle.Name) - InStr(fle.Name, "."))
If strExt = "jpg" Then
fso.CopyFile fle.Path, strdestinnation & fle.Name
End If
Next fle
Set fso = Nothing
Set fld = Nothing
Set fle = Nothing
dodineau
Messages postés45Date d'inscriptiondimanche 4 juillet 2004StatutMembreDernière intervention11 mars 2022 12 août 2006 à 22:59
Merci pour ta réponse.
Le problème c'est que je ne connais pas le chemin de mes photos sur l'appareil.
En effet celui ci n'est pas reconnu comme un lecteur mais comme "interface twain".