Impossible de suprimer un repertoire!!! Au secours!!!

Question

Salut,
J'ai un gros probleme incroyable
Je veux suprimer un répertoire et ça ne marche pas!
Plus exactement ça ne marche pas lorsque j'enchaine la création du répertoire et sa supression.
Il me suprime juste les fichiers à l'interieur et il me met des messages d'erreur du style:

"erreur '800a004c' 
Chemin d'accès introuvable" 

      ou

"accès refusé"

      ou

"erreur '800a0046' 
Permission refusée"

alors que tout semble correct

Voici ma fonction:

Public Function SupprimerTout()
  Dim Supr As New FileSystemObject
  Dim NomRep
  If NumRep <> "" Then
     NomRep = "C:\Temp\essai" & NumRep
     SetAttr NomRep, vbNormal
'    ChDir ("C:\Temp\essai" & NumRep)
     Supr.DeleteFolder NomRep, True
'    Kill "*.*"
'    RmDir NomRep
  End If
End Function

J'ai essayé avec RmDir, Kill, DeleteFolder mais rien ne marche

Mes répertoires sont pourtant bien créés

Alors si quelqu'un a une idée, je suis preneur

Merci d'avance

tophe · Answer

essaie un peu d'utiliser la commande DELTREE

akiuni · Answer

j'ai l'impression que tu t'es planté... remplaces If NumRep <> "" Then par If NomRep <> "" Then ;-)

procraker · Answer

J'ai eu le meme problem, la soluce c'est de chang&#233; de directory :

NomRep = "C:\Temp\essai" & NumRep
SetAttr NomRep, vbNormal
'ChDir ("C:\Temp\essai")
Supr.DeleteFolder  "C:\Temp\essai" & NomRep, True

Ne met pas de parenth&#232;se sinon ca ne marche pas, c'est une fonction mais une proc&#233;dure

voila
Procraker

Impossible de suprimer un repertoire!!! Au secours!!!

3 réponses

Discussions similaires