Visual Basic - API para eliminar carpetas y archivos

BUenas... alguien puede facilitarme algun ejemplo con API para eliminar carpetas y archivos.

Lo he intentado con RMDIR pero no te la elimina sino esta vacia y claro dentro hay mas carpetas asi que tendria que ir eliminando archivos por carpeta a carpeta y luego eliminar carpetas. Y todo esto son carpetas que no siempre son las mismas,

Asi que habia pensado dar opcion a elejir una carpeta y con la API que elimine todo lo que hay dentro.

Gracias de antemano

Hace un par de dias te puse un ejemplo de como copiar carpetas y archivos, pues es lo mismo pero cambiando la constante FO_COPY por FO_DELETE

ahh..perfecto,

Es esta Private Const FO_COPY = &H2

el valor H2 es lo mismo ?

Gracias.

No me funciona... hace como copiar. ´

esto es lo que he puesto:

Option Explicit

Private Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long
Private Type SHFILEOPSTRUCT
hWnd As Long
wFunc As Long
pFrom As String
pTo As String
fFlags As Integer
End Type

Private Const FO_COPY = &H2 'Copiar Carpetas y archivos
Private Const FO_DELETE = &H2 'Eliminat Carpetas y Archivos
Private Const FOF_NOCONFIRMMKDIR = &H200&

Private Sub Command1_Click()
CopiarCarpetasyArchivos "g:*.*", "C:Backup"
End Sub

Private Sub Command2_Click()
EliminarCarpetasyArchivos "g:*.*", ""
End Sub

Sub CopiarCarpetasyArchivos(ByVal sFuente As String, ByVal sDestino As String)
Dim SFHOp As SHFILEOPSTRUCT
With SFHOp
.hWnd = 0
.wFunc = FO_COPY 'Copiar Carpetas y Archivos
.pFrom = sFuente & vbNullChar & vbNullChar
.pTo = sDestino & vbNullChar & vbNullChar
.fFlags = FOF_NOCONFIRMMKDIR
End With
SHFileOperation SFHOp
End Sub

Sub EliminarCarpetasyArchivos(ByVal sFuente As String, ByVal sDestino As String)
Dim SFHOp As SHFILEOPSTRUCT
With SFHOp
.hWnd = 0
.wFunc = FO_DELETE ' Eliminar Carpetas y archivos
.pFrom = sFuente & vbNullChar & vbNullChar
.pTo = sDestino & vbNullChar & vbNullChar
.fFlags = FOF_NOCONFIRMMKDIR
End With
SHFileOperation SFHOp
End Sub

NO!
el valor de la constante FO_DELETE es &H3

Muchas gracias ahora si funciona

Hola de nuevo

Estoy liado con lo de eliminar carpeta y he podido comprobar se solo elimina los archivos pero no quita la carpeta.

la llamo asi a la api:



EliminarCarpetasyArchivos Path & "*.*", ""

----------

Sub EliminarCarpetasyArchivos(ByVal sFuente As String, ByVal sDestino As String)
' Rutina Api para Eliminar Carpetas y Archivos

Dim SFHOp As SHFILEOPSTRUCT
With SFHOp
.hwnd = 0
.wFunc = FO_DELETE ' Eliminar Carpetas y archivos
.pFrom = sFuente & vbNullChar & vbNullChar
.pTo = sDestino & vbNullChar & vbNullChar
.fFlags = FOF_NOCONFIRMMKDIR
End With
SHFileOperation SFHOp
End Sub
-------------

Que puedo hacer para que tambien me elimine la carpeta. Path es la carpeta.

Gracias de antemano

Saludos no se si ya sea tarde pero esta funcion talvez te pueda servie pues elimina completa y definitivamente la carpeta y todo su contenido seleccionado
espero te pueda servir

simplemente al evento click mandas llamar la funcion y seleccionas la ruta de la carpeta a eliminar


Private Sub SimpleButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SimpleButton1.Click

PrvDeleteC()
End Sub



Private Sub PrvDeleteC()
Dim LoCuadro As New FolderBrowserDialog
LoCuadro.Description = "Seleccione un Directorio."
LoCuadro.ShowNewFolderButton = False
If LoCuadro.ShowDialog = Windows.Forms.DialogResult.OK Then
Dim directorio As New DirectoryInfo(LoCuadro.SelectedPath)
If MsgBox("Seguro de eliminar " & vbCrLf & directorio.Name & vbCrLf & "y todo su contenido.", MsgBoxStyle.Question & MsgBoxStyle.YesNo, "Confirmacion") = MsgBoxResult.Yes Then
Try
directorio.Delete(True) 'CUANDO ESTA EN TRUE BORRA RECURSIVO
MsgBox("Archivo eliminado con exito.", MsgBoxStyle.Information)
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Information, "Error al borrar.")
End Try
End If
End If
End Sub


saludos
SirDanny