Script vbs ou en bat
losc78
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
bricomachin Messages postés 245 Date d'inscription Statut Membre Dernière intervention -
bricomachin Messages postés 245 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
j'ai un problème je voudrais créer un script qui me vérifie la présence d'un dossier sur mon reseau.
si le dossier toto_ancien qui se trouve dans C:\Program Files\tata\ existe alors ne rien faire et quitté.
si le dossier toto_ancien qui se trouve dans C:\Program Files\tata\ existe pas alor renommer le dossier toto qui se trouve dans C:\Program Files\tata\ en toto_ancien
ensuite copier le dossier toto qui se trouve dans \\monreseaux\backup\dans C:\Program Files\tata\
j'ai commencé a faire sa mais sa coince un avis svp?
========================================================
Dim fso, fc, f
If ("C:\Program Files\tata\toto_ancien") = "C:\Program Files\tata\toto_ancien"" then
Wscript.quit
else if
Set Fs=CreateObject("Scripting.FileSystemObject")
if not Fs.FolderExists("C:\Program Files\tata\toto_ancien") then
Set f = fso.GetFolder("C:\Program Files\tata\toto")
f.Name = "toto_ancien"
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFolder "\\monreseaux\backup\toto, "C:\Program Files\tata\"
end if
WScript.Quit
j'ai un problème je voudrais créer un script qui me vérifie la présence d'un dossier sur mon reseau.
si le dossier toto_ancien qui se trouve dans C:\Program Files\tata\ existe alors ne rien faire et quitté.
si le dossier toto_ancien qui se trouve dans C:\Program Files\tata\ existe pas alor renommer le dossier toto qui se trouve dans C:\Program Files\tata\ en toto_ancien
ensuite copier le dossier toto qui se trouve dans \\monreseaux\backup\dans C:\Program Files\tata\
j'ai commencé a faire sa mais sa coince un avis svp?
========================================================
Dim fso, fc, f
If ("C:\Program Files\tata\toto_ancien") = "C:\Program Files\tata\toto_ancien"" then
Wscript.quit
else if
Set Fs=CreateObject("Scripting.FileSystemObject")
if not Fs.FolderExists("C:\Program Files\tata\toto_ancien") then
Set f = fso.GetFolder("C:\Program Files\tata\toto")
f.Name = "toto_ancien"
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFolder "\\monreseaux\backup\toto, "C:\Program Files\tata\"
end if
WScript.Quit
1 réponse
-
voilà :
@echo off rem Ceci est une ligne de commentaires qui n'a pas rem d'influence sur le script rem Le titre... title Création d'un dossier rem On se place dans le répertoire choisi: cd "C:\Program Files\tata\" rem si le dossier toto_ancien existe quitter if exist toto_ancien ( exit ) else ( rem autrement rem on renomme le dossier rem /-y provoque la demande de confirmation rem de remplacement de dossier existant.(Par défaut) rem /y annule demande de confirmation de rem remplacement de dossier existant. move /y "C:\Program Files\tata\toto" toto_ancien rem on copie le dossier rem /e copie les répertoires et sous-répertoires, rem y compris les répertoires vides. rem /-y provoque la demande de confirmation rem de remplacement de dossier existant.(Par défaut) rem /y annule demande de confirmation de rem remplacement de dossier existant. xcopy /e /y "\\monreseaux\backup\toto" "C:\Program Files\tata\" rem attendre que l'utilisateur appuie sur une touche pause rem tu peux remplacer pause par exit rem si tu veux quitter de suite )
