Título: Eliminar archivo con un command desde el FilelistBox Publicado por: Enemy en 26 Septiembre 2009, 01:23 am Bueno, mi problema es el siguiente:
Estoy programando un explorador con un par de opciones, basico. pero no logro que los botones cumplan con su funcion, borrar, abrir, quitar atributos, etc. Quiero seleccionar un archivo de un filelistbox (ya teniendo el drive y el dir) y dar en el boton ejecutar o borrar, pero no logro enviarle la variable a la funcion "kill" o "Deletefile" del objeto FSO para que cumpla con su trabajo :-\ Citar Private Sub Form_Load() Dim Ruta As String Ruta = File1.Path & "\" & File1.FileName File1.Pattern = "*.exe;*.bat;*.ini;*.com;*.vbs" End Sub ------------------------------------------------------ Private Sub CmdBorrar_Click() Kill Ruta, True End Sub O sino asi: Citar Private Sub Form_Load() Dim Fso as Object Set Fso = CreateObject("Scripting.FileSystemObject") Ruta = File1.Path & "\" & File1.FileName File1.Pattern = "*.exe;*.bat;*.ini;*.com;*.vbs" End Sub -------------------------------------------------------------- Private Sub CmdBorrar_Click() fso.deletefile Ruta, True End Sub Que esta mal? o que me falta? y si, probe tambien poniendo "Ruta = File1.Path & "\" & File1.FileName" en el "Private Sub File1_click()" pero nada.. Gracias.. SALUD.O.S Título: Re: Eliminar archivo con un command desde el FilelistBox Publicado por: seba123neo en 26 Septiembre 2009, 02:28 am Hola, este codigo:
Código
lo deberias ejecutar en el evento clik del filelistbox, no en el load del formulario, ya que si cambias de archivo no pasa nada, el load se ejecuta al inicio no tiene nada que ver. y la variable Ruta debe estar declarada arriba local en el formulario no en el load.aparte de eso debes hacer un refresh sino nunca ves si borraste o no...este codigo te debe funcionar: Código
saludos. Título: Re: Eliminar archivo con un command desde el FilelistBox Publicado por: Enemy en 26 Septiembre 2009, 03:26 am Si men, lo del refresh y un par de cosas mas las tengo claras pero solo posteo en donde se que hay errores no el code completo.
Sabes, me seguia tirando error, me marca en amarillo el "Kill Ruta" prove agregando la variable en el cmd antes del if y se dio ^^ Código: Private Sub CmdBorrar_Click() Porque desde el "File1_Click" no quiere funcar. Gracias ;) Título: Re: Eliminar archivo con un command desde el FilelistBox Publicado por: Enemy en 26 Septiembre 2009, 05:42 am Perdon por el doble post pero siguen habiendo un par de errores.
1 por ejemplo cuando le asigno la ruta a la variable queda asi: Código: Ruta = File1.path & File1.filename Ese coda para borrar archivos dentro de una unidad sin estar dentro de una carpeta, funciona pero... si quiero borrar un archivo en otra ubicacion: "F:\mis archivos\blabla\redtube.ext" Código: Ruta = File1.path & File1.filename y si hago esto: Código: Ruta = File1.path & "\" & File1.filename Como soluciono este problema de rutas?? 2 Estando bien la ruta, no me deja eliminar los archivos siendo que otros si elimina... mejor explico a este despues, ya es tarde aqui. Gracias de nuevo. Título: Re: Eliminar archivo con un command desde el FilelistBox Publicado por: BlackZeroX en 26 Septiembre 2009, 06:27 am setattr()
kill() '// No borra archivo ocultos o similares/derivados como los abiertos por ejemplo, setattr() ejecuta antes los pones en modo normal y despues le pasas el kill() Espero sea eso lo de que algunos archivos los borra y otros no.!¡ Dulces Lunas. Título: Re: Eliminar archivo con un command desde el FilelistBox Publicado por: burbu_1 en 26 Septiembre 2009, 11:01 am Perdon por el doble post pero siguen habiendo un par de errores. 1 por ejemplo cuando le asigno la ruta a la variable queda asi: Código: Ruta = File1.path & File1.filename Ese coda para borrar archivos dentro de una unidad sin estar dentro de una carpeta, funciona pero... si quiero borrar un archivo en otra ubicacion: "F:\mis archivos\blabla\redtube.ext" Código: Ruta = File1.path & File1.filename y si hago esto: Código: Ruta = File1.path & "\" & File1.filename Como soluciono este problema de rutas?? 2 Estando bien la ruta, no me deja eliminar los archivos siendo que otros si elimina... mejor explico a este despues, ya es tarde aqui. Gracias de nuevo. Para el problema 1... Código: If Right(File1.Path, 1) <> "\" Then Saludos. Título: Re: Eliminar archivo con un command desde el FilelistBox Publicado por: Enemy en 27 Septiembre 2009, 06:37 am setattr() kill() '// No borra archivo ocultos o similares/derivados como los abiertos por ejemplo, setattr() ejecuta antes los pones en modo normal y despues le pasas el kill() Espero sea eso lo de que algunos archivos los borra y otros no.!¡ Dulces Lunas. Tengo esa opcion tambien, la volver visibles archivos del sistema-ocultos, pero no me habia fijado en eso. Gracias BlackZ Gracias burbu tambien, no se me hubiera ocurrido usar el right >.< Pero Black, mira. testeo mi programa con arhivos ini, los pongo en "C:\" como "ACA.ini" y con un script le doy atributos "39" perfecto, se oculto como del systema, a la hora de sacarle los atributos con el boton del programa, tambien, cumple con la funcion, pero cuando a ese archivo lo quiero eliminar sale: Error 75 "Error de acceso a ruta o archivo" No entiendo que esta mal, no hay nada mal, no tiene atributos, la ruta es la correcta y la funcion Kill cumple su funcion, entonces?? Código: Private Sub CmdBorrar_Click() ?? EDITO: Sera porque el archivo queda en solo lectura? estoy viendo eso. Título: Re: Eliminar archivo con un command desde el FilelistBox Publicado por: BlackZeroX en 27 Septiembre 2009, 08:57 am intenta poner esto
Código
Código
y si ya estas harto con el kill y setearle atributos con setattr usa la API DeleteFile Código
Dulces Lunas!¡. Título: Re: Eliminar archivo con un command desde el FilelistBox Publicado por: 43H4FH44H45H4CH49H56H45H en 28 Septiembre 2009, 00:12 am Algo asi?
Código
Título: Re: Eliminar archivo con un command desde el FilelistBox Publicado por: Enemy en 28 Septiembre 2009, 01:30 am Ya quedo..
Código: Private Sub CmdBorrar_Click() El setattr vbnormal evita el error de eliminar, muchas gracias por la ayuda. SALUD.O.S |