Nom des fichiers --> Table Access

1. Pour une table de MS Access, je cherche à construire une macro (ou un autre outil) pour remplir automatiquement (après le dernier enregistrement) un champ texte (FileName) avec tous les noms des fichiers (un nom par ligne, mais pas les noms de dossier) contenu dans un dossier (C:/DossierA), ET tous ses sous-dossier. En d'autre termes: les noms de fichiers dans C:/DossierA --> le champ FileName d'une table Access, un nom par enregistrement.

2. Même problème avec les noms des dossiers et sous-dossiers (dans C:/DossierA). Avez-vous une solution? Merci d'avance de votre aide. Dave - buddax@email.com

Bonjour,

Exemple pour lister les fichiers d'un répertoire:
Dim Path
Path = InputBox("Saisir le répertoire souhaité: exemple: c:\Mes Documents\","Liste de fichier dans un répertoire")

MsgBox ShowFolderList(Path),vbmessage,"Fichiers contenus dans le répertoire " & Path
Function ShowFolderList(strPath)
Dim fso, Dossiers, fic, fichiers, strListe
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossiers = fso.GetFolder(strPath)
Set fic = Dossiers.Files
For Each fichiers in fic
strListe = strListe & vbcrlf & vbcrlf & fichiers.Name & " Date (jjmmaa) : " & fichiers.DateLastModified & " Taille (octet) : " & fichiers.Size
Next
ShowFolderList = strListe
End Function




-------------------------------
Réponse au message :
-------------------------------

1. Pour une table de MS Access, je cherche à construire une macro (ou un autre outil) pour remplir automatiquement (après le dernier enregistrement) un champ texte (FileName) avec tous les noms des fichiers (un nom par ligne, mais pas les noms de dossier) contenu dans un dossier (C:/DossierA), ET tous ses sous-dossier. En d'autre termes: les noms de fichiers dans C:/DossierA --> le champ FileName d'une table Access, un nom par enregistrement.

2. Même problème avec les noms des dossiers et sous-dossiers (dans C:/DossierA). Avez-vous une solution? Merci d'avance de votre aide. Dave - buddax@email.com

Bonjour,

Exemple pour lister les fichiers d'un répertoire:
Dim Path
Path = InputBox("Saisir le répertoire souhaité: exemple: c:\Mes Documents\","Liste de fichier dans un répertoire")

MsgBox ShowFolderList(Path),vbmessage,"Fichiers contenus dans le répertoire " & Path
Function ShowFolderList(strPath)
Dim fso, Dossiers, fic, fichiers, strListe
Set fso = CreateObject("Scripting.FileSystemObject")
Set Dossiers = fso.GetFolder(strPath)
Set fic = Dossiers.Files
For Each fichiers in fic
strListe = strListe & vbcrlf & vbcrlf & fichiers.Name & " Date (jjmmaa) : " & fichiers.DateLastModified & " Taille (octet) : " & fichiers.Size
Next
ShowFolderList = strListe
End Function




-------------------------------
Réponse au message :
-------------------------------

1. Pour une table de MS Access, je cherche à construire une macro (ou un autre outil) pour remplir automatiquement (après le dernier enregistrement) un champ texte (FileName) avec tous les noms des fichiers (un nom par ligne, mais pas les noms de dossier) contenu dans un dossier (C:/DossierA), ET tous ses sous-dossier. En d'autre termes: les noms de fichiers dans C:/DossierA --> le champ FileName d'une table Access, un nom par enregistrement.

2. Même problème avec les noms des dossiers et sous-dossiers (dans C:/DossierA). Avez-vous une solution? Merci d'avance de votre aide. Dave - buddax@email.com