LISTER LES FICHIERS ET DOSSIERS AVEC OPTION RECURSIVITÉ
dvdstory
Messages postés
192
Date d'inscription
dimanche 23 janvier 2005
Statut
Membre
Dernière intervention
10 août 2009
-
22 nov. 2005 à 18:49
arapahoo Messages postés 26 Date d'inscription lundi 15 mai 2006 Statut Membre Dernière intervention 11 juillet 2008 - 28 mars 2011 à 22:57
arapahoo Messages postés 26 Date d'inscription lundi 15 mai 2006 Statut Membre Dernière intervention 11 juillet 2008 - 28 mars 2011 à 22:57
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/34751-lister-les-fichiers-et-dossiers-avec-option-recursivite
https://codes-sources.commentcamarche.net/source/34751-lister-les-fichiers-et-dossiers-avec-option-recursivite
28 mars 2011 à 22:57
dans une base, en adaptant à mes besoins.
Merci
ps @TOMALES1 j'aurais été intéressé par une suite
20 mars 2011 à 00:47
pas mal mais j'ai rajouter a la fin des code :
Public Sub listeRepertoire(ByVal dir As String)
...
Application.DoEvents()
End Sub
Public Sub listeFichier(ByVal dir As String)
...
Application.DoEvents()
End Sub
cela évite de ne pas mettre l'application en "Ne répond pas" comme ca on peut toujours cliqué sur les checkbox de recherche de fichier et dossier pour arrêté la recherche
surtout quand on a un disque dur de 2 To donc la moitié est utiliser ^^ avec des millions ou des milliards de fichiers
Ps: j'ai noté 9/10 dommage que la parti sauvegarde n'est pas faite mais j'ai déjà commencer a la faire pour moi si quelqu'un la veux je vous l'envoie.
17 juin 2007 à 16:17
1 juil. 2006 à 00:15
http://www.vbfrance.com/code.aspx?ID=37122
15 déc. 2005 à 00:35
g pas encore trouver des problemes!
29 nov. 2005 à 14:57
Tu sais bien que ce n'est pas une manière propre de programmer avec les labels/goto/resume next.
Aujourd'hui on utilise les try/catch/finally (avec le .NET framework 1.1 et sup.).
Pour traiter ce problème, je place un filtre pour que la fonction ne soit appelée que lorsque le répertoire n'est pas un répertoire système mais ça ne marche pas terrible (sans doute parce que le répertoire a d'autres attributs en plus d'être un dossier système. Je dois peut-être ignorer un attribut en particulier.).
29 nov. 2005 à 13:59
je l'ai resolu en indiquant: On Error Resume Next devant mes boucles recursives, si une erreur se presente, le programme ne provoque pas d'erreur et passe au dossier suivant.
28 nov. 2005 à 10:16
Il a été tellement difficile de trouver du code permettant de faire une recherche sur un dique (tous les lecteurs d'un PC, avec ou sans les lecteurs réseau) que je l'ai réalisé moi-même (VB.NET2003, OS:XP Pro) : une fonction récursive appellée autant de fois qu'il y a de sous-dossiers.
Le problème que je rencontrais est le suivant : lorsque l'utilisateur n'est pas l'administrateur, la recherche plantait pour des raisons de sécurité (impossible d'explorer les sous-dossiers système ou non autorisés).
Je n'ai pas essayé ton programme mais traite t-il des problèmes de sécurité ?
Merci.
A+
24 nov. 2005 à 08:42
23 nov. 2005 à 17:38
je prend note de ton code, j'en aurai besoin pour la partie sauvegarde apres
23 nov. 2005 à 16:32
A propos, je suis en train de faire un logiciel pour zipper une arborescence de fichier :
Public Function bZipperArbo(ByVal sCheminArbo$) As Boolean
' Zipper une arborescence de fichiers
Dim Files$() = IO.Directory.GetFileSystemEntries(sCheminArbo)
Dim sElement$
For Each sElement In Files
If m_bAnnuler Then Exit Function
If IO.Directory.Exists(sElement) Then
' L'élement est un sous-dossier : le zipper
If Not bZipperArbo(sElement) Then Exit Function
Else
' Sinon zipper le fichier
Dim sCheminFichier$ = IO.Path.GetFullPath(sElement)
Dim sFichier$ = IO.Path.GetFileName(sElement)
If Not bZipperFichier(sCheminFichier, sFichier) Then
m_bAnnuler = True
Exit Function
End If
End If
ElementSuivant:
Next sElement
bZipperArbo = True
End Function
23 nov. 2005 à 13:34
23 nov. 2005 à 12:43
Sinon ce petit programme a ete ecrit sous visual basic 2005 express et fonctionne avec le framework 2.0 (peut etre pour ca que tu ne peut pas ouvrir le projet)
23 nov. 2005 à 09:57
ton code m'intéresse fortement mais malheureusement pas moyen de l'ouvrir ton projet.
L'exe est impossible à télécharger.
Merci
22 nov. 2005 à 22:59
22 nov. 2005 à 22:15
Passer au C++ te demandera beaucoup de courage : avec VB.NET, on a tendance à ne pas chercher plus loin que ce qui est proposé dans le Framework (vu qu'il est très complet), or en C++, il faut chercher en permanence des librairies permettant de faire telle ou telle chose.
Passer au Java ? Autant rester au .NET : Java est plus lourd, moins rapide, moins rapide à développer, plus compliqué à utiliser, mais portable à 100%, et permet de faire des applets, c'est vrai !
DarK Sidious
22 nov. 2005 à 21:50
Car au tout début j'ai que programmé en langage web comme l'HTML, JavaScript, PHP.
Et ensuite le VB.NET est mon premier vrai langage de programmmation pour faire des progs contrairement au langage web qui sont interprétés.
Je compte changer de langage de programmation d'ici peu, mais je sais pas vers quoi m'orienter.
Pourquoi pas le C# ou le C++ mais j'avais pensé au JAVA.
Qu'en penses-tu ?
Est-ce qu'il y a beaucoup de diférence entre le C#, C++, C#.NET, C++.NET.
Pour la JAVA sa ira je sais un peu à quoi sa ressemble.
Merci d'avance
22 nov. 2005 à 21:35
DarK Sidious
22 nov. 2005 à 20:38
Ceci dit, sur VBfrance, j'en ai recherche j'en ai vu 3 ou 4 differents, mais manquait toujours le petit truc qu je voulais :D
22 nov. 2005 à 18:49
Il y en a surement moins de 20%.
Donc ta source est très utile. ( C'est la seul que je connaisse en VB.NET qui traite ce sujet)
Merci beaucoup