hola, proba con esto, agregale un timer a un form, tilda la opcion de "Microsoft Scripting Runtime" en Proyecto --> Referencias, para utilizar el FileSystemObject con el metodo DeleteFolder, el cual elimina la carpeta sin importar el contenido q tenga.
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 5000
End Sub
Private Sub Timer1_Timer()
Dim xcarpeta As FileSystemObject
Set xcarpeta = New FileSystemObject
On Error GoTo elerror
xcarpeta.DeleteFolder "c:\Save" '---> Le indico la ubicacion de la carpeta a eliminar
MsgBox "CARPETA ELIMINADA"
elerror:
If Err = 76 Then
Exit Sub
End If
End Sub
Segui el consejo de krackwar 2ş_busca en googleeeeee!!!!!!!!!
Saludos.