OVH Cloud OVH Cloud

RmDir

1 réponse
Avatar
Dan
Bonjour a tous.
Je veux programmer la suppression d'un repertoir,pour cela je supprime tous
les fichiers de ce repertoir
puis je supprime le repertoir mais il m'indique que ce repertoir n'est
pas vide,il doit subsister un fichier caché qu'en pensez vous ?
voici mon code:
Form5.filFichier1 est une filelistebox

Form5.filFichier1.Path = Répertoire
'Form5.filFichier1.Pattern = "*.jpg; *.mpg; *.avi"
For i = 0 To Form5.filFichier1.ListCount - 1
Kill (Répertoire & "/" & Form5.filFichier1.List(i))
Next i

RmDir (Répertoire)

1 réponse

Avatar
X
Bonsoir, ter,

Peut être n'arrives-tu pas à lire tes réponses (problème technique?), tu
as posé ta question 3 fois, dont 1 fois à toi même, tu as eu 3 réponses,
dont 2 différentes, peux-tu préciser le problème, en l'espèce pourquoi
reposer toujours la même question alors que tes 2 réponses sont
exploitables? :o)

--
ECRIRE
http://irolog.free.fr/ecrire/index.htm

LOGICIELS
http://irolog.free.fr

SITE
http://irolog.free.fr/joe/index.htm

FAQ VB
http://faq.vb.free.fr

PRINCIPE D'UTILISATION DES NEWSGROUPS MICROSOFT
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
********************************************************



"Dan" a écrit dans le message de news:
4329e0b7$0$12992$
Bonjour a tous.
Je veux programmer la suppression d'un repertoir,pour cela je supprime
tous
les fichiers de ce repertoir
puis je supprime le repertoir mais il m'indique que ce repertoir n'est
pas vide,il doit subsister un fichier caché qu'en pensez vous ?
voici mon code:
Form5.filFichier1 est une filelistebox

Form5.filFichier1.Path = Répertoire
'Form5.filFichier1.Pattern = "*.jpg; *.mpg; *.avi"
For i = 0 To Form5.filFichier1.ListCount - 1
Kill (Répertoire & "/" & Form5.filFichier1.List(i))
Next i

RmDir (Répertoire)