créer un rep et un fichierRésolu

Question

salut
je suis d&#233;butant en vbscript, je vourais cr&#233;er un script .vbs sous windows 2003 xp, ce script cr&#233;e un repertoire sous c: ( c:eptest) qui contient un fichier test.txt et si cette structure exite on l'ecrase.(c:eptest	est.txt)


merci
URGENT

cs_wape · Accepted Answer

Bonjour,

Voici une possibilit&#233; :

MonRep = "C:eptest" '<-- A adapter
MonFic = MonRep & "	est.txt" '<-- A adapter
Set fso = CreateObject("Scripting.FileSystemObject")
'V&#233;rifier l'existence du r&#233;pertoire
If fso.FolderExists(MonRep) Then
   'Supprimer le r&#233;pertoire
   fso.DeleteFolder(MonRep)
End If
'Cr&#233;er le r&#233;pertoire
fso.CreateFolder(MonRep)
'Cr&#233;er le fichier
Set fic = fso.CreateTextFile(MonFic)
'Ecrire dans le fichier
fic.WriteLine("Ce texte est &#233;crit depuis un script vbs")
'Fermer le fichier
fic.Close
'Lib&#233;rer les ressources
Set fic = Nothing
Set fso = Nothing

wape

makli5 · Answer

Merci
Ca marche bien, en plus j'ai d&#233;ploy&#233; ce script par GPO; t'a des liens utils pour apprendre ce language?
@+

Créer un rep et un fichier

2 réponses

Discussions similaires