Supprimer un dossier "vide ou non vide"

Supprimer un dossier "vide ou non vide" - VB/VBA/VBS - Programmation

Marsh Posté le 02-01-2005 à 16:56:41    

Bonjour et bonne année a tous !
 
Voilà mon problème:
Je voudrais supprimer un dossier (a partir d'un click dans une liste Box listant tous les dossiers contenu dans un autre), copier au préalable son contenu dans un dossier poubelle, supprimer le contenu, puis raffraichir ma listeBox.
J'ai deja crée un code, la partie raffraichissement, copie et suppresion des fichiers fonctionne, mais en ce qui concerne la partie suppression du dossier j'obtient une erreur sur le rmdir (erreur de chemin) dans le cas ou le dossier n'était pas vide.
 
Bon biensur je sais que le rmdir ne fonctionne pas dans le cas d'un dossier qui n'est pas vide, mais ici je prend d'abord soin de vider le dossier, je ne comprend donc pas l'erreur.
 
Précision : Quand le dossier n'est pas vide et que j'obtient l'erreur, la copie et suppression des dossiers fonctionne tout de même, le code beug uniquement a l'arrivée du rmdir. Quand il est vide tout fonctionne nickel
 
Voici mon code :

Code :
  1. Private Sub cmd_sup_theme_Click()
  3.     Dim i As Integer, chemin_img As String
  4.    
  5.     poubelle = App.Path & "\multimedia\poubelle\" & patient & "\"
  6.     theme = liste_themes.Text
  7.    
  8.     If theme = "" Then
  9.         MsgBox "Vous n'avez pas choisi de thème", vbExclamation
  10.     Else:
  11.         'Chemin des images
  12.         File1.Path = App.Path & "\multimedia\images\" & patient & "\" & theme
  13.        
  14.         For i = 0 To File1.ListCount - 1
  15.             nom_photo = File1.List(i)
  16.             chemin_img = App.Path & "\multimedia\images\" & patient & "\" & theme & "\" & nom_photo
  17.             FileCopy chemin_img, poubelle & nom_photo
  18.             Kill chemin_img
  19.         Next i
  20.              
  21.         RmDir App.Path & "\multimedia\images\" & patient & "\" & theme
  22.        
  23.         chemin = App.Path & "\multimedia\images\" & patient & "\"
  24.         recherche = Dir$(chemin & "*.*", vbDirectory)
  25.         liste_themes.Clear
  26.        
  27.         Do While recherche <> ""
  28.            
  29.             If (recherche <> "." And recherche <> ".." ) Then
  30.                 If (GetAttr(chemin & recherche) And vbDirectory) Then
  31.                     nom_dossier = recherche
  32.                     liste_themes.AddItem nom_dossier
  33.                 End If
  34.             End If
  35.              
  36.             recherche = Dir$()
  37.             DoEvents
  38.            
  39.         Loop
  40.        
  41.     End If
  42.    
  43. End Sub

Reply

Marsh Posté le 02-01-2005 à 16:56:41   

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed