Bonjour à tous


J'ai fait un mixe entre


pour obtenir la liste des répertoires/fichiers

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
' Using a hidden window, pipe the output of the command to the CLIP.EXE utility
     Dim results as string
    CreateObject("WScript.Shell").Run "CMD /C DIR """ & parentFolder & "*.*"" w/a/s /b /d/t | clip", 0, True
    results = CreateObject("htmlfile").ParentWindow.ClipboardData.GetData("text")
 
     Range("D1").Resize(UBound(Split(results, vbCrLf)), 1).Value = WorksheetFunction.Transpose(Split(results, vbCrLf))
J'obtiens chemin et le nom
  • Des fichiers
  • Des répertoires


Mais rien sur les attributs associés comme :
  • La date de dernière modification
  • La taille du fichier / répertoire


Merci par avance pour toute aide
Bonjour chez vous