MANIPULACAO DE ARQUIVOS
Boa Tarde.
Pessoal, Estou com a Seguinte dificuldade:
Tenho um Diretório ("C:\Imagens") com mais de 1000 imagens no formato JPG.
Porém, preciso alterar nos nomes delas para numeros. Exemplo:
01.JPG
02.JPG
.
.
.
E assim por diante.
Alguém teria uma Sugestão?
Grato
Pessoal, Estou com a Seguinte dificuldade:
Tenho um Diretório ("C:\Imagens") com mais de 1000 imagens no formato JPG.
Porém, preciso alterar nos nomes delas para numeros. Exemplo:
01.JPG
02.JPG
.
.
.
E assim por diante.
Alguém teria uma Sugestão?
Grato
Private Sub Command1_Click()
Dim i As Integer
Do Until i = File1.ListCount + 1
Name File1.Path & "\" & File1.FileName As File1.Path & "\" & Format(i, "000") & ".jpg"
Next i
End Sub
Private Sub Command2_Click()
MsgBox File1.Path & "\" & File1.FileName
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Dim i As Integer
Do Until i = File1.ListCount + 1
Name File1.Path & "\" & File1.FileName As File1.Path & "\" & Format(i, "000") & ".jpg"
Next i
End Sub
Private Sub Command2_Click()
MsgBox File1.Path & "\" & File1.FileName
End Sub
Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub
Tópico encerrado , respostas não são mais permitidas