Eliminar varios archivos sin importar el directorio
Mi pregunta es la siguiente
Quisiera hacer un programa en visual Basic.net que me permita
eliminar un archivo x o una carpeta sin importar la carpeta o directorio en donde se encuentre. Por ejemplo si quisiera eliminar todos los archivos txt que existan en el disco duro, una carpeta
.metadato que me crea aptana por ejemplo.
Gracias de antemanos
Quisiera hacer un programa en visual Basic.net que me permita
eliminar un archivo x o una carpeta sin importar la carpeta o directorio en donde se encuentre. Por ejemplo si quisiera eliminar todos los archivos txt que existan en el disco duro, una carpeta
.metadato que me crea aptana por ejemplo.
Gracias de antemanos
Lo podrias adaptar enviando los parametros de carpeta y extension de archivos etc ... espero te sirva
Sub EliminaArchivos()
On Error GoTo Eterror:
Set temporal = fs.GetFolder(App.Path & "txt") 'Aqui la ruta que quieras
For Each Archivo In temporal.Files
filename2 = App.Path & "sent" & Archivo.Name
strPath = Archivo
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile Archivo, filename2
Kill Archivo
Next Archivo
Eterror:
'MsgBox Err.Description
End Sub
Me olvidaba en las referencias deberas agregar ....
Microsoft Scripting Runtime y adicional declarar estas como publicas
Public temporal As Folder
Public Archivo As File
Saludos
Microsoft Scripting Runtime y adicional declarar estas como publicas
Public temporal As Folder
Public Archivo As File
Saludos