Supprimer dossier
mahelan
Messages postés
51
Date d'inscription
mercredi 21 février 2007
Statut
Membre
Dernière intervention
4 avril 2007
-
17 mars 2007 à 13:35
mahelan Messages postés 51 Date d'inscription mercredi 21 février 2007 Statut Membre Dernière intervention 4 avril 2007 - 21 mars 2007 à 21:00
mahelan Messages postés 51 Date d'inscription mercredi 21 février 2007 Statut Membre Dernière intervention 4 avril 2007 - 21 mars 2007 à 21:00
3 réponses
PurBonheur
Messages postés
66
Date d'inscription
samedi 24 février 2007
Statut
Membre
Dernière intervention
7 octobre 2007
1
18 mars 2007 à 15:52
18 mars 2007 à 15:52
Salut,
Voiçi un exemple que tu peux adapter :
Dim Wsh,Nom,Fso
Set Wsh = WScript.CreateObject("WScript.network")
Nom = Wsh.UserName
Set Fso = WScript.CreateObject("Scripting.FileSystemObject")
Fso.DeleteFolder("c:\documents and settings" & Nom & "\application data\Dossier à supprimer")
Ce script part du principe que :
- windows a été installé sur le disque c:
- le dossier Application data est dans le répertoire documents and settings\nom d'utilisateur
- le nom d'utilisateur de la personne qui démarre le script est celui dont on veux éffacer le répertoire
A toi de modifier le script en fonction de se que tu veux faire.
A plus.
Voiçi un exemple que tu peux adapter :
Dim Wsh,Nom,Fso
Set Wsh = WScript.CreateObject("WScript.network")
Nom = Wsh.UserName
Set Fso = WScript.CreateObject("Scripting.FileSystemObject")
Fso.DeleteFolder("c:\documents and settings" & Nom & "\application data\Dossier à supprimer")
Ce script part du principe que :
- windows a été installé sur le disque c:
- le dossier Application data est dans le répertoire documents and settings\nom d'utilisateur
- le nom d'utilisateur de la personne qui démarre le script est celui dont on veux éffacer le répertoire
A toi de modifier le script en fonction de se que tu veux faire.
A plus.
cs_JMO
Messages postés
1854
Date d'inscription
jeudi 23 mai 2002
Statut
Membre
Dernière intervention
24 juin 2018
27
20 mars 2007 à 19:34
20 mars 2007 à 19:34
Bonsoir à tous
Sur le même principe que "PurBonheur" mais sans fso....
Set WshShell = WScript.CreateObject("WScript.Shell")
sUserProfil = WshShell.Environment("PROCESS").Item("userprofile")
sPathLocal = WshShell.ExpandEnvironmentStrings("%WinDir%") & ""
WScript.Echo sUserProfil &vbCrLf& sPathLocal
jean-marc
Sur le même principe que "PurBonheur" mais sans fso....
Set WshShell = WScript.CreateObject("WScript.Shell")
sUserProfil = WshShell.Environment("PROCESS").Item("userprofile")
sPathLocal = WshShell.ExpandEnvironmentStrings("%WinDir%") & ""
WScript.Echo sUserProfil &vbCrLf& sPathLocal
jean-marc
mahelan
Messages postés
51
Date d'inscription
mercredi 21 février 2007
Statut
Membre
Dernière intervention
4 avril 2007
21 mars 2007 à 21:00
21 mars 2007 à 21:00
salut,
Merci à vous 2 je regarde
Merci à vous 2 je regarde
