cs_ITALIA
Messages postés2169Date d'inscriptionvendredi 20 avril 2001StatutMembreDernière intervention30 juin 2009
-
21 juin 2006 à 17:35
cs_ITALIA
Messages postés2169Date d'inscriptionvendredi 20 avril 2001StatutMembreDernière intervention30 juin 2009
-
22 juin 2006 à 12:34
Bonjour j'aimaerais savoir comment supprimer un repertoire avec tous ce qu'il contient (Sous repertoire et fichier)
j'ai essayé :
Set fso = CreateObject("Scripting.FileSystemObject")
Folder="C:\Program Files\JavaSoft"
If fso.FolderExists(Folder) Then
fso.DeleteFolder(Folder)
End If
Set colFolders = objWMIService.ExecQuery _
("Select * from Win32_Directory where Name = 'C:\\Program Files\\JavaSoft
'")
For Each objFolder in colFolders
errResults = objFolder.Delete
Next
Manu
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 22 juin 2006 à 12:28
Bonjour,
Dim Fso, Folder
Folder = "C:\Program Files\JavaSoft * " 'ne pas oublier l'astérisque
Set Fso = CreateObject("Scripting.FileSystemObject")
Fso.DeleteFolder(Folder)
MsgBox "Le dossier (et sous-dossiers) "& Folder &" a été supprimé !!!"
Set Fso = Nothing
La méthode Fso est legèrement plus rapide qu'en WMI.
Ne pas oublier de faire un Set xxxx = Nothing de tous les objets.
--------------------------------------------------------------------------------------------
Avant de poster un message, n'oubliez pas de consulter le reglement.
cs_JMO
Messages postés1854Date d'inscriptionjeudi 23 mai 2002StatutMembreDernière intervention24 juin 201827 21 juin 2006 à 17:44
Bonjour,
En VBS, la synthaxe est:
Dim fso, fldr
fldr = "d:\test2 * "
Set fso = CreateObject("Scripting.FileSystemObject")
fso.DeleteFolder(fldr)
MsgBox "Bravo...Le dossier (et sous-dossiers) "&fldr&" a été supprimé !!!"
Set fso = Nothing
jean-marc
Vous n’avez pas trouvé la réponse que vous recherchez ?