Commande DEL dans la fonction Shell

Salut toutes et à tous,

J'ai écris le code suivant:

Code:

---

1 2 3

If Shell("del C:\Test\*.*") Then End If

---

Lors de l'exécution, le programme m'affiche un message d'erreur m'indiquant que le fichier est introuvable !

De quoi est dû ce problème et comment y remédier ?

et bien del c'est une commande dos .. pas un exécutable...
essai :

Code:

---

1 2	Shell("cmd /C del c:\test /Q")

---

j'ai rajouté /Q pour éviter ... le message "êtes-vous sur o/n ?"



enfin tu peu aussi éviter de faire appel au shell et utiliser :

Code:

---

1 2	Kill "c:\test\*.*"

---

Merci infiniment, ça marche avec la première commande :D
Mais, avec Kill, ça ne marche pas, toujours le même message d'erreur qui s'affiche !!!

Citation:

---

Envoyé par Safaritn

Merci infiniment, ça marche avec la première commande :D
Mais, avec Kill, ça ne marche pas, toujours le même message d'erreur qui s'affiche !!!

---

ben kill renvoi une erreur s'il n'y as aucun fichier à effacer ... donc si tu les as déjà effacés avec del.... :aie:

Ah ok, donc la commande Kill exige la présence au moins un fichier.
Merci beaucoup pour ton aide:king:

oui ... utilise la gestion d'erreur :

Code:

---

1 2 3 4 5

sub EffaceTest On Error resume Next Kill "c:\test\*.*" end sub

---

Ca marche superbement bien :yaisse2:
Merci infiniment :D

bONJOUR?
On Error Resume Next est peut-être à éviter, non ?
L'utilisation de la fonction Dir te permet d'éviter celà ...
Tu vérifies d'abord et ne tues qu'après...;)

Vous avez tout à fait raison. En effet, On Error Resume Next est à éviter. DOnc, j'utlise la fonctoin Dir pour voir s'il y a des fichiers pour les éliminer après.

Merci pour votre remarque :mouarf:

Ouais ?

Utilise-la surtout avec l'attribut VbDirectory, pour voir si le dossier existe, au moins ....:lol:

Code:

---

1 2 3

Private Sub Command1_Click() If Dir("d:\toto", vbDirectory) <> "" And Dir("d:\toto\*.*") <> "" Then Kill ("d:\toto\*.*") End Sub

---

mets bien sur, pour faire plus court, "d:\toto" dans une variable.;)

Citation:

---

Envoyé par ucfoutu

Ouais ?

Utilise-la surtout avec l'attribut VbDirectory, pour voir si le dossier existe, au moins ....:lol:

Code:

---

1 2 3

Private Sub Command1_Click() If Dir("d:\toto", vbDirectory) <> "" And Dir("d:\toto\*.*") <> "" Then Kill ("d:\toto\*.*") End Sub

---

mets bien sur, pour faire plus court, "d:\toto" dans une variable.;)

---

alors pourquoi t'arrête tu au test du répertoire ... ? et si l'unité d:\ n'existe pas ...?


le test du répertoire ne sert à rien ... si le répertoire n'existe pas .. et bien comment veut-tu qu'il y ait quelque chose dessous ! :mouarf:

par contre que ce passe-t'il si par exemple on trouve fichier en lecture seule sous ton répertoire...:roll:

Citation:

---

Envoyé par bbil

alors pourquoi t'arrête tu au test du répertoire ... ? et si l'unité d:\ n'existe pas ...?


le test du répertoire ne sert à rien ... si le répertoire n'existe pas .. et bien comment veut-tu qu'il y ait quelque chose dessous ! :mouarf:

---

Bonsoiir Bbil ...

Oui ?

C'est vbrai, mais c'est la meilleure façon de procéder si, après son intruction Kill pour vider, il lui prenait l'envie de remplir par d'autres fichiers

un bon double-test lui permettraut (il faut simplement qu'il décompose l'instruction) :
1) de vider
2) de ne créer un répertoire qu'en parfaite connaissance de cause.

Oui bien sûr, merci pour votre conseil.

Citation:

---

Envoyé par ucfoutu

Bonsoiir Bbil ...

Oui ?

C'est vbrai, mais c'est la meilleure façon de procéder si, après son intruction Kill pour vider, il lui prenait l'envie de remplir par d'autres fichiers

un bon double-test lui permettraut (il faut simplement qu'il décompose l'instruction) :
1) de vider
2) de ne créer un répertoire qu'en parfaite connaissance de cause.

---

:koi: eu ... tu change de sujet la .. ?