SUPPRIMER UN RÉPERTOIRE ET TOUT SON CONTENU (SOUS-DOSSIERS ET FICHIERS)

Messages postés
2865
Date d'inscription
samedi 2 novembre 2002
Statut
Membre
Dernière intervention
11 mai 2009
- - Dernière réponse : alucard02
Messages postés
26
Date d'inscription
mardi 6 novembre 2007
Statut
Membre
Dernière intervention
30 janvier 2009
- 18 déc. 2007 à 19:40
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/5490-supprimer-un-repertoire-et-tout-son-contenu-sous-dossiers-et-fichiers

Afficher la suite 
cs_LordBob
Messages postés
2865
Date d'inscription
samedi 2 novembre 2002
Statut
Membre
Dernière intervention
11 mai 2009
8 -
exactement la source ke je chercher, un grand merci a toi tcedi
tcedi
Messages postés
59
Date d'inscription
samedi 27 juillet 2002
Statut
Membre
Dernière intervention
11 septembre 2003
-
Mais, de rien, LordBob !!! J'espère que cette source te servira bien !
Bonne prog !
SupraDolph
Messages postés
196
Date d'inscription
samedi 12 janvier 2002
Statut
Membre
Dernière intervention
1 septembre 2008
1 -
C pa mal mais, Personellement j'utiliserai plutôt :

Public Function SupprimeRepertoire(Repertoire As String)
If Right(Repertoire, 1) "" Then Repertoire Left(Repertoire, Len(Repertoire) - 1)
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFile Repertoire & "*.*", True
fs.DeleteFolder Repertoire, False
End Function

Bon Prog
SupraDolph
SupraDolph
Messages postés
196
Date d'inscription
samedi 12 janvier 2002
Statut
Membre
Dernière intervention
1 septembre 2008
1 -
oups sa ne prend pas les backslash

Public Function SupprimeRepertoire(Repertoire As String)
If Right(Repertoire, 1) "BACKSLASH" Then Repertoire Left(Repertoire, Len(Repertoire) - 1)
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
fs.DeleteFile Repertoire & "BACKSLASH*.*", True
fs.DeleteFolder Repertoire, False
End Function

Bon Prog
SupraDolph
tcedi
Messages postés
59
Date d'inscription
samedi 27 juillet 2002
Statut
Membre
Dernière intervention
11 septembre 2003
-
C'est vrai qu'il est possible d'utiliser le FSO et que c'est plus simple ! Cependant, si tu utilises le FSO pour supprimer un répertoire avec un bon AntiVirus, ce dernier va te signaler que ton programme exécute peut-être un script malveillant et il va te demander si tu désires l'autoriser à exécuter ce script ou non. Cela prend du temps. Et en général, ça ne plait pas aux utilisateurs finaux d'avoir l'impression de se faire hacker à chaque fois qu'ils utilisent ton programme ! lol !

Merci pour tes commentaires SupraDolph !

Bonne prog !!!