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
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
X
Bonsoir,
De mémoire il me semble qu'un:
Kill "path*.*"
devrait tout supprimer d'un coup dans le répertoire.
-- 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: 4329aebb$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)
Bonsoir,
De mémoire il me semble qu'un:
Kill "path*.*"
devrait tout supprimer d'un coup dans le répertoire.
--
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" <antispam@mediacd.fr> a écrit dans le message de news:
4329aebb$0$12992$7a628cd7@news.club-internet.fr...
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
devrait tout supprimer d'un coup dans le répertoire.
-- 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: 4329aebb$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)
Carrère Loïc
Dan a écrit :
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)
Pour supprimer un répertoire :
Dim fso as FileSystemObject Set fso = New FileSystemObject fso.DeleteFolder "c:monrepertoire", True
Dan a écrit :
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)
Pour supprimer un répertoire :
Dim fso as FileSystemObject
Set fso = New FileSystemObject
fso.DeleteFolder "c:monrepertoire", True
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)
Pour supprimer un répertoire :
Dim fso as FileSystemObject Set fso = New FileSystemObject fso.DeleteFolder "c:monrepertoire", True
