none
Subpastas VB6

    Question

  • boas....
    queria saber como posso pesquisar nas subpastas do disco C:\ em vb6..

    eu tenho código, mas está só a procurar na raiz do disco C:\.. :S


        Set fso = CreateObject("Scripting.FileSystemObject")
        Set pasta = fso.GetFolder("c:\")

        Set ArqExst = pasta.Files
        
        Me.List1.Clear
        Me.List2.Clear
        For Each Arq In ArqExst
                If ((LCase(Right(Arq.Name, 3))) = "mdf") Or ((LCase(Right(Arq.Name, 3))) = "ldf") Then
                Me.List1.AddItem Arq.Name
                Me.List2.AddItem Arq
            End If
        Next 

    A'Moreira
    Tuesday, May 24, 2011 1:25 PM

All replies

  • http://www.devguru.com/technologies/vbscript/quickref/filesystemobject_getfolder.html
    One word frees us of all the weight and pain of life: that word is love.
    Tuesday, May 24, 2011 1:30 PM
  •  

        Set fso = CreateObject("Scripting.FileSystemObject")
        Set pasta = 
    fso.GetFolder("C:\TestFolder\")

     


        Set ArqExst = pasta.Files
        
        Me.List1.Clear
        Me.List2.Clear
        For Each Arq In ArqExst
                If ((LCase(Right(Arq.Name, 3))) = "mdf") Or ((LCase(Right(Arq.Name, 3))) = "ldf") Then
                Me.List1.AddItem Arq.Name
                Me.List2.AddItem Arq
            End If
        Next 

     

     

    fiz codigo com o que voce me mandou, mas nao esta a funcionar.. ele nao esta a aceitar o caminho "C:\TestFolder\"

     

    que posso fazer para remendar esse erro?!


    A'Moreira
    Tuesday, May 24, 2011 1:41 PM
  • Testefolder deveria ser o nome da sua folder...aquilo e um exmplo.
    One word frees us of all the weight and pain of life: that word is love.
    Tuesday, May 24, 2011 1:42 PM
  • mas tenho de por o nome das pastas?

     

    é que eu queria que fizesse uma pesquisa pelo computador à procura de ficheiros *.mdf e *.ldf, mas nao posso por o nome das pastas que tenho, pq estou a fazer este programa no meu computador e ele é para utilizar no computador do patrão..


    A'Moreira
    Tuesday, May 24, 2011 2:02 PM
  • mas tenho de por o nome das pastas?

     

    é que eu queria que fizesse uma pesquisa pelo computador à procura de ficheiros *.mdf e *.ldf, mas nao posso por o nome das pastas que tenho, pq estou a fazer este programa no meu computador e ele é para utilizar no computador do patrão..


    A'Moreira

    Eu ja nao programo com vb6 a bastante tempo, tenta assim:

    .GetFolder("c:\\ ") ou .GetFolder("c:// ");


    One word frees us of all the weight and pain of life: that word is love.
    Tuesday, May 24, 2011 2:18 PM
  • pois.. ja tentei assim tbm..

     

    e voltei a tentar agora, mas nao funciona! :S

     

    nao sei mais o que posso fazer!!


    A'Moreira
    Tuesday, May 24, 2011 2:20 PM