Récupérer tous les .JPG du PCRésolu

Question

Bonjour,
je voudrais faire un logiciel qui permet de récupérer les .JPG du PC ( en scannant tous les disque dur ... )

Je me suis inspiré d'un code que j'ai trouvé sur le forum puis je l'ai transformé pour créer mon programme. Le soucis c'est que si je définis le disque à scanner moi même ( soit C:\ ) j'ai une erreur d'accès à document and setting et si pour définir les disques à scanner j'utilise mon code qui scanne tous les disques du PC, il ne se passe rien. Voici le code :


Imports System.IO
 
Public Class Form1
 
    Private Function RécupérerFichiersImage()
        Dim arDrives() As String
        arDrives = Directory.GetLogicalDrives()
        Return arDrives
 
        For Each Fichier As String In My.Computer.FileSystem.GetFiles(arDrives.ToString, FileIO.SearchOption.SearchAllSubDirectories)
            If Path.GetFileName(Fichier).ToLower.Contains(".JPG") Then
                My.Computer.FileSystem.MoveFile(Fichier, "C:\Users\CLeBeR\Desktop")
            End If
        Next
    End Function

Merci de l'aide que vous pourrez m'apporter.

Utilisateur anonyme · Accepted Answer

Je me suis permis de faire un bout de code.
Si tu as plusieurs disques, la recherche peut être assez longue et il faudrait alors mettre en oeuvre un thread.

Option Strict On
Public Class Form1
    'ajout d'une listbox
    Dim liste As New ListBox With {.Parent Me, .Width 400, .Height = 400}
    'ajout d'un picturebox
    Dim box As New PictureBox With {.Parent Me, .Bounds New Rectangle(400, 0, 400, 400), .SizeMode = PictureBoxSizeMode.AutoSize}

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        'redimmension formulaire
        Me.Size = New Size(800, 450)
        'ajout événement à l'objet liste
        AddHandler liste.SelectedIndexChanged, AddressOf listeclick
        'recherche dans tous les disques
        For Each drive As IO.DriveInfo In IO.DriveInfo.GetDrives
            If drive.IsReady Then
                'ici je recherche les jpg ainsi que les gif
                ChercheImages(New IO.DirectoryInfo(drive.RootDirectory.ToString), {"jpg", "gif"})
            End If
        Next
    End Sub

    Private Sub listeclick(sender As Object, e As EventArgs)
        'affiche l'image sélectionnée dans picturebox
        Using reader As New IO.FileStream(liste.Text, IO.FileMode.OpenOrCreate)
            box.Image = Image.FromStream(reader)
        End Using
    End Sub

    Private Sub ChercheImages(dossier As IO.DirectoryInfo, Extensions() As String)
        Try
            'pour chaque extension...
            For Each ext As String In Extensions
                '...on fait une liste des fichiers concernés...
                Dim f() As IO.FileInfo = dossier.GetFiles("*." & ext)
                '...et on ajoute les fichiers à la listbox
                For Each img As IO.FileInfo In f
                    liste.Items.Add(img.FullName)
                Next
            Next
            'recherche des sous-dossiers...
            For Each d As IO.DirectoryInfo In dossier.GetDirectories
                'et recherche récursive des fichiers
                ChercheImages(d, Extensions)
            Next
        Catch ex As Exception

        End Try
    End Sub
End Class

ucfoutu · Answer

Bonjour,
Ton OS ne serait pas (entre autres possibilités) Win 7 ?
Si oui : dossier protégé !


________________________
Réponse exacte ? => "REPONSE ACCEPTEE" pour faciliter les recherches.
Pas d'aide en ligne installée ? => ne comptez pas sur moi pour simplement vous dire ce qu'elle contient. Je n'interviendrai qu'en cas de nécessité de développ

Utilisateur anonyme · Answer

Exact, j'ai oublié de préciser Windows 7 64 Bit, mais pourtant j'utilise le compte administrateur ( celui crée quand j'ai formaté le PC ) Et il n'y a pas un moyen de donner les droits au logiciel ?

NHenry · Answer

Bonjour, 

Le dossier System Volume Information est limité à System et génère systématiquement une exception.

Donc, soit tu ne scannes que certains dossiers, soit tu fais ta procédure de scan des dossiers (fonction récursive).

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site

Utilisateur anonyme · Answer

Salut,
Il faudrait que je scanne tous les dossiers et sous dossiers puis que je liste les fichiers .JPG et que je copie tous les fichiers qui ont été listés ?

Utilisateur anonyme · Answer

Bonjour,

Juste avec cette ligne :

 If Path.GetFileName(Fichier).ToLower.Contains(".JPG") Then

C'est garanti que tu ne récupèras rien sauf si tu as mis 

Option compare text

Parce que ton IF est patenté pour chercher des majuscules (".JPG") dans un texte mis en minuscules (ToLower)

Utilisateur anonyme · Answer

Salut,
j'ai mis l'option mais il ne se passe toujours rien, en revanche si je met C:\ il n'y a plus l'erreur.

NHenry · Answer

Bonjour, 

"il n'y a plus l'erreur", problème résolu ou pas ?

Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site

Utilisateur anonyme · Answer

Salut,
non mon problème n'est hélas toujours pas résolu, ne vous inquiétez pas je le passerai en résolu des que le problème sera réglé, j'ai l'habitude.

Utilisateur anonyme · Answer

Bonjour

En y regardant de plus plus près, je pense que tu devrais sortir tes lignes de ta fonction.

  For Each Fichier As String In My.Computer.FileSystem.GetFiles(arDrives.ToString, FileIO.SearchOption.SearchAllSubDirectories)
            If Path.GetFileName(Fichier).ToLower.Contains(".JPG") Then
                My.Computer.FileSystem.MoveFile(Fichier, "C:\Users\CLeBeR\Desktop")
            End If
        Next

Parce que ton Return signifie la sortie de la fonction et que, en principe, les opérations de copie/déplacement ne sont de toutes façons interdites ou mal tolérées dans des Function(). En principe la seule chose que peut faire une function() c'est retourner un résultat. Mais là, je dois quitter parce que la batterie du portable est en train de crier famine.

Utilisateur anonyme · Answer

Bonsoir,

non mon problème n'est hélas toujours pas résoluIl aurait pu l'être si tu avais suivi les conseils de NHenry (que je salue) dans son premier post 
NHenry à dit :


Donc, soit tu ne scannes que certains dossiers, soit tu fais ta procédure de scan des dossiers (fonction récursive).

GetFiles plantera à coups sûrs sur les dossiers protégés.

Utilisateur anonyme · Answer

Salut les gars,
sur le site j'ai trouvé le projet de Henry http://www.vbfrance.com/codes/BIBLIOTHEQUE-ANALYSE-RECUPERATION-RECURSIVE-FICHIERS_34372.aspx
Je l'ai récupéré et j'ai copier les parties qui m&#8217;intéressent. Lors que la compilation tout se passe bien, mais lorsque j&#8217;appuie sur le bouton pour scanner les dossiers rien ne se passe, je demande donc plus particulièrement à Henry, est-ce que tu peux jeter un coup d&#8217;œil à mon projet ?
Merci.
https://dl.dropbox.com/u/79764502/Sauvegarde%20Fichiers.zip

NHenry · Answer

Bonjour, 

En quoi consiste ces modifications ?

Sinon, la bibliothèque est faite pour .NET2, donc certaines choses ont peut être changer depuis (les threads par exemple, je ne les gères plus de la même manière).

Sinon, voir en adaptant :
http://www.codyx.org/snippet_taille-dossier-sous-dossiers-octets_34.aspx

Ce sera plus léger et je pense, plus adapté à ton besoin.

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site

Utilisateur anonyme · Answer

Salut gcorbineau,
j'ai recommencé mes recherches sur la méthode récursive, et j'ai trouvé cet excellent article sur le site de Mircrosoft, http://support.microsoft.com/kb/306666/fr
Mais j'ai un problème, lorsque je copie le code comme demandé dans la partie "Exemple de code complet" mais il y avait des erreurs ( celle de la remarque un peu plus bas ) Je me suis dit, c'est pas grave je vais juste copier le code et créer moi même les composants c'est a dire :
btnSearch = Button()
lblFile = Label()
cboDirectory = ComboBox()
txtFile = TextBox()
lstFilesFound = ListBox()
lblDirectory = Label()

J'ai ensuite copié le code :


    Private Sub btnSearch_Click(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles btnSearch.Click
        lstFilesFound.Items.Clear()
        txtFile.Enabled = False
        cboDirectory.Enabled = False
        btnSearch.Text = "Searching..."
        Me.Cursor = Cursors.WaitCursor
        Application.DoEvents()
        DirSearch(cboDirectory.Text)
        btnSearch.Text = "Search"
        Me.Cursor = Cursors.Default
        txtFile.Enabled = True
        cboDirectory.Enabled = True
    End Sub

    Sub DirSearch(ByVal sDir As String)
        Dim d As String
        Dim f As String

        Try
            For Each d In Directory.GetDirectories(sDir)
                For Each f In Directory.GetFiles(d, txtFile.Text)
                    lstFilesFound.Items.Add(f)
                Next
                DirSearch(d)
            Next
        Catch excpt As System.Exception
            Debug.WriteLine(excpt.Message)
        End Try
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, _
            ByVal e As System.EventArgs) Handles MyBase.Load
        Dim s As String
        cboDirectory.Items.Clear()
        For Each s In Directory.GetLogicalDrives()
            cboDirectory.Items.Add(s)
        Next
        cboDirectory.Text = "C:"
    End Sub

Aucune erreur de compilation, mais lorsque je cherche, le programme ne trouve rien et donc la listbox n'ajoute aucun composant.
J'espère que tu va trouver ce qu'il se passe, personnellement j'ai relu le code plusieurs fois et je ne comprends pourquoi ça ne marche pas, en plus c'est exactement le code qu'il me faut !
Merci de ton aide !

NHenry · Answer

Bonjour, 

Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).

As-tu regardé en pas à pas pour voir comment réagit le programme (en espionnant les variables) ?
Quels filtres as-tu utilisé dans txtFile.Text ?

---------------------------------------------------------------------
[list=ordered][*]Pour poser correctement une question et optimiser vos chances d'obtenir des réponses, pensez à lire le règlement CS, celui-ci pour bien poser votre question ou encore celui-ci pour les PFE et autres exercices.[*]Quand vous postez un code, merci d'utiliser la coloration syntaxique (3ième icône en partant de la droite : ).[*]En VB.NET pensez à activer Option Explicit et Option Strict (propriété du projet) et à retirer l'import automatique de l'espace de nom Microsoft.VisualBasic (onglet Références dans les propriétés du projet).[*]Si votre problème est résolu (et uniquement si c'est le cas), pensez à mettre "Réponse acceptée" sur le ou les messages qui vous ont aidés/list
---
Mon site

Utilisateur anonyme · Answer

Salut,
oui j'utilise la balise code normalement, mais là j'ai zappé puisque j'ai copié le message en partant d'un des mes autres posts sur un autre forum qui n'utilise pas les mêmes balises.
Alors j'ai fais un pas à pas et une exception se produit à un moment donné : 


Dans le filtre j'ai essayé *.dll ou *.JPG et même rien, quand je met rien il cherche assez longtemps mais n'affiche rien non plus.

Utilisateur anonyme · Answer

Voilà ... 3 mois de recherches QUI ONT ENFIN ABOUTIES !!!!! 
Merci banana32 !!!!!!!!!!!! 

Par contre banana j'ai du déplacer les procédures du chargement du formulaire et les placer dans l&#8217;évènement clique du bouton car le formulaire n'apparaissait pas si non, et y a aussi un truc qui se passe je sais pas si c'est normal quand je clique sur un item, une erreur apparait comme quoi l'accès est refusé ...

Utilisateur anonyme · Answer

Bonjour,


Par contre banana j'ai du déplacer les procédures du chargement du formulaire et les placer dans l&#8217;évènement clique du bouton car le formulaire n'apparaissait pas si non, et y a aussi un truc qui se passe je sais pas si c'est normal quand je clique sur un item, une erreur apparait comme quoi l'accès est refusé ...


Regarde dans le gestionnaire si l'hospice de chien sale de tabarouette de joualvert de simonac d'indexation est en cause. Le chien sale fout les fichiers en lecture seule quand il fait son hospice d'indexation. Il faut décocher Lecture seule dans l'Explorateur. Mais aussitôt qu'il a vu que lecture seule est décochée, le chien sale la remet.

Utilisateur anonyme · Answer

@cmarcotte
Salut,
J'ai compris ton explication mais je ne vois pas de quel gestionnaire tu me parles.

Utilisateur anonyme · Answer

PS : ça marche pour les photos qui sont par exemple dans programfile, ou dans mon dropbox ( importation de photos ... ) ou dans mes images ... Mais ça ne marche pas pour les images dans "C:\Program file \microsoft\ shared ..."

Utilisateur anonyme · Answer

Intéresse toi aux attributs des fichiers avant de les placer dans ta liste :
'...et on ajoute les fichiers à la listbox
 For Each img As IO.FileInfo In f
    Select Case img.Attributes
       Case IO.FileAttributes.Compressed Or IO.FileAttributes.System
            '...
       Case IO.FileAttributes.Encrypted Or IO.FileAttributes.Device
            '...
       Case Else
            liste.Items.Add(img.FullName)
    End Select
 Next

Utilisateur anonyme · Answer

En gros cette simple ligne suffirait finalement :
If img.Attributes = IO.FileAttributes.Archive Then liste.Items.Add(img.FullName)

Utilisateur anonyme · Answer

Non ça ne marche toujours pas, mais c'est pas grave parce que je n'utiliserai pas cette fonction, en revanche j'ai continué à travailler le logiciel, j'ai ajouté une fonction de filtre ( Scanner que les fichiers Audio / Images / Vidéos / Documents ou plusieurs en même temps ), j'ai également ajouté un label qui indique le nombre de fichiers trouvés, et je suis en train d'essayer d'ajouter une fonction pour copier les fichiers trouvés dans le répertoire de l'application, je bloque un peu je vais continuer mes recherches.
    Private Sub ChercherFichiers(dossier As IO.DirectoryInfo, Extensions() As String)
        Try
            'pour chaque extension...
            For Each ext As String In Extensions
                '...on fait une liste des fichiers concernés...
                Dim f() As IO.FileInfo = dossier.GetFiles("*." & ext)
                '...et on ajoute les fichiers à la listbox
                For Each Fichier As IO.FileInfo In f
                    ListboxFichiersTrouvés.Items.Add(Fichier.FullName)
                    My.Computer.FileSystem.MoveFile(Fichier.ToString, Application.StartupPath)
                Next
            Next
            'recherche des sous-dossiers...
            For Each d As IO.DirectoryInfo In dossier.GetDirectories
                'et recherche récursive des fichiers
                ChercherFichiers(d, Extensions)
            Next
        Catch ex As Exception
        End Try
    End Sub
C'est bizarre du coup, il ne trouve plus les fichiers dans mes documents et ne copie pas le peu qu'il trouve.

Utilisateur anonyme · Answer

La syntaxe de My.Computer.FileSystem.MoveFile utilisée dans ton code est incorrecte.
Pense à libérer le sujet (comme tu l'as fait sur l'autre forum) s'il est résolu.

Utilisateur anonyme · Answer

Salut,
Si je me base au titre du sujet "Récupérer tous les .JPG du PC" le sujet a proprement dit est à moitié résolu, on va dire que mon titre n'est pas explicite et que je voulais juste lister les fichiers 
Donc je clos le sujet, merci à tous pour l'aide que vous m'avez apporté et qui m'a permit de faire fonctionner à bien mon application. Donc pour lister les .JPG voir page  réponse de banana.

Utilisateur anonyme · Answer

Bon juste pour vous dire que j'ai résolu le problème de la copie des fichiers de la listbox.
Code :
    Private Sub CopyDesFichiers()
        Dim file As FileInfo
        For Each fileitem In ListboxFichiersTrouvés.Items
            file = New FileInfo(fileitem.Value)
                file.CopyTo(Path.Combine(Application.StartupPath, file.Name), True)
        Next
 
    End Sub

Donc sujet complètement résolu !

Récupérer tous les .JPG du PC

26 réponses

Votre réponse

Discussions similaires