Bonjour à tous,
Extrait de l'aide :
--------------
MyPath = "c:\" ' Définit le chemin d'accès.
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> ""
If MyName <> "." And MyName <> ".." Then
If (GetAttr(MyPath & MyName) _
And vbDirectory) = vbDirectory Then
Debug.Print MyName
End If
End If
MyName = Dir
Loop
------------------
La fonction est utile pour récupérer une liste de fichier comme je le souhaite dans un répertoire...
Seulement et l'aide l'indique bien :
---------------------
Conseil Les noms de fichiers extraits n'étant pas classés, vous pouvez les stocker dans un tableau, puis trier ce dernier.
-------------------
Seulement j'ai cherché et je n'y arrive définitivement pas (;-)), je n'ai plus manipuler de tableaux depuis très très longtemps et
ce n'était pas sous access.
J'ai essayer Array, dans l'aide aussi mais je coince.
Merci de toute contribution.
Merci d'avoir lu jusque là.
Cré une table avec un champ nommé fichiers par exemple. puis :
docmd.setwarnings false docmd.runsql "delete [Nom de la table].* from [Nom de la table]" docmd.setwarnings true
dim db as database, fic as dao.recordset set db=currentdb
set ficÛ.openrecordset("Nom de la table")
MyPath = "c:" ' Définit le chemin d'accès.
MyName = Dir(MyPath, vbDirectory) Do While MyName <> "" If MyName <> "." And MyName <> ".." Then If (GetAttr(MyPath & MyName) _ And vbDirectory) = vbDirectory Then
fic.adnew fic!fichiers=myname
fic.update
End If End If MyName = Dir Loop
slts
-----Message d'origine----- Bonjour à tous, Extrait de l'aide : -------------- MyPath = "c:" ' Définit le chemin d'accès. MyName = Dir(MyPath, vbDirectory) Do While MyName <> "" If MyName <> "." And MyName <> ".." Then If (GetAttr(MyPath & MyName) _ And vbDirectory) = vbDirectory Then Debug.Print MyName End If End If MyName = Dir Loop ------------------ La fonction est utile pour récupérer une liste de fichier comme je le souhaite dans un répertoire...
Seulement et l'aide l'indique bien : --------------------- Conseil Les noms de fichiers extraits n'étant pas classés, vous pouvez les stocker dans un tableau, puis
trier ce dernier.
------------------- Seulement j'ai cherché et je n'y arrive définitivement pas (;-)), je n'ai plus manipuler de tableaux depuis très
très longtemps et
ce n'était pas sous access. J'ai essayer Array, dans l'aide aussi mais je coince.
Merci de toute contribution. Merci d'avoir lu jusque là.
.
bonjour,
Cré une table avec un champ nommé fichiers par exemple.
puis :
docmd.setwarnings false
docmd.runsql "delete [Nom de la table].* from [Nom de la
table]"
docmd.setwarnings true
dim db as database, fic as dao.recordset
set db=currentdb
set fic=db.openrecordset("Nom de la table")
MyPath = "c:" ' Définit le chemin d'accès.
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> ""
If MyName <> "." And MyName <> ".." Then
If (GetAttr(MyPath & MyName) _
And vbDirectory) = vbDirectory Then
fic.adnew
fic!fichiers=myname
fic.update
End If
End If
MyName = Dir
Loop
slts
-----Message d'origine-----
Bonjour à tous,
Extrait de l'aide :
--------------
MyPath = "c:" ' Définit le chemin d'accès.
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> ""
If MyName <> "." And MyName <> ".." Then
If (GetAttr(MyPath & MyName) _
And vbDirectory) = vbDirectory Then
Debug.Print MyName
End If
End If
MyName = Dir
Loop
------------------
La fonction est utile pour récupérer une liste de fichier
comme je le souhaite dans un répertoire...
Seulement et l'aide l'indique bien :
---------------------
Conseil Les noms de fichiers extraits n'étant pas
classés, vous pouvez les stocker dans un tableau, puis
trier ce dernier.
-------------------
Seulement j'ai cherché et je n'y arrive définitivement
pas (;-)), je n'ai plus manipuler de tableaux depuis très
très longtemps et
ce n'était pas sous access.
J'ai essayer Array, dans l'aide aussi mais je coince.
Merci de toute contribution.
Merci d'avoir lu jusque là.
Cré une table avec un champ nommé fichiers par exemple. puis :
docmd.setwarnings false docmd.runsql "delete [Nom de la table].* from [Nom de la table]" docmd.setwarnings true
dim db as database, fic as dao.recordset set db=currentdb
set ficÛ.openrecordset("Nom de la table")
MyPath = "c:" ' Définit le chemin d'accès.
MyName = Dir(MyPath, vbDirectory) Do While MyName <> "" If MyName <> "." And MyName <> ".." Then If (GetAttr(MyPath & MyName) _ And vbDirectory) = vbDirectory Then
fic.adnew fic!fichiers=myname
fic.update
End If End If MyName = Dir Loop
slts
-----Message d'origine----- Bonjour à tous, Extrait de l'aide : -------------- MyPath = "c:" ' Définit le chemin d'accès. MyName = Dir(MyPath, vbDirectory) Do While MyName <> "" If MyName <> "." And MyName <> ".." Then If (GetAttr(MyPath & MyName) _ And vbDirectory) = vbDirectory Then Debug.Print MyName End If End If MyName = Dir Loop ------------------ La fonction est utile pour récupérer une liste de fichier comme je le souhaite dans un répertoire...
Seulement et l'aide l'indique bien : --------------------- Conseil Les noms de fichiers extraits n'étant pas classés, vous pouvez les stocker dans un tableau, puis
trier ce dernier.
------------------- Seulement j'ai cherché et je n'y arrive définitivement pas (;-)), je n'ai plus manipuler de tableaux depuis très
très longtemps et
ce n'était pas sous access. J'ai essayer Array, dans l'aide aussi mais je coince.
Merci de toute contribution. Merci d'avoir lu jusque là.
.
f
Bonsoir à tous, Bonsoir et merci Patrice, J'ai trois problèmes avec ta réponse mais surtout UN que voilà :
Le but était de trier par date dans un tableau (bon dans une table...) Mais là l'inconnu de base était la date du fichier pour pouvoir trier sur le critère.
Les deux autres soucis sont plus annexes : 1) je voulais en profiter pour voir ce que l'aide suggérait en terme de tableau, est ce les fameuses constantes de type tableau (Array) ou cela n'existe pas dans Access ? 2) j'ai pas compris : --------------------- 'If MyName <> "." And MyName <> ".." Then If (GetAttr(MyPath & MyName) > And vbDirectory) = vbDirectory Then ------------------ je l'ai virer et ça marche ! ? ! (si ça pouvait être tout le temps comme ça mes modules seraient très courts et feraient monts et merveilles ;-) )
Merci de toute contribution mais surtout me débloquer sur la date. Merci d'avoir lu jusque là.
"Patrice" a écrit dans le message de news:05c501c387f9$92a2b8d0$
bonjour,
Cré une table avec un champ nommé fichiers par exemple. puis :
docmd.setwarnings false docmd.runsql "delete [Nom de la table].* from [Nom de la table]" docmd.setwarnings true
dim db as database, fic as dao.recordset set db=currentdb
set ficÛ.openrecordset("Nom de la table")
MyPath = "c:" ' Définit le chemin d'accès.
MyName = Dir(MyPath, vbDirectory) Do While MyName <> "" If MyName <> "." And MyName <> ".." Then If (GetAttr(MyPath & MyName) _ And vbDirectory) = vbDirectory Then
fic.adnew fic!fichiers=myname
fic.update
End If End If MyName = Dir Loop
slts
-----Message d'origine----- Bonjour à tous, Extrait de l'aide : -------------- MyPath = "c:" ' Définit le chemin d'accès. MyName = Dir(MyPath, vbDirectory) Do While MyName <> "" If MyName <> "." And MyName <> ".." Then If (GetAttr(MyPath & MyName) _ And vbDirectory) = vbDirectory Then Debug.Print MyName End If End If MyName = Dir Loop ------------------ La fonction est utile pour récupérer une liste de fichier comme je le souhaite dans un répertoire...
Seulement et l'aide l'indique bien : --------------------- Conseil Les noms de fichiers extraits n'étant pas classés, vous pouvez les stocker dans un tableau, puis
trier ce dernier.
------------------- Seulement j'ai cherché et je n'y arrive définitivement pas (;-)), je n'ai plus manipuler de tableaux depuis très
très longtemps et
ce n'était pas sous access. J'ai essayer Array, dans l'aide aussi mais je coince.
Merci de toute contribution. Merci d'avoir lu jusque là.
.
Bonsoir à tous,
Bonsoir et merci Patrice,
J'ai trois problèmes avec ta réponse mais surtout UN que voilà :
Le but était de trier par date dans un tableau (bon dans une table...)
Mais là l'inconnu de base était la date du fichier pour pouvoir trier sur le critère.
Les deux autres soucis sont plus annexes :
1) je voulais en profiter pour voir ce que l'aide suggérait en terme de tableau, est ce les fameuses constantes de type tableau
(Array) ou cela n'existe pas dans Access ?
2) j'ai pas compris :
---------------------
'If MyName <> "." And MyName <> ".." Then If (GetAttr(MyPath & MyName) > And vbDirectory) = vbDirectory Then
------------------
je l'ai virer et ça marche ! ? ! (si ça pouvait être tout le temps comme ça mes modules seraient très courts et feraient monts et
merveilles ;-) )
Merci de toute contribution mais surtout me débloquer sur la date.
Merci d'avoir lu jusque là.
"Patrice" <aez@evhr.net> a écrit dans le message de news:05c501c387f9$92a2b8d0$a001280a@phx.gbl...
bonjour,
Cré une table avec un champ nommé fichiers par exemple.
puis :
docmd.setwarnings false
docmd.runsql "delete [Nom de la table].* from [Nom de la
table]"
docmd.setwarnings true
dim db as database, fic as dao.recordset
set db=currentdb
set ficÛ.openrecordset("Nom de la table")
MyPath = "c:" ' Définit le chemin d'accès.
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> ""
If MyName <> "." And MyName <> ".." Then
If (GetAttr(MyPath & MyName) _
And vbDirectory) = vbDirectory Then
fic.adnew
fic!fichiers=myname
fic.update
End If
End If
MyName = Dir
Loop
slts
-----Message d'origine-----
Bonjour à tous,
Extrait de l'aide :
--------------
MyPath = "c:" ' Définit le chemin d'accès.
MyName = Dir(MyPath, vbDirectory)
Do While MyName <> ""
If MyName <> "." And MyName <> ".." Then
If (GetAttr(MyPath & MyName) _
And vbDirectory) = vbDirectory Then
Debug.Print MyName
End If
End If
MyName = Dir
Loop
------------------
La fonction est utile pour récupérer une liste de fichier
comme je le souhaite dans un répertoire...
Seulement et l'aide l'indique bien :
---------------------
Conseil Les noms de fichiers extraits n'étant pas
classés, vous pouvez les stocker dans un tableau, puis
trier ce dernier.
-------------------
Seulement j'ai cherché et je n'y arrive définitivement
pas (;-)), je n'ai plus manipuler de tableaux depuis très
très longtemps et
ce n'était pas sous access.
J'ai essayer Array, dans l'aide aussi mais je coince.
Merci de toute contribution.
Merci d'avoir lu jusque là.
Bonsoir à tous, Bonsoir et merci Patrice, J'ai trois problèmes avec ta réponse mais surtout UN que voilà :
Le but était de trier par date dans un tableau (bon dans une table...) Mais là l'inconnu de base était la date du fichier pour pouvoir trier sur le critère.
Les deux autres soucis sont plus annexes : 1) je voulais en profiter pour voir ce que l'aide suggérait en terme de tableau, est ce les fameuses constantes de type tableau (Array) ou cela n'existe pas dans Access ? 2) j'ai pas compris : --------------------- 'If MyName <> "." And MyName <> ".." Then If (GetAttr(MyPath & MyName) > And vbDirectory) = vbDirectory Then ------------------ je l'ai virer et ça marche ! ? ! (si ça pouvait être tout le temps comme ça mes modules seraient très courts et feraient monts et merveilles ;-) )
Merci de toute contribution mais surtout me débloquer sur la date. Merci d'avoir lu jusque là.
"Patrice" a écrit dans le message de news:05c501c387f9$92a2b8d0$
bonjour,
Cré une table avec un champ nommé fichiers par exemple. puis :
docmd.setwarnings false docmd.runsql "delete [Nom de la table].* from [Nom de la table]" docmd.setwarnings true
dim db as database, fic as dao.recordset set db=currentdb
set ficÛ.openrecordset("Nom de la table")
MyPath = "c:" ' Définit le chemin d'accès.
MyName = Dir(MyPath, vbDirectory) Do While MyName <> "" If MyName <> "." And MyName <> ".." Then If (GetAttr(MyPath & MyName) _ And vbDirectory) = vbDirectory Then
fic.adnew fic!fichiers=myname
fic.update
End If End If MyName = Dir Loop
slts
-----Message d'origine----- Bonjour à tous, Extrait de l'aide : -------------- MyPath = "c:" ' Définit le chemin d'accès. MyName = Dir(MyPath, vbDirectory) Do While MyName <> "" If MyName <> "." And MyName <> ".." Then If (GetAttr(MyPath & MyName) _ And vbDirectory) = vbDirectory Then Debug.Print MyName End If End If MyName = Dir Loop ------------------ La fonction est utile pour récupérer une liste de fichier comme je le souhaite dans un répertoire...
Seulement et l'aide l'indique bien : --------------------- Conseil Les noms de fichiers extraits n'étant pas classés, vous pouvez les stocker dans un tableau, puis
trier ce dernier.
------------------- Seulement j'ai cherché et je n'y arrive définitivement pas (;-)), je n'ai plus manipuler de tableaux depuis très
très longtemps et
ce n'était pas sous access. J'ai essayer Array, dans l'aide aussi mais je coince.
Merci de toute contribution. Merci d'avoir lu jusque là.
