Hola... Quiero saber como elimino todos los archivos de una carpeta...me explico estoy haciendo una aplicacion la cual borrara todos los archivos de una carpeta cada cierto tiempo, cual archivo...

Gracias De Antemano..


Juan Manuel Lombana
Medellìn - Colombia

tambien puedes borrarlo enviandolo a la papelera de reciclaje

'Crea un módulo BAS e inserta estas declaraciones:

Type SHFILEOPSTRUCT
    hWnd As Long
    wFunc As Long
    pFrom As String
    pTo As String
    fFlags As Integer ' As Long para que funcione en Windows XP con VB6
    fAborted As Boolean
    hNameMaps As Long
    sProgress As String
End Type


Public Const FO_DELETE = &H3
Public Const FOF_ALLOWUNDO = &H40
Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" _
   (lpFileOp As SHFILEOPSTRUCT) As Long


Public Function ShellDelete(ParamArray vntFileName() As Variant) As Long

    Dim I As Integer
    Dim sFileNames As String
    Dim SHFileOp As SHFILEOPSTRUCT

    For I = LBound(vntFileName) To UBound(vntFileName)
   sFileNames = sFileNames & vntFileName(I) & vbNullChar
    Next
    sFileNames = sFileNames & vbNullChar

    With SHFileOp
        .wFunc = FO_DELETE
        .pFrom = sFileNames
        .fFlags = FOF_ALLOWUNDO
    End With

    ShellDelete = SHFileOperation(SHFileOp)

End Function


'En un formulario, inserta un botón Command y escribe esto:

Private Sub Command1_Click()
    Dim FileToKill As String

    'Escribe aquí el archivo a borrar
    FileToKill = "c:\test*.txt"
    ShellDelete FileToKill
    MsgBox "File(s) deleted"
End Sub

muchas gracias por todas sus respuestas... todas me han servido,
ahora si dentro de dicha carpeta hay otras carpetas.... necesito que esas otras carpetas tambien se borren, osea que la primera carpeta quede completamente vacia....

Gracias


Juan Manuel Lombana
Medellín - Colombia

Haber Hermano....
Primero hagamonos Suave Si!!!!
se supone que esto es un foro, si no se halgo pues posteo lo cual  no teda ningun derecho  a tratarme de esa forma... antes de postear se supone que busque y no encontre resultados satisfactorios.... 
De todas maneras agradezco tus respuestas.

Juan Manuel Lombana
Medellín - Colombia.