UCAN forum

Primeiro Forum criado por Informáticos Angolanos, destinado à informáticos de todos os níveis, tendo como principal foco o ramo da PROGRAMAÇÃO.Tutoriais, Exposição de dúvidas, Notícias e muito mais...
 
InícioInício  CalendárioCalendário  FAQFAQ  BuscarBuscar  Registrar-seRegistrar-se  Conectar-seConectar-se  

Compartilhe | 
 

 Procurar um arquivo em diretórios e subdiretórios

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Josemar Jobs

avatar

Masculino Número de Mensagens : 81
Idade : 28
Localização : Luanda-Angola
Data de inscrição : 05/05/2008

MensagemAssunto: Procurar um arquivo em diretórios e subdiretórios   Ter Maio 20, 2008 12:18 am

Aqui vai o codigo de uma boa aplicação em Visual Basic

Private NumFiles%, FilesNames$()
Private FilesDates() As Date, FilesSizes&()

Sub ScanPath(ByVal Path$, ByVal Files$)
Dim i%, DirCount%, Buf$, DirName$,
Dim FileName$, SubDir$()
Const ATTR_DIRECTORY = 16
On Error Resume Next

'Le os arquivos locais
FileName$ = Dir(Path$ + Files$)
Do While FileName$ <> ""
'Esta inferior ou igual a data solicitada
NumFiles% = NumFiles% + 1
ReDim Preserve FilesNames$(NumFiles%), _
FilesDates(NumFiles%), FilesSizes&(NumFiles%)
FilesNames$(NumFiles% - 1) = LCase(Path$ + _
FileName$)
FilesDates(NumFiles% - 1) = FileDateTime(Path$ + _
"\" + FileName$)
FilesSizes&(NumFiles% - 1) = FileLen(Path$ + _
"\" + FileName$)
FileName$ = Dir
Loop

'Identifica os subdiretorios
DirName$ = Dir(Path$ + "*.*", ATTR_DIRECTORY)
DirCount% = 0
Do While DirName$ <> ""
'Ignora "." e ".."
If DirName$ <> "." And DirName$ <> ".." Then
'E diretorio???
If (GetAttr(Path$ + DirName$) And _
ATTR_DIRECTORY) = ATTR_DIRECTORY Then
'Sim, adiciona
DirCount% = DirCount% + 1
ReDim Preserve SubDir$(DirCount%)
SubDir$(DirCount% - 1) = DirName$
End If
End If
DirName$ = Dir
Loop
For i% = 0 To DirCount% - 1
'Faz uma recursividade, varrendo subdiretorios
'deste diretorio
Call ScanPath(Path$ + SubDir$(i%) + "\", Files$)
Next
End Sub

ñ é de minha autoria, mas achei importante postá-la, xpero que gostem,.........
fuiiiiiiiiiiiiiiii,............ study
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Giovanny Ritchie

avatar

Masculino Número de Mensagens : 95
Idade : 27
Localização : Luanda, Angola
Data de inscrição : 05/05/2008

MensagemAssunto: Re: Procurar um arquivo em diretórios e subdiretórios   Ter Maio 20, 2008 2:10 am

Ai Jobs...continua..Valeu pelo cod....Fuiiiiiiiiiii bounce Laughing
Voltar ao Topo Ir em baixo
Ver perfil do usuário
JomarB

avatar

Masculino Número de Mensagens : 49
Idade : 27
Localização : Luanda, Angola
Emprego/lazer : Programar
Data de inscrição : 12/05/2008

MensagemAssunto: Re: Procurar um arquivo em diretórios e subdiretórios   Ter Maio 20, 2008 5:20 pm

E isso ai, vlw.

Como eu digo sempre:

Twisted Evil O pessoal da UCAN forum nao te deixa mal Twisted Evil
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Evanilson Bill Gates

avatar

Masculino Número de Mensagens : 11
Idade : 28
Localização : Luanda, Angola
Data de inscrição : 06/05/2008

MensagemAssunto: Valeu Jobs   Sab Jun 21, 2008 8:56 pm

Manda sempre novidades PG da programação
msgbox "Fui........ bounce "
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Procurar um arquivo em diretórios e subdiretórios   

Voltar ao Topo Ir em baixo
 
Procurar um arquivo em diretórios e subdiretórios
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
UCAN forum :: Programação e Informática Geral :: VB(Visual Basic) e Delphi-
Ir para: