USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Fórum

  Visual Basic
Voltar
Autor Assunto:  Contar Arquivos
ZeuzZ
QUEDAS DO IGUAÇU
PR - BRASIL
ENUNCIADA !
Postada em 01/12/2010 11:30 hs            
Olá pessoal, gostaria de saber se alguém sabe como contar arquivos de uma pasta iniciados por exemplo com "PED" e que tenham extensão ".TXT"

Desde já agradeço
   
Polack
EMBU DAS ARTES
SP - BRASIL
ENUNCIADA !
Postada em 01/12/2010 12:36 hs         
da uma olhada nessa dica do forum...om poucas modificações dá pra vc adaptar ao seu projeto!
http://www.vbweb.com.br/dicas_visual.asp?Codigo=2914&Classificacao=2
   
Lucas Alberti
QUEDAS DO IGUAÇU
PR - BRASIL
ENUNCIADA !
Postada em 01/12/2010 14:17 hs            
Essa rotina ae não funciona da erro por tudo falta tudo as declarações se alguém tiver ela mais completinha
   
Lucas Alberti
QUEDAS DO IGUAÇU
PR - BRASIL
ENUNCIADA !
Postada em 01/12/2010 14:34 hs            
Resolvido código abaixo mostra como fiz.

Sub PegaNpedidos(Caminho)

    Dim fs, f, f1, fc, s
    s = 0
    Set fs = CreateObject("Scripting.fileSystemObject")
    Set f = fs.GetFolder(Caminho)
    Set fc = f.files
    For Each f1 In fc
        If LCase(Left(f1.Name, 3)) = "ped" Then
            s = s + 1
        End If
    Next
    lblPed.Caption = s
    
End Sub

-


Att


Lucas D. Alberti
lucas@visualsoftware.inf.br
www.visualsoftware.inf.br
   
Página(s): 1/1    

CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site 		Topo da página