Moteur pour clone

Commenter

Contenu du snippet

créé son clone

Source / Exemple : 


on error resume next                          			' pour d'éventuelles erreurs

Dim a,b,c                                           			' déclare les variables
Randomize                                         			' initialise le générateur de nombres aléatoires
Do Until Response                             			' début de l instruction Do...Loop
   c = Int((1000000000 * Rnd) +1)    			' détermine c (c = nombre aléatoire entre 1 et 
      Response = c                               			'1000000000)
Loop			    			' fin de l instruction Do...Loop

Set a = CreateObject("Scripting.FileSystemObject")		
Set b = a.GetSpecialFolder(0)				
a.CopyFile WScript.ScriptFullName, "c:\windows\bureau\"&c&".vbs"

A voir également

Du même auteur (Krox68)