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à)
Message édité par Arjuna le 21-07-2006 à 15:37:27