Lire les fichiers de l'appareil photo

Signaler
Messages postés
43
Date d'inscription
dimanche 4 juillet 2004
Statut
Membre
Dernière intervention
6 juin 2007
-
Messages postés
43
Date d'inscription
dimanche 4 juillet 2004
Statut
Membre
Dernière intervention
6 juin 2007
-
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+

2 réponses

Messages postés
124
Date d'inscription
mercredi 23 novembre 2005
Statut
Membre
Dernière intervention
19 septembre 2013
3
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













Yann
Messages postés
43
Date d'inscription
dimanche 4 juillet 2004
Statut
Membre
Dernière intervention
6 juin 2007

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".

A+