script d'ouverture (win2k)....

Marsh Posté le 25-06-2002 à 11:02:21

Bonjour a tous

Comment fait on un script d'ouverture sous 2000 ?

Je cherche à automatiser la supression de certain dossier à chaque démarrage.

merci d'avance !

Marsh Posté le 25-06-2002 à 11:02:21

Marsh Posté le 25-06-2002 à 11:06:20

script pour effacer le contenu des répertoires temporaires :

on error resume next
Set Shell = CreateObject("WScript.Shell" )
Temp = Shell.Environment("Process" )("TEMP" ) & "\"
CleanDir Temp
Tmp = Shell.Environment("Process" )("TMP" ) & "\"
CleanDir Tmp
Set Shell = Nothing

sub CleanDir(Path)
On error resume next
Dim Folder, FSO, SubFolder, File
Set FSO = Wscript.CreateObject("Scripting.FileSystemObject" )
Set Folder = FSO.GetFolder(Path)
for each SubFolder in Folder.SubFolders
SubFolder.Delete True ' Force la suppression du dossier
next
for each File in Folder.Files
File.Delete True ' Force la suppression du fichier
next
Set Folder = Nothing
Set FSO = Nothing
end sub

Marsh Posté le 25-06-2002 à 11:13:43

je dois le copier où ? Sous VBA ?

Marsh Posté le 25-06-2002 à 11:19:53

:cry:

Marsh Posté le 25-06-2002 à 11:38:51

Non, tu te fais un fichier .vbs

Marsh Posté le 25-06-2002 à 11:47:19

Merci infiniment !

Marsh Posté le 25-06-2002 à 12:07:08

Le mieux serait que tu utilise kixstart un gestionnaire de script que tu trouvera sur les cds de ressourcekit de crosoft ou bien sur le net.
Pour le mode d'emploi et infos plus détaillé va voir à cette adresse http://www.autourdupc.com/index.ht [...] Kix363.htm
A+

Marsh Posté le 25-06-2002 à 15:31:37

Merci à tous et @ bientôt.

MisterT

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed

Name *

Email *

URL

Message *