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 :
- Private Sub cmd_sup_theme_Click()
- Dim i As Integer, chemin_img As String
-
- poubelle = App.Path & "\multimedia\poubelle\" & patient & "\"
- theme = liste_themes.Text
-
- If theme = "" Then
- MsgBox "Vous n'avez pas choisi de thème", vbExclamation
- Else:
- 'Chemin des images
- File1.Path = App.Path & "\multimedia\images\" & patient & "\" & theme
-
- For i = 0 To File1.ListCount - 1
- nom_photo = File1.List(i)
- chemin_img = App.Path & "\multimedia\images\" & patient & "\" & theme & "\" & nom_photo
- FileCopy chemin_img, poubelle & nom_photo
- Kill chemin_img
- Next i
-
- RmDir App.Path & "\multimedia\images\" & patient & "\" & theme
-
- chemin = App.Path & "\multimedia\images\" & patient & "\"
- recherche = Dir$(chemin & "*.*", vbDirectory)
- liste_themes.Clear
-
- Do While recherche <> ""
-
- If (recherche <> "." And recherche <> ".." ) Then
- If (GetAttr(chemin & recherche) And vbDirectory) Then
- nom_dossier = recherche
- liste_themes.AddItem nom_dossier
- End If
- End If
-
- recherche = Dir$()
- DoEvents
-
- Loop
-
- End If
-
- End Sub
|
