'...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
If img.Attributes = IO.FileAttributes.Archive Then liste.Items.Add(img.FullName)
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
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question