Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Access Liste de dossiers et fichiers

Liste de dossiers et fichiers

4 réponses
Avatar
Laurent
Salut =E0 toutes z=E9 =E0 tous.

Sur mon disque dur, j'ai un r=E9pertoire nomm=E9 "REP".=20
R=E9pertoire qui doit contenir un certains nombre de=20
dossiers. Et chacun de ces dossiers doit contenir N=20
fichiers TXT.

Je souhaite scanner ce r=E9pertoire "REP" pour r=E9cup=E9rer=20
dans un tableau strTAB (par exemple), le nombre et les=20
noms des dossiers contenus dans ce r=E9pertoire REP. Puis=20
faire une boucle sur ce nombre de dossiers pour scanner=20
chacun d'eux et obtenir la liste des fichiers TXT.

Et ce, dans le but de charger un Tree View.
Les noms de dossiers alimenteront les noeuds parents et=20
les noms des fichiers, les noms fils.

Pour alimenter mon Tree View, pas de pbe.
Ce sont les commandes pour scanner mon disque qui me=20
manquent.

Merci de votre aide.



Laurent
Signaler un problème avec ce contenu

4 réponses

Supprimer
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
Avatar
Jessy Sempere [MVP]
Bonjour

Une piste ici pour les fichiers :
http://access.jessy.free.fr/index.html?Menu=6&Page=FileExistDir

ensuite tu peux t'inspirer de ce qui suit si tu préfères les mettre dans
une variable tableau :
http://access.jessy.free.fr/index.html?Menu=2&Page=LstTableInVariable


@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Laurent" a écrit dans le message news:
08cb01c4b0f1$9cb3c310$
Salut à toutes zé à tous.

Sur mon disque dur, j'ai un répertoire nommé "REP".
Répertoire qui doit contenir un certains nombre de
dossiers. Et chacun de ces dossiers doit contenir N
fichiers TXT.

Je souhaite scanner ce répertoire "REP" pour récupérer
dans un tableau strTAB (par exemple), le nombre et les
noms des dossiers contenus dans ce répertoire REP. Puis
faire une boucle sur ce nombre de dossiers pour scanner
chacun d'eux et obtenir la liste des fichiers TXT.

Et ce, dans le but de charger un Tree View.
Les noms de dossiers alimenteront les noeuds parents et
les noms des fichiers, les noms fils.

Pour alimenter mon Tree View, pas de pbe.
Ce sont les commandes pour scanner mon disque qui me
manquent.

Merci de votre aide.



Laurent
Avatar
Laurent
Merci Jessy.

Ca correspond, je pense, à ce que je cherche.
J'ai une erreur de compil : Variable non définie :
Application.

Que représente Application ?


Mon code :


Private Sub Scann_Rep()

Dim bytIteration As Byte
Dim intFile As Integer
Dim nodNoeud As Node
Dim strFile As String

'Gestion des erreurs
On Error GoTo Erreur

intFile = 0
strFile = ""

With Application.FileSearch
.LookIn = strDir
.FileName = "*.*"
If .execute > 0 Then
For intFile = 1 To .FoundFiles.Count
strFile = .FoundFiles(intFile)
strFile = Right(strFile, Len(strFile) - (Len
(strDir) + 1))
Set nodNoeud = trvRepertoire.Nodes.Add(, ,
strFile, strFile)
Next intFile
End If
End With

'Fin normale d'execution
GoTo Fintrt

Erreur:
gstrMessage = Err.Description
msgbox gstrMessage

Fintrt:

End Sub





-----Message d'origine-----
Bonjour

Une piste ici pour les fichiers :
http://access.jessy.free.fr/index.html?
Menu=6&Page=FileExistDir


ensuite tu peux t'inspirer de ce qui suit si tu préfères
les mettre dans

une variable tableau :
http://access.jessy.free.fr/index.html?
Menu=2&Page=LstTableInVariable



@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Laurent" a écrit
dans le message news:

08cb01c4b0f1$9cb3c310$
Salut à toutes zé à tous.

Sur mon disque dur, j'ai un répertoire nommé "REP".
Répertoire qui doit contenir un certains nombre de
dossiers. Et chacun de ces dossiers doit contenir N
fichiers TXT.

Je souhaite scanner ce répertoire "REP" pour récupérer
dans un tableau strTAB (par exemple), le nombre et les
noms des dossiers contenus dans ce répertoire REP. Puis
faire une boucle sur ce nombre de dossiers pour scanner
chacun d'eux et obtenir la liste des fichiers TXT.

Et ce, dans le but de charger un Tree View.
Les noms de dossiers alimenteront les noeuds parents et
les noms des fichiers, les noms fils.

Pour alimenter mon Tree View, pas de pbe.
Ce sont les commandes pour scanner mon disque qui me
manquent.

Merci de votre aide.



Laurent



.



Avatar
Jessy Sempere [MVP]
Ah bizarre...

Application correspond à l'objet Application Access en cours.

Regardes tes références, tu en as peut-être qui sont marquée manquante ?

--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Laurent" a écrit dans le message news:
357201c4b0fa$3c6808a0$
Merci Jessy.

Ca correspond, je pense, à ce que je cherche.
J'ai une erreur de compil : Variable non définie :
Application.

Que représente Application ?


Mon code :


Private Sub Scann_Rep()

Dim bytIteration As Byte
Dim intFile As Integer
Dim nodNoeud As Node
Dim strFile As String

'Gestion des erreurs
On Error GoTo Erreur

intFile = 0
strFile = ""

With Application.FileSearch
.LookIn = strDir
.FileName = "*.*"
If .execute > 0 Then
For intFile = 1 To .FoundFiles.Count
strFile = .FoundFiles(intFile)
strFile = Right(strFile, Len(strFile) - (Len
(strDir) + 1))
Set nodNoeud = trvRepertoire.Nodes.Add(, ,
strFile, strFile)
Next intFile
End If
End With

'Fin normale d'execution
GoTo Fintrt

Erreur:
gstrMessage = Err.Description
msgbox gstrMessage

Fintrt:

End Sub





-----Message d'origine-----
Bonjour

Une piste ici pour les fichiers :
http://access.jessy.free.fr/index.html?
Menu=6&Page=FileExistDir


ensuite tu peux t'inspirer de ce qui suit si tu préfères
les mettre dans

une variable tableau :
http://access.jessy.free.fr/index.html?
Menu=2&Page=LstTableInVariable



@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Laurent" a écrit
dans le message news:

08cb01c4b0f1$9cb3c310$
Salut à toutes zé à tous.

Sur mon disque dur, j'ai un répertoire nommé "REP".
Répertoire qui doit contenir un certains nombre de
dossiers. Et chacun de ces dossiers doit contenir N
fichiers TXT.

Je souhaite scanner ce répertoire "REP" pour récupérer
dans un tableau strTAB (par exemple), le nombre et les
noms des dossiers contenus dans ce répertoire REP. Puis
faire une boucle sur ce nombre de dossiers pour scanner
chacun d'eux et obtenir la liste des fichiers TXT.

Et ce, dans le but de charger un Tree View.
Les noms de dossiers alimenteront les noeuds parents et
les noms des fichiers, les noms fils.

Pour alimenter mon Tree View, pas de pbe.
Ce sont les commandes pour scanner mon disque qui me
manquent.

Merci de votre aide.



Laurent



.



Avatar
Laurent
Aille...
Je suis sous VB6.
Je n'ai donc pas ouvert Access.
Le v'la le pbe !!

T'as une idée de comment je m'en sors ?



-----Message d'origine-----
Ah bizarre...

Application correspond à l'objet Application Access en
cours.


Regardes tes références, tu en as peut-être qui sont
marquée manquante ?


--
@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Laurent" a écrit
dans le message news:

357201c4b0fa$3c6808a0$
Merci Jessy.

Ca correspond, je pense, à ce que je cherche.
J'ai une erreur de compil : Variable non définie :
Application.

Que représente Application ?


Mon code :


Private Sub Scann_Rep()

Dim bytIteration As Byte
Dim intFile As Integer
Dim nodNoeud As Node
Dim strFile As String

'Gestion des erreurs
On Error GoTo Erreur

intFile = 0
strFile = ""

With Application.FileSearch
.LookIn = strDir
.FileName = "*.*"
If .execute > 0 Then
For intFile = 1 To .FoundFiles.Count
strFile = .FoundFiles(intFile)
strFile = Right(strFile, Len(strFile) - (Len
(strDir) + 1))
Set nodNoeud = trvRepertoire.Nodes.Add(, ,
strFile, strFile)
Next intFile
End If
End With

'Fin normale d'execution
GoTo Fintrt

Erreur:
gstrMessage = Err.Description
msgbox gstrMessage

Fintrt:

End Sub





-----Message d'origine-----
Bonjour

Une piste ici pour les fichiers :
http://access.jessy.free.fr/index.html?
Menu=6&Page=FileExistDir


ensuite tu peux t'inspirer de ce qui suit si tu préfères
les mettre dans

une variable tableau :
http://access.jessy.free.fr/index.html?
Menu=2&Page=LstTableInVariable



@+
Jessy Sempere - Access MVP

------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Laurent" a écrit
dans le message news:

08cb01c4b0f1$9cb3c310$
Salut à toutes zé à tous.

Sur mon disque dur, j'ai un répertoire nommé "REP".
Répertoire qui doit contenir un certains nombre de
dossiers. Et chacun de ces dossiers doit contenir N
fichiers TXT.

Je souhaite scanner ce répertoire "REP" pour récupérer
dans un tableau strTAB (par exemple), le nombre et les
noms des dossiers contenus dans ce répertoire REP. Puis
faire une boucle sur ce nombre de dossiers pour scanner
chacun d'eux et obtenir la liste des fichiers TXT.

Et ce, dans le but de charger un Tree View.
Les noms de dossiers alimenteront les noeuds parents et
les noms des fichiers, les noms fils.

Pour alimenter mon Tree View, pas de pbe.
Ce sont les commandes pour scanner mon disque qui me
manquent.

Merci de votre aide.



Laurent



.




.