Supression de dossierRésolu

Question

C'est peut etre moi mais quand j'utilise la fonction RmDir ou la fonction Deletefolder (j'ai bien utiliser le filesystemobject), il veut pas me supprimer le dossier si il y a des sous-dossier dedans.

Si c'est pas moi qui ait du mal, existe il une fonction qui supprime le dossier meme si il contient des sous-dossier?

cs_CanisLupus · Accepted Answer

Salut, il existe une fonction toute faite en API, assez puissante mais &#224; manipuler avec prudence  :

'Structure de file operation
Private Type SHFILEOPSTRUCT
  hWnd As Long
  wFunc As Long
  pFrom As String
  pTo As String
  fFlags As Integer
  fAborted As Boolean
  hNameMaps As Long
  sProgress As String
End Type


' Constantes utilis&#233;es
Private Const FO_DELETE = &H3
Private Const FOF_NOCONFIRMATION As Long = &H10
Private Const FOF_ALLOWUNDO As Long = &H40


' API
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long


Public Sub DestructionDossier(MonDossier as string)
  Dim SHDirOp As SHFILEOPSTRUCT
  With SHDirOp
    .wFunc = FO_DELETE 'op&#233;ration &#224; r&#233;aliser : effacer
    .pFrom = MonDossier 'chemin du dossier &#224; supprimer
    '.fFlags = FOF_NOCONFIRMATION 'pour zapper les demandes de confirmation et pas coller dans la corbeille
    .fFlags = FOF_NOCONFIRMATION Or FOF_ALLOWUNDO 'pour zapper les demandes de confirmation et coller dans la corbeille
  End With
  'Effacement du dossier
  SHFileOperation SHDirOp
End Sub

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

PCPT · Answer

salut,

il faut cr&#233;er toi-m&#234;me la fonction.

tape "r&#233;cursif" dans le moteur de recherche

@+

PCPT   [AFCK]

jpleroisse · Answer

Bonjour,

Ce code supprime le r&#233;pertoire Mon R&#233;pertoire et tout ce qu'il contient (r&#233;pertoire, fichier), chez moi cel&#224; fonctionne.



Private Sub Command1_Click()

Dim fso As Object

    Set fso = CreateObject("Scripting.FileSystemObject")

fso.DeleteFolder "c:\Mon R&#233;pertoire", True

End Sub



jpleroisse



Si une r&#233;ponse vous convient, cliquez R&#233;ponse Accept&#233;e.

xcxl · Answer

merci

Supression de dossier

4 réponses

Discussions similaires