Mon problème est que ma liste n'ai pas toujours
complète car si j'exécute de cette façon
voici la liste qu'il me donne j'ai ajouter le Q.
Comment résoudre ce problème
Private Sub Command1_Click()
Set oExec = New Dir_LOng
Set oExec = oExec.Dir_LOng("\\Server_Name\1193\11934\119346Q*.*")
While Not oExec.StdOut.AtEndOfStream
Debug.Print oExec.StdOut.ReadLine
Wend