elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Sigue las noticias más importantes de seguridad informática en el Twitter! de elhacker.NET


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  AYUDA visual basic borrar archivos
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: AYUDA visual basic borrar archivos  (Leído 6,366 veces)
guidosl

Desconectado Desconectado

Mensajes: 75


Ver Perfil
AYUDA visual basic borrar archivos
« en: 13 Marzo 2009, 06:59 am »

buenas


para visual basic 6 a ver si alguien me puede ayudar


quisiera un comando q me elimine todos los archivos "aaa.txt" de un directorio (mejor dicho de una carpeta y todas sus subcarpetas)

se supone q una carpeta "c:\xxx" contiene un archivo "aaa.txt"(no puede contenet 2 xq no va a haber mas d 1 archivo con el mismo nombre jajaj) ademas contiene subcarpetas:

c:\xxx
c:\xxx\yyy
c:\xxx\yyy\ddd
c:\xxx\hhh\
c:\xxx\hhh\jjj

bueno en fin se supone q tambien en cada una de ellas existe el archivo "aaa.txt" el cual quiero eliminar

pero OJO!! solo ese archivo....no todos los archivos q se encuentran en las carpetas, ni tampoco todos los *.txt de las carpetas, solo los q contengan ese nombre completo

================================================== ==============================

tambien necesito reemplazar un archivo, que tengo en la carpeta del proyecto de visual basic(osea junto al .exe y los otros archivos de mi proyecto), en todo un directorio

siguiendo el ejemplo anterior, suponiendo que en la carpeta del proyecto de vb tengo un "aaa.txt" el cual quiero reemplazarlo porr cada uno de los q se encuentra en la carpeta c:\xxx y en sus subcarpetas


si alguien tiene alguna idea


muchas gracias


En línea

xkiz ™


Desconectado Desconectado

Mensajes: 1.252


Ver Perfil WWW
Re: AYUDA visual basic borrar archivos
« Respuesta #1 en: 13 Marzo 2009, 08:19 am »

hola con la Funcion Kill podes eliminar los archivos
Código
  1. Kill "C:\xxx\a.txt"
  2. 'Si queres eliminar varios archivos de un directorio podes utilizar "*", y si queres excluir ciertos archivos podes utilizar "?".

y con la Funcion RmDir podes eliminar Carpetas.
Código
  1. RmDir "C:\xxxx"
  2. ' elimina directorios o carpetas, pero antes de eliminar directorios tenes que estar seguros que la carpeta no contiene archivos, si no
  3. 'dará un error en tiempo de ejecución.

Para reemplazar x archivo podes usar FileCopy, el primer parametro de esta
funcion es el archivo de origen y el segundo parametro es el destino.

para poder reemplazarlo el archivo no tiene que estar en "Solo Lectura" eso lo averiguas con GetAttr y con SetAttr podes cambiar la popiedad de solo lectura a Normal.

Código
  1. Dim ret As Long
  2.  
  3. ret = GetAttr(App.Path & "\aaa.txt")
  4. If ret = vbReadOnly Then
  5.    SetAttr App.Path & "\aaa.txt", vbNormal
  6.          FileCopy "C:\aaa.txt", App.Path & "\aaa.txt"
  7.    else
  8.          FileCopy "C:\aaa.txt", App.Path & "\aaa.txt"
  9. End If


« Última modificación: 13 Marzo 2009, 08:53 am por xkiz » En línea

seba123neo
Moderador
***
Desconectado Desconectado

Mensajes: 3.621



Ver Perfil WWW
Re: AYUDA visual basic borrar archivos
« Respuesta #2 en: 13 Marzo 2009, 14:59 pm »

Hola, fijate que con esto podes listar todas las carpetas y subcarpetas de un path especifico..

Código
  1. Private Sub Form_Load()
  2.    Set FSO = CreateObject("Scripting.FileSystemObject")
  3.    ListarSubDirectorios FSO.GetFolder("c:\xxx")
  4. End Sub
  5.  
  6. Private Sub ListarSubDirectorios(ByVal Carpeta As Object)
  7.    For Each SubCarpeta In Carpeta.SubFolders
  8.        Debug.Print SubCarpeta.Path
  9.        ListarSubDirectorios SubCarpeta
  10.    Next
  11. End Sub

tambien tendrias que listar los archivos de cada carpeta pero bueno eso es facil solo busca sobre FSO...y ahi vas eliminando el archivo con el nombre indicado...y para reemplazar tambien...

saludos.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines