ENUMERAR ARQUIVOS...

USUARIO.EXCLUIDOS 06/12/2003 17:42:46
#4
Como faço pra ... Por exemplo tenho um monte de arquivos de fotos....
todos com nomes diferentes... gostaria de saber se existe uma ROTINA faça
o seguinte :isso atravez de um cmdButtom ,(tenho 200 *.jpg na seguinte pasta
c:\Fotos) tipo assim o programa localiza a pasta,"c:\fotos" renumera as fotos de 1.jpg, 2.jpg, 3.jpg ... até 198.jpg, 199.jpg, 200.jpg e joga nesta pasta c:\fotos_NUM
isso só apertando o botão...

Se alguém puder me ajudar , Vai ser de muita utilidade pra mim.
Agradeço desde já. // Valeu!
WEBMASTER 06/12/2003 17:56:38
#5 Resposta escolhida
Fabiano,

Tem sim e é bem simples.
Coloque no seu form, um controle filelistbox.
Feito isso é só usar esse código...


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


File1.Path = "c:\downloads"
File1.refresh

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, "000") & ".jpg"
  Name A As N
 Next
 MsgBox "Fim do processo !", 48
End If
End Sub
WEBMASTER 07/12/2003 09:56:58
#62
ops...
é que no fórum não sai a tag menor e maior, coloque ali um sinal de diferente (maior e menor) depois do , 1)
WEBMASTER 07/12/2003 15:06:15
#101
Versão correta:

A = File1.Path & IIf(Right(File1.Path, 1) = "\","", "\") & File1.List(I) 
N = File1.Path & IIf(Right(File1.Path, 1) = "\", "", "\") & Format(I, "000") & ".jpg"

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