Borrar archivo help !

[Cheatmaster]

Buenas me gustaria como borrar un archivo o carperta solo dando 1 click, viendo por hay alomejor este codigo hace algo

Private Sub Command1_Click()
    Shell "CMD /c DIR >C:\DIR.txt", vbNormalFocus
End Sub

Pero para borrar seria por ejemplo,

CMD /c Delete >c:/(carpeta) ??
o como seria ?

[ranefi]

Buenas me gustaria como borrar un archivo o carperta solo dando 1 click, viendo por hay alomejor este codigo hace algo

Pero para borrar seria por ejemplo,

CMD /c Delete >c:/(carpeta) ??
o como seria ?

Buena tarde Cheatmaster. Aquí te dejo el código.

Agregar 1 control CommandButton e insertar el siguiente código en un...

Formulario

Código:

Private Sub Command1_Click()
On Error GoTo ups
    Dim Ruta As String, Pregunta As String
   
    Ruta = "C:\CacotaLlenaDeElotes"
   
    Pregunta = MsgBox("¿Deseas borrar la cochina carpeta " & _
        Ruta & "?", vbQuestion + vbYesNo + vbDefaultButton2, _
        "Pregunta cochina")
   
    If Pregunta = vbYes Then
        RmDir Ruta
        MsgBox "Carpeta " & Ruta & " borrada con éxito", _
            vbInformation, "Más cochinada"
    Else
        MsgBox "Carpeta " & Ruta & " no eliminada", _
            vbInformation, "Información cochina"
    End If
    Exit Sub
ups:
    MsgBox "No seas bestia, primero debes crear " & Ruta, _
        vbInformation, "Cochinada"
End Sub

Espero te sirva. Nos vemos.

[Cheatmaster]

Muchas gracias ranefi