creation/supression d'un dossier

salut!!
je veux taper un code qui lorsque je demmare l'aplication  il verifie si un dossier ( que je ditermine le chemin) existe
si il exist il le suprime pius il le recrie vide !!!
si il n'existe pas il cris le dossier normalement.

voici ma tentative

Private Sub Form_Load()
On Error GoTo skip:
MkDir "C:\WINDOWS\Temp\temp"
skip:
RmDir "C:\WINDOWS\Temp\orochy"
MkDir "C:\WINDOWS\Temp\orochy"
end sub


le problem dans ce code que si le dossier contien des fichiers  il m'affiche une error dans la line
RmDir "C:\WINDOWS\Temp\temp"

heeeelp!!!!!!

salut,

en effet il faut vider le dossier pour pouvoir le supprimer


ou par API :

---

'    SUPPRESSION D'UN DOSSIER ET DE SON CONTENU
'    http://www.codyx.org/snippet_suppression-dossier-son-contenu_378.aspx#1879
'    Posté par [ PCPT ] le 11/06/2008

---

Private Const  NOERROR  As Long  =  0&
Private Const  FO_DELETE  As Long  =  &H3
Private Const  FOF_ALLOWUNDO  As Long  =  &H40
Private Const  FOF_CONFIRMMOUSE  As Long  =  &H2
Private Const  FOF_FILESONLY  As Long  =  &H80 ' on *.*, do only files
Private Const  FOF_MULTIDESTFILES  As Long  = &H1
Private Const  FOF_NOCONFIRMATION  As Long  = &H10 ' Don't prompt the user.
Private Const  FOF_NOCONFIRMMKDIR  As Long  = &H200 ' don't confirm making any needed dirs
Private Const  FOF_RENAMEONCOLLISION  As Long = &H8
Private Const  FOF_SILENT  As Long  =  &H4    ' don't create progress/report
Private Const  FOF_SIMPLEPROGRESS  As Long  = &H100 ' means don't show names of files
Private Const  FOF_WANTMAPPINGHANDLE  As Long = &H20 ' Fill in SHFILEOPSTRUCT.hNameMappings
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
Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As Any) As Long
Public Function DeleteContentDirectory(ByVal sDirSrc As String, Optional ByVal lHandle As Long = 0, Optional ByVal bDeleteContainerFolder As Boolean = True, Optional ByVal bIncludeSubFolders As Boolean = True, Optional ByVal bShowWindowsProgressBox As Boolean = False, Optional ByVal bSendToRecycleBin As Boolean = False, Optional ByVal bShowWindowsAskActionBox As Boolean = False) As Boolean
'sDirSrc                    -> répertoire à supprimer
'lHandle                    -> handle appelant (peut rester à 0)
'bDeleteContainerFolder     -> supprimer le contenu ou également le dossier
'bIncludeSubFolders         -> suppression récursive? ne peut être à faux si on doit supprimer le dossier parent
'bShowWindowsProgressBox    -> affiche la progressbox windows
'bSendToRecycleBin          -> suppression vers la corbeille, sinon définitive
'bShowWindowsAskActionBox   -> boite de dialogue "confirmation de suppression" (ou d'envoi vers corbeille). NB : si FALSE, il n'y a pas non plus de ProgressBox
    On Error GoTo Err_Handler
    Dim tFOS As SHFILEOPSTRUCT
'   on ne peut pas supprimer le dossier parent si on ne supprime pas TOUT le contenu
    If (bDeleteContainerFolder = True) And (bIncludeSubFolders = False) Then Exit Function
    
'   formate le chemin
    If bIncludeSubFolders And bDeleteContainerFolder Then
        If RightB$(sDirSrc, 2) = "\" Then sDirSrc = LeftB$(sDirSrc, LenB(sDirSrc) - 2)
    Else
        If Not (RightB$(sDirSrc, 2) = "\") Then sDirSrc = sDirSrc & "\"
        sDirSrc = sDirSrc & "*.*"
    End If
'   structure
    With tFOS
        .hWnd = lHandle
        .wFunc = FO_DELETE
        .pFrom = sDirSrc & vbNullChar
        .pTo = vbNullChar
        .fFlags = CInt(SetFOSFlag(bIncludeSubFolders, bShowWindowsProgressBox, False, bShowWindowsAskActionBox, bSendToRecycleBin, False))
        .fAborted = False
        .hNameMaps = 0&
        .sProgress = vbNullChar
    End With
        
'   API
    DeleteContentDirectory = (SHFileOperation(tFOS) = NOERROR)
    
Err_Handler:
'   en IDE on peut avoir un message "Mémoire insuffisante" en fin d'action malgré la réussite
    If Err.Number = 7 Then DeleteContentDirectory = True
End Function

Private Function SetFOSFlag(Optional ByVal bIncludeSubFolders As Boolean = True, Optional ByVal bShowWindowsProgressBox As Boolean = False, Optional ByVal bRenameIfExists As Boolean = False, Optional ByVal bShowWindowsAskActionBox As Boolean = False, Optional ByVal bAllowUndo As Boolean = False, Optional ByVal bMulti As Boolean = True) As Long
    SetFOSFlag = FOF_WANTMAPPINGHANDLE Or FOF_NOCONFIRMMKDIR
    If Not bIncludeSubFolders Then SetFOSFlag = SetFOSFlag Or FOF_FILESONLY
    If Not bShowWindowsProgressBox Then SetFOSFlag = SetFOSFlag Or FOF_SILENT
    If bRenameIfExists Then SetFOSFlag = SetFOSFlag Or FOF_RENAMEONCOLLISION
    If Not bShowWindowsAskActionBox Then SetFOSFlag = SetFOSFlag Or FOF_NOCONFIRMATION
    If bAllowUndo Then SetFOSFlag = SetFOSFlag Or FOF_ALLOWUNDO
    If bMulti Then SetFOSFlag = SetFOSFlag Or FOF_MULTIDESTFILES
End Function

'----------------------------------------------------------------
'Remarques :
'bReussite = DeleteContentDirectory("C:\test", lHandle:=0, bDeleteContainerFolder:=True, bIncludeSubFolders:=True, bShowWindowsProgressBox:=False, bSendToRecycleBin:=True)


++

---