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.
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
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
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
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Laurent" <anonymous@discussions.microsoft.com> a écrit dans le message news:
08cb01c4b0f1$9cb3c310$a601280a@phx.gbl...
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.
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
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
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
.
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
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
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Laurent" <anonymous@discussions.microsoft.com> a écrit
dans le message news:
08cb01c4b0f1$9cb3c310$a601280a@phx.gbl...
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.
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
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
.
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
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
.
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
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Laurent" <anonymous@discussions.microsoft.com> a écrit dans le message news:
357201c4b0fa$3c6808a0$a301280a@phx.gbl...
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
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
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Laurent" <anonymous@discussions.microsoft.com> a écrit
dans le message news:
08cb01c4b0f1$9cb3c310$a601280a@phx.gbl...
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.
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
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
.
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
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
.
.
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
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Laurent" <anonymous@discussions.microsoft.com> a écrit
dans le message news:
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
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
news@access.fr.vu
------------------------------------
Site @ccess : http://access.jessy.free.fr/
Pour l'efficacité de tous :
http://users.skynet.be/mpfa/
------------------------------------
"Laurent" <anonymous@discussions.microsoft.com> a écrit
dans le message news:
08cb01c4b0f1$9cb3c310$a601280a@phx.gbl...
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.
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
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.
