ENUMERAR "FILES" PARTE 2

USUARIO.EXCLUIDOS 09/12/2003 13:09:52
#320
Eu estava com o seguinte Problema:
Criar uma rotina para "enumerar" os arquivos de uma pasta
de acordo com o número 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, Graças 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 Temporária)
File1.Refresh
File2.Path = "c:\windows\desktop\FOTOS2" '(Pasta Final)
Label1.Caption = File2.Archive
If File1.ListCount - 1 0 Then
MsgBox "Diretório 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 "Atualização Fotográfica Completa!", 48
End If
'Unload Me
End Sub

Até aí uma beleza!!! Perfeito.

Mas agora surgiu um Probleminha:
Toda vez que eu faço a atualização (Atravéz do Código acima)
das fotos a minha "BAT" copia todas as fotos para o diretório "final"
onde elas ficarão, e elimina as fotos do diretório Temporário.ok?
O diretório fica "vazio" (Claro)
O problema é o seguinte:
Quando eu colocar "Por exemplo" mais 200 arquivos na pasta temporária
e fizer o mesmo processo, a pasta final vai continuar a ter o mesmo número de
arquivos (a BAT vai substituir todos os arquivos e vou perder os 200
anteriores ) certo ?
Minha questão:
1-Existe alguma maneira dessa rotina verificar quantos arquivos existem
na pasta FINAL por ex: 200 arquivos *jpg, e começar a "enumerar"
os arquivos na pasta Temporária a partir de 201.jpg (Para que a "BAT"
não substitua, mas acrescente na pasta final mais esses 200 arquivos),
finalizando assim 400 arquivos *.jpg?
2-Posso "limitar" o número de arquivos? Por ex: A pasta final não poderá
ter mais de 1000 arquivos *.jpg ?

Se Alguém poder me ajudar ...
Agradeço desde já (Obrigado) Amigos.
Fabiano.
WEBMASTER 09/12/2003 14:18:21
#333 Resposta escolhida
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 10/12/2003 03:21:39
#447
eh por causa do sistema anti-scripts do site (desculpa, mas tá errado, e eh falho)

a solução seria

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

flw!
Tópico encerrado , respostas não são mais permitidas
Voltar