none
Buscar archivos con extension .tmp en todo el ordenador

    Question

  • Hola, estoy desarollando una aplicación para borrar archivos temporales tipo ccleaner, pues quiero que busque todos los archivos .tmp en el ordenador, he intentado que busque en subcarpetas y funcionaba, pero quiero que busque en carpteas y sub carpetas , sub sub carpetas..etc

    Sunday, October 21, 2012 7:24 PM

All replies

  • para recorrer carpetas y subcarpetas deberias hacer un metodo recursivo, como el explciado aqui

    Cómo: Recorrer en iteración un árbol de directorio

    Convert C# to VB.NET

    Code Converter

    saludos


    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    Sunday, October 21, 2012 8:24 PM
  • Gracias, pero esto no me muestra ningun archivo, como si no hubiera ninguno
    Sunday, October 21, 2012 8:26 PM
  • no entendi, como que no muestra ningun archivo?

    Leandro Tuttini

    Blog
    Buenos Aires
    Argentina

    Sunday, October 21, 2012 8:34 PM
  • Creo que debería funcionarte.  Pero no comentas que verción de windows es en la que estás ejecutando el código. Windows xp, vista, 7 o 8

    En el caso de que no te funcione es por tema de permisos, que se encuentre en carpetas que tienen ciertos permisos o nivel de seguridad (en el caso de windows vista, 7 y 8).

    de todas formas dejo esta función que he probado y funciona, salvo por las carpetas que no tenga permisos el usuario.

      

        Function SearchExtencion(ByVal ext As String, ByVal path As String) As String
            Try
                For Each cb As String In My.Computer.FileSystem.GetDirectories(path)
                    SearchExtencion(ext, path)
                Next
                For Each cb As String In My.Computer.FileSystem.GetFiles(path)
                    If My.Computer.FileSystem.GetFileInfo(cb).Extension = ext Then
                        Return cb
                    End If
                Next
                Return "Not found file with extencion"
            Catch ex As Exception
                Return "The function has found error: " & vbNewLine & ex.Message
            End Try
        End Function


    daviel


    • Edited by Daviel SA Monday, October 22, 2012 9:04 AM
    Monday, October 22, 2012 9:02 AM