UCAN forum
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  EntrarEntrar  

 

 Procurar um arquivo em diretórios e subdiretórios

Ir para baixo 
4 participantes
AutorMensagem
Josemar Jobs

Josemar Jobs


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

Procurar um arquivo em diretórios e subdiretórios Empty
MensagemAssunto: Procurar um arquivo em diretórios e subdiretórios   Procurar um arquivo em diretórios e subdiretórios Icon_minitimeTer 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
Ir para o topo Ir para baixo
Giovanny Ritchie

Giovanny Ritchie


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

Procurar um arquivo em diretórios e subdiretórios Empty
MensagemAssunto: Re: Procurar um arquivo em diretórios e subdiretórios   Procurar um arquivo em diretórios e subdiretórios Icon_minitimeTer maio 20, 2008 2:10 am

Ai Jobs...continua..Valeu pelo cod....Fuiiiiiiiiiii bounce Laughing
Ir para o topo Ir para baixo
JomarB

JomarB


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

Procurar um arquivo em diretórios e subdiretórios Empty
MensagemAssunto: Re: Procurar um arquivo em diretórios e subdiretórios   Procurar um arquivo em diretórios e subdiretórios Icon_minitimeTer 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
Ir para o topo Ir para baixo
Evanilson Bill Gates

Evanilson Bill Gates


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

Procurar um arquivo em diretórios e subdiretórios Empty
MensagemAssunto: Valeu Jobs   Procurar um arquivo em diretórios e subdiretórios Icon_minitimeSáb Jun 21, 2008 8:56 pm

Manda sempre novidades PG da programação
msgbox "Fui........ bounce "
Ir para o topo Ir para baixo
Conteúdo patrocinado





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

Ir para o topo Ir para baixo
 
Procurar um arquivo em diretórios e subdiretórios
Ir para o topo 
Página 1 de 1

Permissões neste sub-fórumNão podes responder a tópicos
UCAN forum :: Programação e Informática Geral :: VB(Visual Basic) e Delphi-
Ir para: