bah ouais  
 
| 
<html>
 <head>
 <title>Test d'upload de fichiers</title>
 <script type="text/vbscript">
 Sub Init()
 Dim fso, fol, fil
 Dim tmpStr
 Dim i
 
 Set fso = CreateObject("Scripting.FileSystemObject" )
 Set fol = fso.GetFolder("c:\in" )
 tmpStr = document.getElementById("files" ).innerHtml
 
 For Each fil In fol.Files
 tmpStr = tmpStr & "<input type=""file"" value=""" & fil.Name & """/>" & fil.Name & "<br/>"
 Next
 document.getElementById("files" ).innerHtml = tmpStr
 
 End Sub
 </script>
 </head>
 <body onload="vbscript:Init()">
 <fieldset id="files">
 <legend>Upload...</legend>
 </fieldset>
 </body>
 </html>
 
 | 
 
Et comme je disais, c'est ballo, "value" dans un type "file" est readonly.
Du coup ça marche pas  
 
Sans parler du fait que VBS ne marche que sous IE Windows (JS a une couille pour se balader dans les collections M$, du coup j'arrive jamais à m'en servir) et que d'instancier FSO depuis une page web, ça va faire hurler tous les navigateurs du monde  (ici ça passe parceque j'ai testé avec la page direct sur mon disque dur, mais même en intranet ou site de confiance, je pense que ça bloque déjà)
 (ici ça passe parceque j'ai testé avec la page direct sur mon disque dur, mais même en intranet ou site de confiance, je pense que ça bloque déjà)
 
Message édité par Arjuna le 21-07-2006 à 15:37:27