Je suis à la recherche du code me permetant de lister les répertoires sous
c:\ (par exemple), pour ensuite lister les sous-répertoires d'un répertoire
... jusqu'aux fichiers. J'ai bien retrouvé le code pour la dernière étape
(ApplicationFileSearch) mais peine pour les dirs et sous-dirs.
Merci à celui ou celle qui pourra me mettre sur la piste.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jessy Sempere [MVP]
Bonjour
Quel est le but recherché à lister les répertoires, sous répertoires jusqu'au fichier ???
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Alain" a écrit dans le message news:
Bonjour,
Je suis à la recherche du code me permetant de lister les répertoires sous c: (par exemple), pour ensuite lister les sous-répertoires d'un répertoire
... jusqu'aux fichiers. J'ai bien retrouvé le code pour la dernière étape (ApplicationFileSearch) mais peine pour les dirs et sous-dirs.
Merci à celui ou celle qui pourra me mettre sur la piste.
A bientôt
Bonjour
Quel est le but recherché à lister les répertoires, sous répertoires
jusqu'au fichier ???
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Alain" <Alain@discussions.microsoft.com> a écrit dans le message news:
E39F38BC-23D0-4392-99A4-A67D1143603D@microsoft.com...
Bonjour,
Je suis à la recherche du code me permetant de lister les répertoires sous
c: (par exemple), pour ensuite lister les sous-répertoires d'un
répertoire
... jusqu'aux fichiers. J'ai bien retrouvé le code pour la dernière étape
(ApplicationFileSearch) mais peine pour les dirs et sous-dirs.
Merci à celui ou celle qui pourra me mettre sur la piste.
Quel est le but recherché à lister les répertoires, sous répertoires jusqu'au fichier ???
@+ Jessy Sempere - Access MVP
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Alain" a écrit dans le message news:
Bonjour,
Je suis à la recherche du code me permetant de lister les répertoires sous c: (par exemple), pour ensuite lister les sous-répertoires d'un répertoire
... jusqu'aux fichiers. J'ai bien retrouvé le code pour la dernière étape (ApplicationFileSearch) mais peine pour les dirs et sous-dirs.
Merci à celui ou celle qui pourra me mettre sur la piste.
A bientôt
Alain
Merci pour votre réponse,
Alors, je précise : Mon but est de créer un explorateur pour lister répertoires, sous-répertoires et fichiers contenus. Mon idée est de créer une première liste déroulante avec les drives (p/ex c) puis, une fois sélectionné le drive, parcourir(dans deux listes séparées) les répertoires et les fichiers sous c: (dans l'ex). Dans la première liste, je souhaite renouveler l'opération : une sorte de browser donc. Comme je l'écris dans mon 1er post, j'arrive à lister les fichiers contenus dans un répertoire avec le code suivant :
Set FS = Application.FileSearch With FS .LookIn = "C:FoutoirImages" .FileName = "*.*" If .Execute > 0 Then For I = 1 To .FoundFiles.Count FileListing = .FoundFiles(I) 'Archivage du fichier DoCmd.GoToRecord acActiveDataObject, , acNewRec 'Déplacement à l'enregistrement suivant Next I Else MsgBox "Aucun fichier dans le répertoire !" End If End With
Je cherche donc le code pour faire à peu près la même chose pour les répertoires. Ce doit bien exister ...
En espérant avoir été assez clair
Au plaisir de vous lire
Merci pour votre réponse,
Alors, je précise : Mon but est de créer un explorateur pour lister
répertoires, sous-répertoires et fichiers contenus. Mon idée est de créer une
première liste déroulante avec les drives (p/ex c) puis, une fois sélectionné
le drive, parcourir(dans deux listes séparées) les répertoires et les
fichiers sous c: (dans l'ex). Dans la première liste, je souhaite renouveler
l'opération : une sorte de browser donc. Comme je l'écris dans mon 1er post,
j'arrive à lister les fichiers contenus dans un répertoire avec le code
suivant :
Set FS = Application.FileSearch
With FS
.LookIn = "C:FoutoirImages"
.FileName = "*.*"
If .Execute > 0 Then
For I = 1 To .FoundFiles.Count
FileListing = .FoundFiles(I)
'Archivage du fichier
DoCmd.GoToRecord acActiveDataObject, , acNewRec
'Déplacement à l'enregistrement suivant
Next I
Else
MsgBox "Aucun fichier dans le répertoire !"
End If
End With
Je cherche donc le code pour faire à peu près la même chose pour les
répertoires. Ce doit bien exister ...
Alors, je précise : Mon but est de créer un explorateur pour lister répertoires, sous-répertoires et fichiers contenus. Mon idée est de créer une première liste déroulante avec les drives (p/ex c) puis, une fois sélectionné le drive, parcourir(dans deux listes séparées) les répertoires et les fichiers sous c: (dans l'ex). Dans la première liste, je souhaite renouveler l'opération : une sorte de browser donc. Comme je l'écris dans mon 1er post, j'arrive à lister les fichiers contenus dans un répertoire avec le code suivant :
Set FS = Application.FileSearch With FS .LookIn = "C:FoutoirImages" .FileName = "*.*" If .Execute > 0 Then For I = 1 To .FoundFiles.Count FileListing = .FoundFiles(I) 'Archivage du fichier DoCmd.GoToRecord acActiveDataObject, , acNewRec 'Déplacement à l'enregistrement suivant Next I Else MsgBox "Aucun fichier dans le répertoire !" End If End With
Je cherche donc le code pour faire à peu près la même chose pour les répertoires. Ce doit bien exister ...
En espérant avoir été assez clair
Au plaisir de vous lire
Jessy Sempere [MVP]
Re,
Ok, mais le but final de ces listes, c'est quoi ??? Si c'est de pouvoir permettre aux utilisateurs de sélectionner un répertoire ou un fichier, tu peux regarder ici : http://access.jessy.free.fr/index.html?Menu=6&Page=OpenFile
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Alain" a écrit dans le message news:
Merci pour votre réponse,
Alors, je précise : Mon but est de créer un explorateur pour lister répertoires, sous-répertoires et fichiers contenus. Mon idée est de créer une
première liste déroulante avec les drives (p/ex c) puis, une fois sélectionné
le drive, parcourir(dans deux listes séparées) les répertoires et les fichiers sous c: (dans l'ex). Dans la première liste, je souhaite renouveler
l'opération : une sorte de browser donc. Comme je l'écris dans mon 1er post,
j'arrive à lister les fichiers contenus dans un répertoire avec le code suivant :
Set FS = Application.FileSearch With FS .LookIn = "C:FoutoirImages" .FileName = "*.*" If .Execute > 0 Then For I = 1 To .FoundFiles.Count FileListing = .FoundFiles(I) 'Archivage du fichier DoCmd.GoToRecord acActiveDataObject, , acNewRec 'Déplacement à l'enregistrement suivant Next I Else MsgBox "Aucun fichier dans le répertoire !" End If End With
Je cherche donc le code pour faire à peu près la même chose pour les répertoires. Ce doit bien exister ...
En espérant avoir été assez clair
Au plaisir de vous lire
Re,
Ok, mais le but final de ces listes, c'est quoi ???
Si c'est de pouvoir permettre aux utilisateurs de sélectionner
un répertoire ou un fichier, tu peux regarder ici :
http://access.jessy.free.fr/index.html?Menu=6&Page=OpenFile
@+
Jessy Sempere - Access MVP
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Alain" <Alain@discussions.microsoft.com> a écrit dans le message news:
43D401ED-8726-40CD-BD81-DA3990794B17@microsoft.com...
Merci pour votre réponse,
Alors, je précise : Mon but est de créer un explorateur pour lister
répertoires, sous-répertoires et fichiers contenus. Mon idée est de créer
une
première liste déroulante avec les drives (p/ex c) puis, une fois
sélectionné
le drive, parcourir(dans deux listes séparées) les répertoires et les
fichiers sous c: (dans l'ex). Dans la première liste, je souhaite
renouveler
l'opération : une sorte de browser donc. Comme je l'écris dans mon 1er
post,
j'arrive à lister les fichiers contenus dans un répertoire avec le code
suivant :
Set FS = Application.FileSearch
With FS
.LookIn = "C:FoutoirImages"
.FileName = "*.*"
If .Execute > 0 Then
For I = 1 To .FoundFiles.Count
FileListing = .FoundFiles(I)
'Archivage du fichier
DoCmd.GoToRecord acActiveDataObject, , acNewRec
'Déplacement à l'enregistrement suivant
Next I
Else
MsgBox "Aucun fichier dans le répertoire !"
End If
End With
Je cherche donc le code pour faire à peu près la même chose pour les
répertoires. Ce doit bien exister ...
Ok, mais le but final de ces listes, c'est quoi ??? Si c'est de pouvoir permettre aux utilisateurs de sélectionner un répertoire ou un fichier, tu peux regarder ici : http://access.jessy.free.fr/index.html?Menu=6&Page=OpenFile
------------------------------------ Site @ccess : http://access.jessy.free.fr/ Pour l'efficacité de tous : http://users.skynet.be/mpfa/ ------------------------------------ "Alain" a écrit dans le message news:
Merci pour votre réponse,
Alors, je précise : Mon but est de créer un explorateur pour lister répertoires, sous-répertoires et fichiers contenus. Mon idée est de créer une
première liste déroulante avec les drives (p/ex c) puis, une fois sélectionné
le drive, parcourir(dans deux listes séparées) les répertoires et les fichiers sous c: (dans l'ex). Dans la première liste, je souhaite renouveler
l'opération : une sorte de browser donc. Comme je l'écris dans mon 1er post,
j'arrive à lister les fichiers contenus dans un répertoire avec le code suivant :
Set FS = Application.FileSearch With FS .LookIn = "C:FoutoirImages" .FileName = "*.*" If .Execute > 0 Then For I = 1 To .FoundFiles.Count FileListing = .FoundFiles(I) 'Archivage du fichier DoCmd.GoToRecord acActiveDataObject, , acNewRec 'Déplacement à l'enregistrement suivant Next I Else MsgBox "Aucun fichier dans le répertoire !" End If End With
Je cherche donc le code pour faire à peu près la même chose pour les répertoires. Ce doit bien exister ...
En espérant avoir été assez clair
Au plaisir de vous lire
Alain
Re-Bonjour,
Pour répondre à votre question, je souhaite 'simuler' un explorateur Windows ; je vous donne un exemple :
Après sélection de "c:Foutoir", j'aimerais générer deux listes : La première contenant les répertoires sous"c:Foutoir" comme "c:FoutoirImages" contenant des fichiers graphiques, La seconde contenant les fichiers qui ne sont pas encore archivés
Puis, si je sélectionne dans une liste déroulante, "c:FoutoirImages", je mémorise cette chaine (que j'affiche pour rappel dans le haut de mon formulaire) et je génère à nouveau deux listes déroulantes : La première contenant les sous-répertoires sous"c:Foutoirmages" comme "c:FoutoirImagesAnimaux" contenant des images d'animaux, La seconde contenant les fichiers graphiques qui ne sont pas encore classés.
Et c'est la première liste que je ne sais comment obtenir ; j'imagine bien quelque chose du style :
Set DS = ... comme Directory Search With DS .LookIn = "C:FoutoirImages" ... If .Execute > 0 Then For I = 1 To .Found???.Count DirListing = .Found???(I) 'Archivage du dossier DoCmd.GoToRecord acActiveDataObject, , acNewRec 'Déplacement à l'enregistrement suivant Next I Else MsgBox "Aucun sous-répertoire dans le répertoire !" End If End With
Voilà ! Je suis bien allé voir les pages que vous recommandez, mais la méthode me semble bien plus compliquée que la technique concernant les seuls fichiers (une fois le répertoire défini).
That's all mais je suis dans le noir et j'apprécierais vos lumières.
Merci pour votre patience et vos conseils éclairés
Re-Bonjour,
Pour répondre à votre question, je souhaite 'simuler' un explorateur Windows
; je vous donne un exemple :
Après sélection de "c:Foutoir", j'aimerais générer deux listes :
La première contenant les répertoires sous"c:Foutoir" comme
"c:FoutoirImages" contenant des fichiers graphiques,
La seconde contenant les fichiers qui ne sont pas encore archivés
Puis, si je sélectionne dans une liste déroulante, "c:FoutoirImages", je
mémorise cette chaine (que j'affiche pour rappel dans le haut de mon
formulaire) et je génère à nouveau deux listes déroulantes :
La première contenant les sous-répertoires sous"c:Foutoirmages" comme
"c:FoutoirImagesAnimaux" contenant des images d'animaux,
La seconde contenant les fichiers graphiques qui ne sont pas encore classés.
Et c'est la première liste que je ne sais comment obtenir ; j'imagine bien
quelque chose du style :
Set DS = ... comme Directory Search
With DS
.LookIn = "C:FoutoirImages"
...
If .Execute > 0 Then
For I = 1 To .Found???.Count
DirListing = .Found???(I)
'Archivage du dossier
DoCmd.GoToRecord acActiveDataObject, , acNewRec
'Déplacement à l'enregistrement suivant
Next I
Else
MsgBox "Aucun sous-répertoire dans le répertoire !"
End If
End With
Voilà ! Je suis bien allé voir les pages que vous recommandez, mais la
méthode me semble bien plus compliquée que la technique concernant les seuls
fichiers (une fois le répertoire défini).
That's all mais je suis dans le noir et j'apprécierais vos lumières.
Merci pour votre patience et vos conseils éclairés
Pour répondre à votre question, je souhaite 'simuler' un explorateur Windows ; je vous donne un exemple :
Après sélection de "c:Foutoir", j'aimerais générer deux listes : La première contenant les répertoires sous"c:Foutoir" comme "c:FoutoirImages" contenant des fichiers graphiques, La seconde contenant les fichiers qui ne sont pas encore archivés
Puis, si je sélectionne dans une liste déroulante, "c:FoutoirImages", je mémorise cette chaine (que j'affiche pour rappel dans le haut de mon formulaire) et je génère à nouveau deux listes déroulantes : La première contenant les sous-répertoires sous"c:Foutoirmages" comme "c:FoutoirImagesAnimaux" contenant des images d'animaux, La seconde contenant les fichiers graphiques qui ne sont pas encore classés.
Et c'est la première liste que je ne sais comment obtenir ; j'imagine bien quelque chose du style :
Set DS = ... comme Directory Search With DS .LookIn = "C:FoutoirImages" ... If .Execute > 0 Then For I = 1 To .Found???.Count DirListing = .Found???(I) 'Archivage du dossier DoCmd.GoToRecord acActiveDataObject, , acNewRec 'Déplacement à l'enregistrement suivant Next I Else MsgBox "Aucun sous-répertoire dans le répertoire !" End If End With
Voilà ! Je suis bien allé voir les pages que vous recommandez, mais la méthode me semble bien plus compliquée que la technique concernant les seuls fichiers (une fois le répertoire défini).
That's all mais je suis dans le noir et j'apprécierais vos lumières.
Merci pour votre patience et vos conseils éclairés
3stone
Salut,
"Alain" | Pour répondre à votre question, je souhaite 'simuler' un explorateur Windows
et pour chaque sous-répertoire tu va créer des listes ? et tu vas en prévoir combien ? une vingtaine pour en cas ?
Puis je te conseiller un treeview à la place ?
regarde chez Raymond : http://officesystem.access.free.fr/telechargement.htm
