supprimer un repertoire

aski

27/08/2008 à 12:53

Salut,

"wess3310" a écrit dans le message de groupe de
discussion :

Bonjour,
voila mon code
''''''''''''''''''''''
On Error Resume Next
CheminRep = DossierSpecial(36)
If Right(CheminRep, 1) <> "" Then CheminRep = CheminRep + ""
CheminRep = CheminRep + "*.*"

Kill CheminRep
List1.Refresh
List1.Clear
On Error GoTo 0
''''''''''''''

ca me permet de supprimer les fichiers *.*
je veux supprimer aussi les repertoires mais j'arrive
paaaaas!!!!!!!!!!!!!!
de l'aiiiiiiiiiiiiiiiiiiiiiiiiiide
svp mercii

As-tu vérifié que le répertoire est bien vide ?

--
Cordialement

Aski
MVP Windows Desktop Experience

jean-marc

27/08/2008 à 13:01

"wess3310" wrote in message
news:

ca me permet de supprimer les fichiers *.*
je veux supprimer aussi les repertoires mais j'arrive
paaaaas!!!!!!!!!!!!!!
de l'aiiiiiiiiiiiiiiiiiiiiiiiiiide
svp mercii

Hello,

Tu trouveras la réponse à pas mal de tes questions
dans la FAQ de ce groupe:
http://faq.vb.free.fr/

Pour ta question en particlier, tout est là :

"Comment copier, déplacer, supprimer ou renommer une arborescence complète
de dossiers ?"
http://faq.vb.free.fr/index.php?question5

Cordialement,

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;

wess3310

28/08/2008 à 09:36

jean-marc a écrit le 27/08/2008 à 13h01 :

"wess3310" wrote in message
news:

ca me permet de supprimer les fichiers *.*
je veux supprimer aussi les repertoires mais j'arrive
paaaaas!!!!!!!!!!!!!!
de l'aiiiiiiiiiiiiiiiiiiiiiiiiiide
svp mercii

Hello,

Tu trouveras la réponse à pas mal de tes questions
dans la FAQ de ce groupe:
http://faq.vb.free.fr/

Pour ta question en particlier, tout est là :

"Comment copier, déplacer, supprimer ou renommer une arborescence
complète
de dossiers ?"
http://faq.vb.free.fr/index.php?question5

Cordialement,

--
Jean-marc Noury (jean_marc_n2)
Microsoft MVP - Visual Basic
FAQ VB: http://faq.vb.free.fr/
mailto: remove '_no_spam_' ;

bonjour
je n'ai pas trouver une bonne repense sur le lien
aidez moiiii SVP

LE TROLL

28/08/2008 à 10:39

Bonjour,

L'erreur retournée "on error goto", elle dit quoi en numéro et texte,
car je ne pense pas qu'il faille inhiber les erreurs, la preuve dans ce cas,
ça dirait pourquoi ça coince ???

Répertoire vide, on te l'a déjà dit...

Le chemin, parfois c'est un petit rien en trop qui fait que le chemin
est mauvais, as-tu bien vérifié, comparé le chemin, mettant par exemple dans
un textBox, ton chemin avec app.path, et dans la ligne suivante ton chemin
de code ???

Je ne suis pas certain (mais je me trompe peut être), que les "*.*" soit
acceptés pour les répertoires....

Tu pourrais à la place faire un dire, résultat en liste, pour écrire le
nom exact des répertoires:

Dim ligne As String
List1.Clear
ligne = Dir("a:")
Do While ligne <> ""
DoEvents
ligne = Dir()
List1.AddItem ligne
Loop

Les attributs de tes répertoires ?

GetAttr("nom_fic.ext")
--
DIRECTORY (16)
Si attributs = 16 à 23 et 48 à 55

ECRITURE
SetAttr "cheminnom_fic.ext", vbHidden
Fichier fermé : 0, 1, 2, 4, 32

Et puis sinon, tu as de mémoire, "DelTree" me semble-t-il, qui fait ce
travail... On peut depuis le code, créer un bat, puis l'exécuter, puis le
supprimer, ainsi ça peut aussi être une solution, voir le forum "MsDos"...

Fin du communiqué :o)

--
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"wess3310" a écrit dans le message de news:

| Bonjour,
| voila mon code
| ''''''''''''''''''''''
| On Error Resume Next
| CheminRep = DossierSpecial(36)
| If Right(CheminRep, 1) <> "" Then CheminRep = CheminRep + ""
| CheminRep = CheminRep + "*.*"
|
| Kill CheminRep
| List1.Refresh
| List1.Clear
| On Error GoTo 0
| ''''''''''''''
|
| ca me permet de supprimer les fichiers *.*
| je veux supprimer aussi les repertoires mais j'arrive
paaaaas!!!!!!!!!!!!!!
| de l'aiiiiiiiiiiiiiiiiiiiiiiiiiide
| svp mercii

wess3310

28/08/2008 à 11:48

LE TROLL a écrit le 28/08/2008 à 10h39 :

Bonjour,

L'erreur retournée "on error goto", elle dit quoi en
numéro et texte,
car je ne pense pas qu'il faille inhiber les erreurs, la preuve dans ce cas,
ça dirait pourquoi ça coince ???

Répertoire vide, on te l'a déjà dit...

Le chemin, parfois c'est un petit rien en trop qui fait que le chemin
est mauvais, as-tu bien vérifié, comparé le chemin,
mettant par exemple dans
un textBox, ton chemin avec app.path, et dans la ligne suivante ton chemin
de code ???

Je ne suis pas certain (mais je me trompe peut être), que les
"*.*" soit
acceptés pour les répertoires....

Tu pourrais à la place faire un dire, résultat en liste, pour
écrire le
nom exact des répertoires:

Dim ligne As String
List1.Clear
ligne = Dir("a:")
Do While ligne <> ""
DoEvents
ligne = Dir()
List1.AddItem ligne
Loop

Les attributs de tes répertoires ?

GetAttr("nom_fic.ext")
--
DIRECTORY (16)
Si attributs = 16 à 23 et 48 à 55

ECRITURE
SetAttr "cheminnom_fic.ext", vbHidden
Fichier fermé : 0, 1, 2, 4, 32

Et puis sinon, tu as de mémoire, "DelTree" me semble-t-il, qui
fait ce
travail... On peut depuis le code, créer un bat, puis l'exécuter,
puis le
supprimer, ainsi ça peut aussi être une solution, voir le forum
"MsDos"...

Fin du communiqué :o)

--
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"wess3310" a écrit dans le
message de news:

| Bonjour,
| voila mon code
| ''''''''''''''''''''''
| On Error Resume Next
| CheminRep = DossierSpecial(36)
| If Right(CheminRep, 1) <> "" Then CheminRep = CheminRep +
""
| CheminRep = CheminRep + "*.*"
|
| Kill CheminRep
| List1.Refresh
| List1.Clear
| On Error GoTo 0
| ''''''''''''''
|
| ca me permet de supprimer les fichiers *.*
| je veux supprimer aussi les repertoires mais j'arrive
paaaaas!!!!!!!!!!!!!!
| de l'aiiiiiiiiiiiiiiiiiiiiiiiiiide
| svp mercii

le code que j'ai donné me permet de supprimer les fichiers seulement
*rien n'est signalé a propos de "repertoire vide"
*c'est fait deja tous les chemins sont affichés dans une zone texte

<<<Tu pourrais à la place faire un dire, résultat en liste, pour
écrire le
nom exact des répertoires:>>>

* le probleme que j'ai plusieurs repertoire sous des chemins defferents en + des fois il ya des nouveaux repertoire qui sortent par exemple le repertoire des fichiers temporaires internet j'arrive a supprimer tous ces fichiers meme les fichiers qui sont sous les sous repertoire mais les sous repertoire non!!!! vraiment c'est un peut bizar

merci

LE TROLL a écrit le 28/08/2008 à 10h39 :

Bonjour,

L'erreur retournée "on error goto", elle dit quoi en
numéro et texte,
car je ne pense pas qu'il faille inhiber les erreurs, la preuve dans ce cas,
ça dirait pourquoi ça coince ???

Répertoire vide, on te l'a déjà dit...

Le chemin, parfois c'est un petit rien en trop qui fait que le chemin
est mauvais, as-tu bien vérifié, comparé le chemin,
mettant par exemple dans
un textBox, ton chemin avec app.path, et dans la ligne suivante ton chemin
de code ???

Je ne suis pas certain (mais je me trompe peut être), que les
"*.*" soit
acceptés pour les répertoires....

Tu pourrais à la place faire un dire, résultat en liste, pour
écrire le
nom exact des répertoires:

Dim ligne As String
List1.Clear
ligne = Dir("a:")
Do While ligne <> ""
DoEvents
ligne = Dir()
List1.AddItem ligne
Loop

Les attributs de tes répertoires ?

GetAttr("nom_fic.ext")
--
DIRECTORY (16)
Si attributs = 16 à 23 et 48 à 55

ECRITURE
SetAttr "cheminnom_fic.ext", vbHidden
Fichier fermé : 0, 1, 2, 4, 32

Et puis sinon, tu as de mémoire, "DelTree" me semble-t-il, qui
fait ce
travail... On peut depuis le code, créer un bat, puis l'exécuter,
puis le
supprimer, ainsi ça peut aussi être une solution, voir le forum
"MsDos"...

Fin du communiqué :o)

--
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"wess3310" a écrit dans le
message de news:

| Bonjour,
| voila mon code
| ''''''''''''''''''''''
| On Error Resume Next
| CheminRep = DossierSpecial(36)
| If Right(CheminRep, 1) <> "" Then CheminRep = CheminRep +
""
| CheminRep = CheminRep + "*.*"
|
| Kill CheminRep
| List1.Refresh
| List1.Clear
| On Error GoTo 0
| ''''''''''''''
|
| ca me permet de supprimer les fichiers *.*
| je veux supprimer aussi les repertoires mais j'arrive
paaaaas!!!!!!!!!!!!!!
| de l'aiiiiiiiiiiiiiiiiiiiiiiiiiide
| svp mercii

le code que j'ai donné me permet de supprimer les fichiers seulement
*rien n'est signalé a propos de "repertoire vide"
*c'est fait deja tous les chemins sont affichés dans une zone texte

<<<Tu pourrais à la place faire un dire, résultat en liste, pour
écrire le
nom exact des répertoires:>>>

* le probleme que j'ai plusieurs repertoire sous des chemins defferents en + des fois il ya des nouveaux repertoire qui sortent par exemple le repertoire des fichiers temporaires internet j'arrive a supprimer tous ces fichiers meme les fichiers qui sont sous les sous repertoire mais les sous repertoire non!!!! vraiment c'est un peut bizar

merci

Vous avez filtré cet utilisateur ! Consultez son message

LE TROLL a écrit le 28/08/2008 à 10h39 :

Bonjour,

L'erreur retournée "on error goto", elle dit quoi en
numéro et texte,
car je ne pense pas qu'il faille inhiber les erreurs, la preuve dans ce cas,
ça dirait pourquoi ça coince ???

Répertoire vide, on te l'a déjà dit...

Le chemin, parfois c'est un petit rien en trop qui fait que le chemin
est mauvais, as-tu bien vérifié, comparé le chemin,
mettant par exemple dans
un textBox, ton chemin avec app.path, et dans la ligne suivante ton chemin
de code ???

Je ne suis pas certain (mais je me trompe peut être), que les
"*.*" soit
acceptés pour les répertoires....

Tu pourrais à la place faire un dire, résultat en liste, pour
écrire le
nom exact des répertoires:

Dim ligne As String
List1.Clear
ligne = Dir("a:")
Do While ligne <> ""
DoEvents
ligne = Dir()
List1.AddItem ligne
Loop

Les attributs de tes répertoires ?

GetAttr("nom_fic.ext")
--
DIRECTORY (16)
Si attributs = 16 à 23 et 48 à 55

ECRITURE
SetAttr "cheminnom_fic.ext", vbHidden
Fichier fermé : 0, 1, 2, 4, 32

Et puis sinon, tu as de mémoire, "DelTree" me semble-t-il, qui
fait ce
travail... On peut depuis le code, créer un bat, puis l'exécuter,
puis le
supprimer, ainsi ça peut aussi être une solution, voir le forum
"MsDos"...

Fin du communiqué :o)

--
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"wess3310" a écrit dans le
message de news:

| Bonjour,
| voila mon code
| ''''''''''''''''''''''
| On Error Resume Next
| CheminRep = DossierSpecial(36)
| If Right(CheminRep, 1) <> "" Then CheminRep = CheminRep +
""
| CheminRep = CheminRep + "*.*"
|
| Kill CheminRep
| List1.Refresh
| List1.Clear
| On Error GoTo 0
| ''''''''''''''
|
| ca me permet de supprimer les fichiers *.*
| je veux supprimer aussi les repertoires mais j'arrive
paaaaas!!!!!!!!!!!!!!
| de l'aiiiiiiiiiiiiiiiiiiiiiiiiiide
| svp mercii

le code que j'ai donné me permet de supprimer les fichiers seulement
*rien n'est signalé a propos de "repertoire vide"
*c'est fait deja tous les chemins sont affichés dans une zone texte

<<<Tu pourrais à la place faire un dire, résultat en liste, pour
écrire le
nom exact des répertoires:>>>

* le probleme que j'ai plusieurs repertoire sous des chemins defferents en + des fois il ya des nouveaux repertoire qui sortent par exemple le repertoire des fichiers temporaires internet j'arrive a supprimer tous ces fichiers meme les fichiers qui sont sous les sous repertoire mais les sous repertoire non!!!! vraiment c'est un peut bizar

merci

LE TROLL

28/08/2008 à 13:23

J'ai déjà eu des problèmes de ce genre, je ne me souviens plus de quoi
exactement, bon, ben si aucune solution n'arrive, ce qui semble être le cas,
faut y aller à la hache, tu fais en code un code pour bat qui supprime tout
par DelTree, puis tu fais un fichier bat depuis le code, tu y balance son
code (au fichier), puis tu exécutes la Bat, puis tu vérifies, puis tu
supprimes le bat, enfin, moi je fais comme ça, quand je n'y arrive pas
autrement !!!

--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"wess3310" a écrit dans le message de news:

| LE TROLL a écrit le 28/08/2008 à 10h39 :
| > Bonjour,
| >
| > L'erreur retournée "on error goto", elle dit quoi en
| > numéro et texte,
| > car je ne pense pas qu'il faille inhiber les erreurs, la preuve dans ce
cas,
| > ça dirait pourquoi ça coince ???
| >
| > Répertoire vide, on te l'a déjà dit...
| >
| > Le chemin, parfois c'est un petit rien en trop qui fait que le chemin
| > est mauvais, as-tu bien vérifié, comparé le chemin,
| > mettant par exemple dans
| > un textBox, ton chemin avec app.path, et dans la ligne suivante ton
chemin
| > de code ???
| >
| > Je ne suis pas certain (mais je me trompe peut être), que les
| > "*.*" soit
| > acceptés pour les répertoires....
| >
| > Tu pourrais à la place faire un dire, résultat en liste, pour
| > écrire le
| > nom exact des répertoires:
| >
| > Dim ligne As String
| > List1.Clear
| > ligne = Dir("a:")
| > Do While ligne <> ""
| > DoEvents
| > ligne = Dir()
| > List1.AddItem ligne
| > Loop
| >
| > Les attributs de tes répertoires ?
| >
| > GetAttr("nom_fic.ext")
| > --
| > DIRECTORY (16)
| > Si attributs = 16 à 23 et 48 à 55
| >
| > ECRITURE
| > SetAttr "cheminnom_fic.ext", vbHidden
| > Fichier fermé : 0, 1, 2, 4, 32
| >
| >
| > Et puis sinon, tu as de mémoire, "DelTree" me semble-t-il, qui
| > fait ce
| > travail... On peut depuis le code, créer un bat, puis l'exécuter,
| > puis le
| > supprimer, ainsi ça peut aussi être une solution, voir le forum
| > "MsDos"...
| >
| > Fin du communiqué :o)
| >
| > --
| > Romans, logiciels, email, site personnel
| > http://irolog.free.fr/joe.htm
| >
| ------------------------------------------------------------------------------------
| > "wess3310" a écrit dans le
| > message de news:
| >
| > | Bonjour,
| > | voila mon code
| > | ''''''''''''''''''''''
| > | On Error Resume Next
| > | CheminRep = DossierSpecial(36)
| > | If Right(CheminRep, 1) <> "" Then CheminRep = CheminRep +
| > ""
| > | CheminRep = CheminRep + "*.*"
| > |
| > | Kill CheminRep
| > | List1.Refresh
| > | List1.Clear
| > | On Error GoTo 0
| > | ''''''''''''''
| > |
| > | ca me permet de supprimer les fichiers *.*
| > | je veux supprimer aussi les repertoires mais j'arrive
| > paaaaas!!!!!!!!!!!!!!
| > | de l'aiiiiiiiiiiiiiiiiiiiiiiiiiide
| > | svp mercii
| le code que j'ai donné me permet de supprimer les fichiers seulement
| *rien n'est signalé a propos de "repertoire vide"
| *c'est fait deja tous les chemins sont affichés dans une zone texte
|
| <<<Tu pourrais à la place faire un dire, résultat en liste, pour
| écrire le
| nom exact des répertoires:>>>
|
| * le probleme que j'ai plusieurs repertoire sous des chemins defferents en
+
| des fois il ya des nouveaux repertoire qui sortent par exemple le
repertoire des
| fichiers temporaires internet j'arrive a supprimer tous ces fichiers meme
les
| fichiers qui sont sous les sous repertoire mais les sous repertoire
non!!!!
| vraiment c'est un peut bizar
|
| merci

J'ai déjà eu des problèmes de ce genre, je ne me souviens plus de quoi
exactement, bon, ben si aucune solution n'arrive, ce qui semble être le cas,
faut y aller à la hache, tu fais en code un code pour bat qui supprime tout
par DelTree, puis tu fais un fichier bat depuis le code, tu y balance son
code (au fichier), puis tu exécutes la Bat, puis tu vérifies, puis tu
supprimes le bat, enfin, moi je fais comme ça, quand je n'y arrive pas
autrement !!!

--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"wess3310" <wess3310@domain-xyz.in> a écrit dans le message de news:
Ou6dnbBOO4cY6SvV4p2dnAA@giganews.com...
| LE TROLL a écrit le 28/08/2008 à 10h39 :
| > Bonjour,
| >
| > L'erreur retournée "on error goto", elle dit quoi en
| > numéro et texte,
| > car je ne pense pas qu'il faille inhiber les erreurs, la preuve dans ce
cas,
| > ça dirait pourquoi ça coince ???
| >
| > Répertoire vide, on te l'a déjà dit...
| >
| > Le chemin, parfois c'est un petit rien en trop qui fait que le chemin
| > est mauvais, as-tu bien vérifié, comparé le chemin,
| > mettant par exemple dans
| > un textBox, ton chemin avec app.path, et dans la ligne suivante ton
chemin
| > de code ???
| >
| > Je ne suis pas certain (mais je me trompe peut être), que les
| > "*.*" soit
| > acceptés pour les répertoires....
| >
| > Tu pourrais à la place faire un dire, résultat en liste, pour
| > écrire le
| > nom exact des répertoires:
| >
| > Dim ligne As String
| > List1.Clear
| > ligne = Dir("a:")
| > Do While ligne <> ""
| > DoEvents
| > ligne = Dir()
| > List1.AddItem ligne
| > Loop
| >
| > Les attributs de tes répertoires ?
| >
| > GetAttr("nom_fic.ext")
| > --
| > DIRECTORY (16)
| > Si attributs = 16 à 23 et 48 à 55
| >
| > ECRITURE
| > SetAttr "cheminnom_fic.ext", vbHidden
| > Fichier fermé : 0, 1, 2, 4, 32
| >
| >
| > Et puis sinon, tu as de mémoire, "DelTree" me semble-t-il, qui
| > fait ce
| > travail... On peut depuis le code, créer un bat, puis l'exécuter,
| > puis le
| > supprimer, ainsi ça peut aussi être une solution, voir le forum
| > "MsDos"...
| >
| > Fin du communiqué :o)
| >
| > --
| > Romans, logiciels, email, site personnel
| > http://irolog.free.fr/joe.htm
| >
| ------------------------------------------------------------------------------------
| > "wess3310" a écrit dans le
| > message de news:
| >
| > | Bonjour,
| > | voila mon code
| > | ''''''''''''''''''''''
| > | On Error Resume Next
| > | CheminRep = DossierSpecial(36)
| > | If Right(CheminRep, 1) <> "" Then CheminRep = CheminRep +
| > ""
| > | CheminRep = CheminRep + "*.*"
| > |
| > | Kill CheminRep
| > | List1.Refresh
| > | List1.Clear
| > | On Error GoTo 0
| > | ''''''''''''''
| > |
| > | ca me permet de supprimer les fichiers *.*
| > | je veux supprimer aussi les repertoires mais j'arrive
| > paaaaas!!!!!!!!!!!!!!
| > | de l'aiiiiiiiiiiiiiiiiiiiiiiiiiide
| > | svp mercii
| le code que j'ai donné me permet de supprimer les fichiers seulement
| *rien n'est signalé a propos de "repertoire vide"
| *c'est fait deja tous les chemins sont affichés dans une zone texte
|
| <<<Tu pourrais à la place faire un dire, résultat en liste, pour
| écrire le
| nom exact des répertoires:>>>
|
| * le probleme que j'ai plusieurs repertoire sous des chemins defferents en
+
| des fois il ya des nouveaux repertoire qui sortent par exemple le
repertoire des
| fichiers temporaires internet j'arrive a supprimer tous ces fichiers meme
les
| fichiers qui sont sous les sous repertoire mais les sous repertoire
non!!!!
| vraiment c'est un peut bizar
|
| merci

Vous avez filtré cet utilisateur ! Consultez son message

J'ai déjà eu des problèmes de ce genre, je ne me souviens plus de quoi
exactement, bon, ben si aucune solution n'arrive, ce qui semble être le cas,
faut y aller à la hache, tu fais en code un code pour bat qui supprime tout
par DelTree, puis tu fais un fichier bat depuis le code, tu y balance son
code (au fichier), puis tu exécutes la Bat, puis tu vérifies, puis tu
supprimes le bat, enfin, moi je fais comme ça, quand je n'y arrive pas
autrement !!!

--
Merci beaucoup, au revoir et à bientôt :o)
------
Romans, logiciels, email, site personnel
http://irolog.free.fr/joe.htm
------------------------------------------------------------------------------------
"wess3310" a écrit dans le message de news:

| LE TROLL a écrit le 28/08/2008 à 10h39 :
| > Bonjour,
| >
| > L'erreur retournée "on error goto", elle dit quoi en
| > numéro et texte,
| > car je ne pense pas qu'il faille inhiber les erreurs, la preuve dans ce
cas,
| > ça dirait pourquoi ça coince ???
| >
| > Répertoire vide, on te l'a déjà dit...
| >
| > Le chemin, parfois c'est un petit rien en trop qui fait que le chemin
| > est mauvais, as-tu bien vérifié, comparé le chemin,
| > mettant par exemple dans
| > un textBox, ton chemin avec app.path, et dans la ligne suivante ton
chemin
| > de code ???
| >
| > Je ne suis pas certain (mais je me trompe peut être), que les
| > "*.*" soit
| > acceptés pour les répertoires....
| >
| > Tu pourrais à la place faire un dire, résultat en liste, pour
| > écrire le
| > nom exact des répertoires:
| >
| > Dim ligne As String
| > List1.Clear
| > ligne = Dir("a:")
| > Do While ligne <> ""
| > DoEvents
| > ligne = Dir()
| > List1.AddItem ligne
| > Loop
| >
| > Les attributs de tes répertoires ?
| >
| > GetAttr("nom_fic.ext")
| > --
| > DIRECTORY (16)
| > Si attributs = 16 à 23 et 48 à 55
| >
| > ECRITURE
| > SetAttr "cheminnom_fic.ext", vbHidden
| > Fichier fermé : 0, 1, 2, 4, 32
| >
| >
| > Et puis sinon, tu as de mémoire, "DelTree" me semble-t-il, qui
| > fait ce
| > travail... On peut depuis le code, créer un bat, puis l'exécuter,
| > puis le
| > supprimer, ainsi ça peut aussi être une solution, voir le forum
| > "MsDos"...
| >
| > Fin du communiqué :o)
| >
| > --
| > Romans, logiciels, email, site personnel
| > http://irolog.free.fr/joe.htm
| >
| ------------------------------------------------------------------------------------
| > "wess3310" a écrit dans le
| > message de news:
| >
| > | Bonjour,
| > | voila mon code
| > | ''''''''''''''''''''''
| > | On Error Resume Next
| > | CheminRep = DossierSpecial(36)
| > | If Right(CheminRep, 1) <> "" Then CheminRep = CheminRep +
| > ""
| > | CheminRep = CheminRep + "*.*"
| > |
| > | Kill CheminRep
| > | List1.Refresh
| > | List1.Clear
| > | On Error GoTo 0
| > | ''''''''''''''
| > |
| > | ca me permet de supprimer les fichiers *.*
| > | je veux supprimer aussi les repertoires mais j'arrive
| > paaaaas!!!!!!!!!!!!!!
| > | de l'aiiiiiiiiiiiiiiiiiiiiiiiiiide
| > | svp mercii
| le code que j'ai donné me permet de supprimer les fichiers seulement
| *rien n'est signalé a propos de "repertoire vide"
| *c'est fait deja tous les chemins sont affichés dans une zone texte
|
| <<<Tu pourrais à la place faire un dire, résultat en liste, pour
| écrire le
| nom exact des répertoires:>>>
|
| * le probleme que j'ai plusieurs repertoire sous des chemins defferents en
+
| des fois il ya des nouveaux repertoire qui sortent par exemple le
repertoire des
| fichiers temporaires internet j'arrive a supprimer tous ces fichiers meme
les
| fichiers qui sont sous les sous repertoire mais les sous repertoire
non!!!!
| vraiment c'est un peut bizar
|
| merci

supprimer un repertoire

6 réponses

Veuillez sélectionner un problème