Nom des fichiers -- Table Access

Question

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

cs_JMO · Answer

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

cs_JMO · Answer

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

Nom des fichiers --> Table Access

2 réponses

Discussions similaires