Vous pouvez-vous inspirer, par exemple, de la réponse contenue dans le lien suivant
Vous pouvez-vous inspirer, par exemple, de la réponse contenue dans le lien suivant
=>> Faux! c'est toi qui a besoin d'inspiration
Option Explicit On Option Strict On Public Class Form1 Dim ListFichiers As New ListBox Dim ListErreurs As New ListBox Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load ListFichiers.Top = 0 ListErreurs.Top = ListFichiers.Height + 20 ListFichiers.Left = 0 ListErreurs.Left = 0 ListFichiers.Width = 450 ListErreurs.Width = 450 Me.Controls.Add(ListFichiers) Me.Controls.Add(ListErreurs) Recherche("c:\windows\system32") End Sub Private Sub Recherche(ByVal Chemin As String) Try For Each Fichier In System.IO.Directory.GetFiles(Chemin) ListFichiers.Items.Add(Fichier) Next Catch ex As Exception ListErreurs.Items.Add(ex.Message) End Try Try For Each Dossier In System.IO.Directory.GetDirectories(Chemin) Recherche(Dossier) Next Catch ex As Exception End Try End Sub End Class
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionJe pense que je n'ai pas été complet
Je souhaite en fait récupérer tous les fichiers accessibles d'un disque
Vous pouvez-vous inspirer, par exemple, de la réponse contenue dans le lien suivant
Function PG_ListeDesFichiers(Init As Boolean, ByRef VarRet() As String, Chemin As String, OptionRecher As String, Optional SousRép As Boolean False, Optional Alarme As Boolean False) Dim I As Int32 0, J As Int32 0, Pos As Int32 = 0, TempoDir() As String, TempoFich() As String Static ListFich() As String, GestAlarme As Boolean If Init = True Then ReDim ListFich(0) GestAlarme = False End If PG_ListeDesFichiers = False If SousRép Then Try TempoDir = Directory.GetDirectories(Chemin, OptionRecher, SearchOption.TopDirectoryOnly) Catch ex As Exception If Alarme Then MsgBox("Erreur de lecture des répertoires du chemin : " & Chemin) GestAlarme = True GoTo FinListeDesFichiers End Try For I = 0 To UBound(TempoDir) PG_ListeDesFichiers(False, VarRet, TempoDir(I), OptionRecher, SousRép, Alarme) Try TempoFich = Directory.GetFiles(TempoDir(I), OptionRecher, SearchOption.TopDirectoryOnly) Catch ex As Exception If Alarme Then MsgBox("Erreur de lecture des fichiers du chemin : " & Chemin) GestAlarme = True GoTo FinListeDesFichiers End Try For J = 0 To UBound(TempoFich) Pos = UBound(ListFich) ReDim Preserve ListFich(Pos + 1) ListFich(Pos) = TempoFich(J) Next Next Else Try TempoFich = Directory.GetFiles(Chemin, OptionRecher, SearchOption.TopDirectoryOnly) Catch ex As Exception If Alarme Then MsgBox("Erreur de lecture des fichiers du chemin : " & Chemin) GestAlarme = True GoTo FinListeDesFichiers End Try End If For I = 0 To UBound(TempoDir) Next FinListeDesFichiers: If Init = True Then ReDim Preserve ListFich(UBound(ListFich) - 1) VarRet = ListFich PG_ListeDesFichiers = GestAlarme End If End Function
Function PG_ListeDesFichiers(Init As Boolean, ByRef VarRet() As String, Chemin As String, OptionRecher As String, Optional SousRép As Boolean False, Optional Alarme As Boolean False) Dim Pos As Int32 0, TAl As String "" Static GestAlarme As Boolean If Init = True Then GestAlarme = False End If PG_ListeDesFichiers = False If SousRép Then Try For Each Dossier In Directory.GetDirectories(Chemin, OptionRecher, SearchOption.TopDirectoryOnly) Tal = "Erreur de lecture des répertoires du chemin : " & Chemin PG_ListeDesFichiers(False, VarRet, Dossier, OptionRecher, SousRép, Alarme) For Each Fichier In Directory.GetFiles(Dossier, OptionRecher, SearchOption.TopDirectoryOnly) Tal = "Erreur de lecture des fichiers du chemin : " & Chemin Pos = UBound(VarRet) ReDim VarRet(Pos + 1) VarRet(Pos) = Fichier Next Next Catch ex As Exception If Alarme Then MsgBox(Tal) GestAlarme = True End Try Else Try VarRet = Directory.GetFiles(Chemin, OptionRecher, SearchOption.TopDirectoryOnly) Catch ex As Exception If Alarme Then MsgBox("Erreur de lecture des fichiers du chemin : " & Chemin) GestAlarme = True End Try End If If Init = True Then ReDim Preserve VarRet(UBound(VarRet) - 1) PG_ListeDesFichiers = GestAlarme End If End Function