Indetectables

Código: Seleccionar todo

'___________________________________________________________________
'Function DelFolder
'Coded By The Swash at 24/12/2009
'Contact: [email protected]
'www.Indetectables.Net
'___________________________________________________________________
Public Function DelFolder(folder As String) As String
On Error GoTo NotFound
 Dim PathUse As String
 PathUse = folder & "\" & "*.*"
  
  DelFolder = False
   If GetAttr(folder) Then
    If Dir$(PathUse) = "" Then
       RmDir (folder)
       Else
       Kill (PathUse)
       RmDir (folder)
     End If
     
    DelFolder = True
     MsgBox "Folder Deleted", vbInformation, "Done"
   End If
 Exit Function
 
NotFound:
   MsgBox "Directory not found", vbExclamation, "Fail"

End Function

Código: Seleccionar todo

Call DelFolder(Folder)