Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionImports System Imports System.IO Imports System.Collections Imports System.Net 'Imports System.IO Public Class frmMain Private files As List(Of String) = New List(Of String) Private directo As List(Of String) = New List(Of String) Private directo2 As List(Of String) = New List(Of String) Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Start() End Sub Public Sub RechercherFichier(ByVal path As String) Timer1.Stop() Try frmLoad.lbStatut.Text = "Analyse en cours de l'ordinateur" RechercheDossier(path, directo) Dim msg As String = "" For Each cc As String In directo msg = msg + cc.ToString + vbCrLf RechercheDossier(cc.ToString, directo2) Next MsgBox("1" + msg) msg = "" For Each ccc As String In directo2 msg = msg + ccc.ToString + vbCrLf RechercherFichier(ccc.ToString) Next MsgBox("2" + msg) frmLoad.lbStatut.Text = "Fin de l'anlyse, traitement en cours, patientez!" frmLoad.ProgressBar1.Maximum = files.Count frmLoad.ProgressBar1.Minimum = 0 frmLoad.ProgressBar1.Step = 1 'Application.DoEvents() msg = "" For Each File In files msg = msg + File.ToString + vbCrLf frmLoad.ProgressBar1.PerformStep() Next MsgBox("3" + msg) Catch e As Exception MsgBox(e.Message) End Try frmLoad.lbStatut.Text = "Fin du traitement" frmLoad.Close() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick RechercherFichier(Environment.GetFolderPath(Environment.SpecialFolder.UserProfile).ToString()) ' RechercherFichier(Environment.GetFolderPath(Environment.SpecialFolder.Desktop).ToString + "\images") End Sub Public Sub RechercherFichier(ByVal path As String) Dim extension As New ArrayList Dim Explode() As String extension.Add("jpg") extension.Add("jpeg") extension.Add("bmp") extension.Add("png") extension.Add("gif") extension.Add("tif") extension.Add("tiff") Dim objImage As System.Drawing.Image Try For Each Fichier As String In My.Computer.FileSystem.GetFiles(path, FileIO.SearchOption.SearchAllSubDirectories) Explode = path.ToLower.Split(".") If (extension.Contains(Explode(Explode.Length - 1).ToLower)) Then objImage = System.Drawing.Image.FromFile(path) If (objImage.Width >= 200 And objImage.Height >= 200) Then files.Add(path) End If Else End If Next Catch e As Exception MsgBox("." + e.Message) End Try End Sub Public Sub RechercheDossier(ByVal path As String, ByVal listt As List(Of String)) Try Dim rootInfo As DirectoryInfo = New DirectoryInfo(path) For Each d As DirectoryInfo In rootInfo.GetDirectories() If (Not d.Attributes.ToString.Contains(FileAttributes.NotContentIndexed.ToString)) Then listt.Add(d.FullName) RechercheDossier(d.FullName, listt) End If Next Catch e As Exception MsgBox(e.Message) End Try End Sub End Class