Borrar contenido de directorio

[elmonje]

Hola Ciberdanny, como as de saber hay varias formas de hacer eso,
mas o menos complicadas, te sugiero una forma sencilla, que además
te da la posibilidad de que podes modificar según tu necesidad.

Si entendí bien esta carpeta debe contener en algún momento datos
sensibles, que no deseas por algún motivo que permanezcan en el disco.

Aquí la respuesta


tenes que habilitar en referencias el objeto a utilizar
En referencias del vb6 tilda esto:
Microsoft Scripting Runtime

'-------------------------------------------
'declaras el tipo de variable
Dim m_fso As FileSystemObject

'seteas la variable del objeto
Set m_fso = New FileSystemObject

'comprobas si existe la carpeta
If m_fso.FolderExists(App.Path & "\tmp") Then
' Por si se genera algun error
On Error Resume Next

' Como la carpeta existe la borras
m_fso.DeleteFolder App.Path & "\tmp"

' Creas la carpeta de nuevo
m_fso.CreateFolder App.Path & "\tmp\"

Else
'Si no existe la creas
m_fso.CreateFolder App.Path & "\tmp\"
End If
'------------------------------------------------------------


Como vos tenes que borrar toda la data de esa carpeta, podes borrar
la carpeta y volver a crearla, hay formas mas simples, pero este código
te da flexibilidad a la hora de modificaciones.

Espero que te sirva.
Saludos.