ENUMERAR "FILES" PARTE 2

 Tópico anterior Próximo tópico Novo tópico

ENUMERAR [�]FILES[�] PARTE 2

VB / VBA

 Compartilhe  Compartilhe  Compartilhe
#320 - 09/12/2003 13:09:52

USUARIO.EXCLUIDOS

Cadast. em:


Eu estava com o seguinte Problema:
Criar uma rotina para "enumerar" os arquivos de uma pasta
de acordo com o nmero de arquivos contido nela:
Ex: Se tivesse 200 arquivos *.jpg com nomes diversos a rotina colocaria assim:
1.jpg , 2.jpg , at 200.jpg, enfim, Graas ao WEBMASTER este
problema foi resolvido.

VEJA O CӓDIGO:

Colocar um FileLisBox no Form

no Form

Private Sub Form_Load()
Dim I As Integer
Dim A As String ' atual
Dim N As String ' novo

File1.Path = "C:\windows\desktop\FOTOS"  '(Pasta Temporria)
File1.Refresh
File2.Path = "c:\windows\desktop\FOTOS2" '(Pasta Final)
Label1.Caption = File2.Archive
If File1.ListCount - 1  0 Then
MsgBox "Diretrio vazio !", 16
Else
For I = 0 To File1.ListCount - 1
A = File1.Path & IIf(Right(File1.Path, 1) = "\", "\", "") & File1.List(I)
N = File1.Path & IIf(Right(File1.Path, 1) = "\", "\", "") & Format(I, "0") & ".jpg"
Name A As N
Next
Dim delTMP As Long
delTMP = Shell("c:\windows\desktop\Fim.bat")
'FIM.BAT
'echo off
'cd\
'cd windows
'cd desktop
'cd FOTOS
'ren 0.JPG 200.JPG
'copy *.JPG c:\windows\desktop\FOTOS2
'del *.JPG
'Cls
MsgBox "Atualizao Fotogrfica Completa!", 48
End If
'Unload Me
End Sub

At a uma beleza!!! Perfeito.

Mas agora surgiu um Probleminha:
Toda vez que eu fao a atualizao (Atravz do Cdigo acima)
das fotos a minha "BAT" copia todas as fotos para o diretrio "final"
onde elas ficaro, e elimina as fotos do diretrio Temporrio.ok?
O diretrio fica "vazio" (Claro)
O problema o seguinte:
Quando eu colocar "Por exemplo" mais 200 arquivos na pasta temporria
e fizer o mesmo processo, a pasta final vai continuar a ter o mesmo nmero de
arquivos (a BAT vai substituir todos os arquivos e vou perder os 200
anteriores ) certo ?
Minha questo:
1-Existe alguma maneira dessa rotina verificar quantos arquivos existem
na pasta FINAL por ex: 200 arquivos *jpg, e comear a "enumerar"
os arquivos na pasta Temporria a partir de 201.jpg (Para que a "BAT"
no substitua, mas acrescente na pasta final mais esses 200 arquivos),
finalizando assim 400 arquivos *.jpg?
2-Posso "limitar" o nmero de arquivos? Por ex: A pasta final no poder
ter mais de 1000 arquivos *.jpg ?

Se Algum poder me ajudar ...
Agradeo desde j (Obrigado) Amigos.
Fabiano.



Resposta escolhida #333 - 09/12/2003 14:18:21

WEBMASTER
CURITIBA
Cadast. em:Janeiro/2001


Membro da equipe
Tem jeito de resolver isso sim.
Adicione ao nome do arquivo, o contador + o total de arquivos de filelistbox


For I = 0 To File1.ListCount - 1
A = File1.Path & IIf(Right(File1.Path, 1) = "\", "\", "") & File1.List(I)
N = File1.Path & IIf(Right(File1.Path, 1) = "\", "\", "") & Format(I + File1.Listcount, "0") & ".jpg"
Name A As N
Next


WebMaster - VBMania

Nao me mande e-mail com duvidas
Para isso e que existe o forum do VBMania !!!

#447 - 10/12/2003 03:21:39

WEBMASTER
CURITIBA
Cadast. em:Janeiro/2001


Membro da equipe
eh por causa do sistema anti-scripts do site (desculpa, mas t errado, e eh falho)

a soluo seria

If File1.ListCount - 1 MAIOR 0 Then
a continua...

flw!

WebMaster - VBMania

Nao me mande e-mail com duvidas
Para isso e que existe o forum do VBMania !!!

 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por WEBMASTER em 18/08/2009 10:03:45