Discussion :

[L'AMI Yves]

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 VBS :

Sélectionner tout - Visualiser dans une fenêtre à part

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

"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.

[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.

[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.

[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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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...

[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 ?

[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.

[ProgElecT]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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