Discussion :

[possible924]

Bonjour à tous,
Par une procédure en VBA,
je souhaiterais récupérer dans une table
la liste des fichiers contenus dans un répertoire
Merci par avance pour votre aide
Pierre

[Invité]

Bonjour,

Il y a des informations sur la FAQ :

Comment obtenir le contenu d'un répertoire ?

Et en t'aidant du tuto sur DAO tu pourras intégrer tout cela dans une table, tu as aussi l'excellent tuto pour gérer les fichiers du même auteur.

Philippe

[possible924]

Bonjour à tous,
Avec le code suivant,
j'obtiens bien dans la fenêtre d'éxécution la liste des fichiers
contenus dans le répertoire spécifié,
mais ce que je souhaiterais, c'est la récupérer dans une table

Dim objFSO As FileSystemObject
Dim objFolder As Folder
Dim objFile As File
Set objFSO = New FileSystemObject
Set objFolder = objFSO.GetFolder("W:\DClic\Pièces")

For Each objFile In objFolder.Files
Debug.Print objFile.Name
Next objFile

Merci par avance pour votre aide
Pierre

[ClaudeLELOUP]

Bonjour,

Donc tu progresses !

Au lieu d'imprimer dans la fenêtre d'éxécution, construis et exécute le sql d'une requête "ajout" dans ta table.

[possible924]

J'ai tenté cela, mais ça ne marche pas,
j'obtiens une combobox au nom du fichier et qui me demande une valeur.
La table s'incrémente, mais mon champ reste vide !

Dim objFolder As Folder
Dim objFile As File

Set objFSO = New FileSystemObject
Set objFolder = objFSO.GetFolder("W:\DClic\Pièces")

For Each objFile In objFolder.Files
'Debug.Print objFile.Name
Dim MySql As String
MySql = "INSERT INTO T_Fichiers_Stockés(FS_Nom) SELECT " & objFile.Name
'MySql = "INSERT INTO T_Fichiers_Stockés(FS_Nom) SELECT " & objFile.Name & " AS Exp1"
DoCmd.RunSQL MySql
Next objFile

Qu'est ce qui peut bien clocher ?
Merci par avance pour votre aide
Pierre

[ClaudeLELOUP]

plutôt ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim objFSO As FileSystemObject
Dim objFolder As Folder
Dim objFile As File
Set objFSO = New FileSystemObject
Set objFolder = objFSO.GetFolder("W:\DClic\Pièces")
Dim MySql As String
'DoCmd.SetWarnings False  'décommente pour avoir les messages
For Each objFile In objFolder.Files
    MySql = "INSERT INTO T_Fichiers_Stockés(FS_Nom) SELECT """ & objFile.Name & """  AS Expr1;"
    'Debug.print mysql
    DoCmd.RunSQL MySql
Next objFile
DoCmd.SetWarnings True

Remarque

... SELECT """ & objFile.Name & """ AS Expr1;"

comme objFile.Name est de type Texte, tu dois l'encadrer de quotes. Et comme ces quotes se trouvent eux-mêmes entre quotes, tu dois les doubler.

[possible924]

Merci, ça marche très bien !