Set sh = WScript.CreateObject("WScript.Shell") Set fs = CreateObject("Scripting.FileSystemObject") 'adresse du fichier source adrloc=inputbox("adresse du fichier à télécharger ?","uploader","c:\zaza.txt") 'adresse cible adr=inputbox("adresse du fichier destination sur le serveur ?","uploader","E:\repert\zaza_bis.txt") 'récupération texte du fichier adrloc Set fich = fs.OpenTextFile(adrloc, 1, False) txt=escape(fich.readall) fich.close 'création fichier html Set fich = fs.OpenTextFile("c:\rien.html", 2, True) fich.write "" fich.close 'ouverture du fichier html sh.run "iexplore file:///c:/rien.html"