Bonjour,

Avec ShowFolderList, en listant a partir d'un repertoire les fichiers, je fais apparaitre une fenetre ou figurent (à partir d'un répertoire):
Nom du fichier...Date: jjmmaa..taille du fichier
Nom du fichier...Date: jjmmaa..taille du fichier
Le nom des fichiers etant sur une longueur x, est-il possible, pour soigner la presentation:
1) d'agrandir en largeur la taille de la fenetre
2) de cadrer le nom "date:" a une certaine longueur

Ci-dessus, la base de travail:

Dim Path
Path = InputBox("Saisir le répertoire souhaité: exemple: c:\Mes Documents\","Liste de fichier dans un répertoire")
MsgBox ShowFolderList(Path),vbmessage,"Vérification de l'archivage des fichiers => 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
'pour chaque fichiers de mon objet files de mon objet fso...:)
For Each fichiers in fic
'le nom du fichier
strListe = strListe & vbcrlf & vbcrlf & fichiers.Name & " Date (jjmmaa) : " & fichiers.DateLastModified & " Taille (octet) : " & fichiers.Size
Next
ShowFolderList = strListe
End Function

Cette base de proc (VBS) m'a ete fournie par VicoLaChips2.

Merci pour l'aide.
Jean-Marc