border
VB 6
 
 
  #1 (permalink)  
Antiguo 17-01-2007, 11:33:08
Avatar de Insomnia17
Gran Participación en el Foro
 
Registrado: abr 2004
Posts: 402
Créditos: 10.035
Insomnia17 Valoración +2
Predeterminado Recorrer directorios

Hola

Como podría recorrer todos los subdirectorios de una carpeta concreta, entrar en ellos y borrar todos los archivos que contengan?

Por ejemplo dentro de la carpeta Root tengo varias carpetas, Usu1, Usu2, Usu3, ... , UsuN. Cada una de estas carpetas contiene una carpeta llamada Leidos.

Lo que quiero es recorrer todas las carpetas Usu, eliminando el contenido de la carpeta Leidos de cada uno de los Usu.

--Saludos--
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #2 (permalink)  
Antiguo 17-01-2007, 11:46:21
Avatar de Korku
Usuario VIP del Foro
 
Registrado: feb 2005
Ubicación: España
Posts: 616
Créditos: 5.362
Korku Aun no valorado
Contactar con Korku a través de ICQ Enviar un mensaje a través de AIM a Korku Contactar con Korku a través de MSN Contactar con Korku a través de Yahoo Send a message via Skype™ to Korku
Predeterminado

Hola,

Te muesto un ejemplo de código, espero que te sirva:

Enlace

Saludos
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
  #3 (permalink)  
Antiguo 17-01-2007, 16:51:22
Avatar de Insomnia17
Gran Participación en el Foro
 
Registrado: abr 2004
Posts: 402
Créditos: 10.035
Insomnia17 Valoración +2
Predeterminado

Hola

Gracias por responder, al final lo he echo utilizando FileSystemObject (Referencia Microsoft Scripting Runtime).

Pongo el código, no esta muy depurado, pero da una idea de como trabajar con el FileSystemObject.

Código:
Dim SistArch As New FileSystemObject
Dim Carpeta As Folder
Dim temp1 As Folders
Dim SubCarpeta1 As Folder
Dim tem15 As Folders
Dim SubCarpeta15 As Folder
Dim Temp2 As Folders
Dim Subcarpeta2 As Folder
Dim Arch As File
Dim GArch As Files

Private Sub Command1_Click()
 
    If Text2.Text = "" Then
        MsgBox "Escriba el nombre de las carpetas a eliminar", vbCritical
        Exit Sub
    End If
    
    If Text1.Text = "" Then
        MsgBox "Seleccione la carpeta", vbCritical
        Exit Sub
    End If
    
    Dim cont As Integer
    Dim resp As Integer
    Dim cont2 As Single
    
    Set Carpeta = SistArch.GetFolder(Text1.Text)
    Set temp1 = Carpeta.SubFolders
    
    resp = MsgBox("Esta seguro que desea eliminar todas las carpetas " & Text2.Text & " de la ruta " & Text1.Text & " ?", 4 + 48 + 256)
    If resp = 6 Then
        For Each SubCarpeta1 In temp1
            'MsgBox SubCarpeta1.Name
            Set temp15 = SubCarpeta1.SubFolders
            For Each SubCarpeta15 In temp15
                If SubCarpeta15.Name = "Maildir" Then
                    Set Temp2 = SubCarpeta15.SubFolders
                    For Each Subcarpeta2 In Temp2
                        'MsgBox Subcarpeta2.Name
                        If Subcarpeta2.Name = Text2.Text Then
                            cont = cont + 1
                            Set GArch = Subcarpeta2.Files
                            For Each Arch In GArch
                                Arch.Delete
                                cont2 = cont2 + 1
                            Next
                        End If
                    Next
                End If
            Next
        Next
        
        MsgBox "Eliminado el contenido de " & cont & " subcarpetas y un total de " & cont2 & " archivos"
    End If
    
End Sub
--Saludos--
Digg this Post!Add Post to del.icio.usBookmark Post in TechnoratiFurl this Post!
Responder Con Cita
Respuesta


Herramientas

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Trackbacks are habilitado
Pingbacks are habilitado
Refbacks are habilitado


Temas Similares
Tema Autor Foro Respuestas Último Mensaje
Recorrer Directorios y Ubicar un archivo cs2003mx Visual Basic 6.00 1 13-10-2007 14:23:46
Recorrer varios directorios greelk Visual Basic 6.00 3 24-11-2006 16:37:41
Directorios CristSoft Visual Basic 6.00 2 31-08-2006 07:43:13
Ayuda con la creacion de Directorios en VBA excel jarturo VBA (Excel, Word, Outlook, Access) 2 24-02-2005 19:29:09
Trabajar con directorios Carl0701 Visual Basic 6.00 2 09-03-1970 23:22:18


La franja horaria es GMT. Ahora son las 06:32:57.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2014, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO 3.1.0
vBCredits v1.4 Copyright ©2007 - 2008, PixelFX Studios
© VB-MUNDO CO. Todos los derechos reservados
Tutoriales Premium | Juegos Online 


right

Programacion, vb 6, visual basic, foro programacion

Inactive Reminders By Icora Web Design