SUBPASTAS
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
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
nao consigo abrir o ficheiro que voce me mandou.. diz que esta corrumpido ou danificado..
bem, o que eu quero fazer, é que o programa procure no computador todo os ficheiros *.mdf e *.ldf, que sao base de dados sql, para depois selecionar a que quizer e fazer backup.. voce entendeu?
bem, o que eu quero fazer, é que o programa procure no computador todo os ficheiros *.mdf e *.ldf, que sao base de dados sql, para depois selecionar a que quizer e fazer backup.. voce entendeu?
obrigado, vou ler bem os codigos..
vou ver se consigo fazer aquilo que quero..
depois posto aqui o codigo correto
vou ver se consigo fazer aquilo que quero..
depois posto aqui o codigo correto
Tópico encerrado , respostas não são mais permitidas