Discussion :

[Rodrick]

Salut!!!
est-il possible d'afficher dans une filelistbox le contenu du répertoire et le contenu des sous répertoires d'un répertoire donné sans avoir besoin de naviguer dans l'arborescence. (J'ai vu dans la FAQ qu'il y avait moyen de faire ça en listant dans une listbox le contenu des sous dossiers d'un dossier donné mais le problème c'est que ça prend du temps à chaque fois surtout quand le répertoire choisi est le temporary internet files) Si vous avez une autre solution que celle que j'ai en ce moment, n'hésitez pas
Merci d'avance

[Delbeke]

Et si tu utilisais le DirListBox ?

[zazaraignée]

Salut

Il ressemble à quoi, ton code? Quel genre de boucle (ou de fonction) utilises-tu pour lister le contenu des répertoires? Vu le volume et la quantité d'information que tu cherche peut-être à y puiser, une fonction récursive est peut-être de mise.

[Rodrick]

Le code que j'utilise se trouve dans la FAQ de visual basic : ICI
Sauf que à la place de la message box, j'ai mis la commande qui permet d'ajouter une nouvelle entrée dans une listbox.
Je veux savoir s'il y a un moyen plus rapide de scanner le répertoire "temporary internet files".
Je veux seulement afficher les fichiers qui se trouvent dans ce répertoire et dans les sous dossier de ce répertoire.

[jmfmarques]

Voilà (tel quel) le code que l'on trouve dans le lien précité , à savoir :

http://vb.developpez.com/faq/?page=Fichiers#rep_sousrep

avec le titre :

Comment scanner un répertoire et tous ses répertoires

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Private Sub Command1_Click() 
 
Public fso As FileSystemObject, dossier As Folder, sousdossier As Folder, fichier As File 
 
Set fso = New FileSystemObject 
Set dossier = fso.GetFolder("c:\essai") 
scan dossier 
 
End Sub 
 
Public Sub scan(dossier As Folder) 
 
For Each fichier In dossier.Files 
        MsgBox fichier 
    Next 
 
    For Each sousdossier In dossier.SubFolders 
        MsgBox sousdossier 
        scan sousdossier 
    Next 
 
End Sub

Je veux bien qu'on m'explique cette affaire-là !

EDIT : ou on corrige; ou j'appelle ToutApi à la rescousse

ToutApi

EDIT : Tiens, Rodrick,

Un petit outil (avec API... c'est le jeu...) que j'avais fait pour copier intégralement un répertoire, ses sous-répertoires et leurs fichiers vers un nouveau répertoire, en conservant tous les attributs...

A toi de te montrer "vivo" et d'envoyer des List1.additem au lieu de copier...

Bonne réflexion et bon travail...
ToutApi

[ThierryAIM]

jmf, ton copier/coller te joue des tours

[Rodrick]

Merci pour l'aide, mais je me demandais pour améliorer la rapidité de mon code, si on pouvait pas limiter la recherche dans le "répertoire temporary internet files".
En fait ce que je veux, c'est récupérer la liste des fichiers qui auraient pu être créé 2H avant le lancement de la recherche sans tester tous les fichiers.

EDIT :
J'ai peut être trouvé un moyen de réduire le temps de recherche mais il y a un problème :
Le moyen est de tester les dates de modification de chaque dossier se trouvant dans le répertoire temporaire d'internet mais le problème est que la date de modification du dossier testé ne se met pas tout de suite à jour lorsque un fichier est créé dans ce dossier.

Je me posais ensuite une question : comment sont créés les dossiers se trouvant dans le dossier temporaire d'internet. Je sais qu'il ne sont pas visible dans l'explorateur de windows mais ils existent bien. La réponse à cette question pourrait beaucoup m'aider pour réduire le temps de recherche.