FolderExists, oui, DeleteFolder, non !

Version imprimable

20/05/2022, 17h09
L'AMI Yves

FolderExists, oui, DeleteFolder, non !
Bonjour à tous.

J'espère que vous n'aurez pas les mêmes peaux de saucisson devant les yeux que moi pour expliquer ce mystère :
Code:

1 2 3 4 5 6 if fso.FolderExists(Rep2) then msgbox Rep2 + " existe !" fso.DeleteFolder Rep2 else msgbox Rep2 & " n'existe pas" end if
me donne le message

Citation:

"Chemin d'accès introuvable" Code 800A004C

sur la ligne fso.DeleteFolder Rep2 après m'avoir bien signalé que "Chemin existe !"

Je précise que ce chemin est un accès réseau, mais je ne vois pas ce que ça a à voir...

Merci d'avance.
20/05/2022, 17h15
ProgElecT

Salut

Si mes souvenirs sont bons, il faut vider le répertoire de tous ses répertoires et fichiers avant que de pouvoir supprimer un répertoire.

edit:
il faut aussi peut être forcer si il y a des fichiers en lecture seule doivent être supprimés, paramètres suivant le nom du répertoire à mettre à true.
20/05/2022, 17h29
L'AMI Yves

Encore et toujours ProgElecT ! Quand je pense que, selon toute vraisemblance, on e se rencontrera jamais...

D'abord, merci.

Mais enfin, ils sont complètement C..., chez µ$. Je veux bien ne pas répondre à toutes les conditions, mais alors, que le message d'erreur me dise à quelles conditions je ne réponds pas, pas justement une condition à laquelle je réponds ! Bon sang, ce genre de crétinerie chez les ingénieurs, ça me rend dingue !

Bon, mon coup de gueule est passé, je vais pouvoir aller voir ça.

Encore merci.
20/05/2022, 17h38
L'AMI Yves
Ben en fait, la documentation n'est pas d'accord. D'abord, j'ai essayé d'ajouter , true à la fin de mon instruction, mais ça ne change rien.

Ensuite, je suis revenu à la doc, et j'ai lu
Code:

1 2 3 4 5 6 7 8 9 Référence Objets Objet FileSystemObject Méthodes DeleteFolder, méthode Article 11/04/2022 2 minutes de lecture Supprime un dossier spécifié et son contenu.
Je ne sais plus à quel saint me vouer...
20/05/2022, 18h20
ProgElecT

FSO.DeleteFolder Rep2, True ne fonctionne pas, il provoque une erreur ?
Il y a peut être un problème de droit sur le dossier ou un des fichiers contenu ?
20/05/2022, 21h42
L'AMI Yves

Comme je le disais, c'est un lien réseau (un sous-répertoire sur un disque du serveur).

Quand je l'ouvre dans mon explorateur, je clique du bouton droit et je sélectionne "Supprimer", il le fait sans rien dire.

Je ne sais toujours pas à quel sein me vouer...

AMIcalement.

Peut être en passant par une commande DOS dans ton VBScript

Code:

1
2
3
4
5
6
7
8
  if fso.FolderExists(Rep2) then
    msgbox Rep2 + " existe !" 
    Set OShell = Wscript.CreateObject("WScript.Shell")
    OShell.run "rmdir /s /q " & rep2 ' attention il y a bien un espace après le q
  else 
    Set OShell = Nothing
    msgbox Rep2 & " n'existe pas" 
  end if