Posted By

martinbrait on 08/10/19


Tagged

list files directory


Versions (?)

[vba-excel] lister le contenu d'un répertoire dans une feuille


 / Published in: Visual Basic
 

How to list files from a directory ?

  1. Private Sub ListerFichiersDansRepertoire()
  2. Dim dossier As Object, subfolder As Object, fichier As Object
  3.  
  4. Dim chemin As String
  5.  
  6. Dim i As Long
  7. Dim ch As String
  8.  
  9. Sheets("feuil2").Select
  10. Range("A6:B643").clear
  11. Range("D6:E643").clear
  12.  
  13. chemin = "C:\Documents and Settings\jeanmimi\Bureau\MBR\Suivi-BT-HV\"
  14.  
  15. 'Définition de la variable
  16. Set dossier = CreateObject("Scripting.FileSystemObject").GetFolder(chemin)
  17. 'Set fso_objet = dossier.CreateObject("Scripting.FileSystemObject").GetFolder(chemin)
  18. ' Boucle sur les fichiers
  19. For Each fichier In dossier.Files
  20. i = i + 1
  21.  
  22. 'Cells(I, 2) = Fichier.Name ' Nom du fichier
  23. Range("A6").Cells(i, 2) = Left(fichier.Name, InStr(fichier.Name, ".") - 1) 'sans l'extension
  24. Range("A6").Cells(i, 4) = fichier.DateCreated ' Date de création
  25. Range("A6").Cells(i, 5) = fichier.DateLastModified ' Nom du fichier
  26. Range("A6").Cells(i, 10) = fichier.ParentFolder.Name ' Nom du fichier
  27. Next
  28.  
  29. Unload Gestion_des_BT
  30. Sheets("Feuil2").Visible = True
  31. Range("A1").Select
  32. End Sub

Report this snippet  

You need to login to post a comment.