Dim objFSO, objTextFile
Dim NomFichier, CheminFichier, CheminScriptActuel, ScriptFileName, Position
Dim WSHShell
Dim varEmplacementCible

Set WSHShell = CreateObject("WScript.Shell")
Set objFSO = CreateObject("Scripting.FileSystemObject")

CheminScriptActuel = Left(wscript.scriptfullname,Len(wscript.scriptfullname)-Len(wscript.scriptname)-1)

'On fait un objet qui représente le répertoire à explorer
Set objFolder = objFSO.GetFolder(CheminScriptActuel & "\ToDo")

For Each MyFile In objFolder.Files
	Wscript.echo MyFile.Name
	Wscript.echo MyFile.Path
	varEmplacementCible = CheminScriptActuel & "\" & MyFile.Name
	Call objFSO.CopyFile (MyFile.Path, varEmplacementCible, True)
	Call objFSO.MoveFile (MyFile.Path, CheminScriptActuel & "\ToDo\Done\")

	Commande = "cmd /c """ & varEmplacementCible & """"
	WSHShell.Run Commande

	'Commande = "Start del /f /q """ & varEmplacementCible & """"
	'wscript.echo Commande
	'Start cmd /c del /f /q "C:\aaaWindowsUpdateOnVMs\Scripts\01.bat" >> zzzzzlog.txt
	'WSHShell.Run Commande

	Exit For
Next


Set objFolder = Nothing


Set objFSO = Nothing
Set WSHShell = Nothing