borrar

30/09/2005 - 12:49 por Juanjo | Informe spam

Hola buenas.

Tengo un problema con un progrma que estoy haciendo en excel. El programa
vasicamente es muy sencillo. Lo unico que tiene que hacer es listar una serie
de archivos que se encuentran en C:\ y borrarlos. El problema me surge al
borrar los, que no se como hacerlo porque aunque encontrando el archivo, al
borrarlo siempre me dice archivo no encontrado. Este es el codigo que tengo.

Private Sub BotonListaryborrar_Click()
archivo = Dir("C:\*.txt")
For I = 0 To 5
If archivo <> "" Then
borrar = ("del C:\" & archivo)
Shell (borrar)
archivo = dir
End If
Next
end sub

Siga el debate

1 respuesta

Tengo una respuesta

DRAGON AGE™: INQUISITION – Matadragones

Leer las respuestas

#1 Carlos Durán Urenda

30/09/2005 - 16:18 | Informe spam

Hola juanjo

Supongo que el problema te viene del uso del Shell, ya que con los nuevos
parches de seguridad se limitan algunas de las funciones del shell, para
evitar que programas nosivos puedan dañar tu PC a traves del uso del Shell

prueba con
Kill borrar

ademas puedes poner tu codigo puede quedar un poco mejor de la siguiente
manera

Sub BotonListaryborrar_Click()
Dim archivo As String
archivo = Dir("C:\*.mmm")
Do While archivo <> ""
Kill "C:\" & archivo
archivo = Dir()
Loop
End Sub

"Juanjo" escribió en el mensaje
news:

Hola buenas.

Tengo un problema con un progrma que estoy haciendo en excel. El programa
vasicamente es muy sencillo. Lo unico que tiene que hacer es listar una
serie
de archivos que se encuentran en C:\ y borrarlos. El problema me surge al
borrar los, que no se como hacerlo porque aunque encontrando el archivo,
al
borrarlo siempre me dice archivo no encontrado. Este es el codigo que
tengo.

Private Sub BotonListaryborrar_Click()
archivo = Dir("C:\*.txt")
For I = 0 To 5
If archivo <> "" Then
borrar = ("del C:\" & archivo)
Shell (borrar)
archivo = dir
End If
Next
end sub

Leer las otras respuestas

Preguntas similares

Busqueda sugerida :