[Resolvido]Renomear arquivos em uma pasta

Boa noite pessoal, estou com um problema grande e não estou conseguindo resolver gostaria de uma ajuda de vocês.

tenho uma pasta onde contem varias fotos.jpg que estão renomeada com um numero inicial e um numero final.

Sendo assim eu preciso copiar a imagem e colar colocando a sequencia que contem no nome da foto ex: a foto "250 A 254.jpg" copiar esta foto e cola-la para 250.jpg, 251.jpg, 252.jpg, 253.jpg e 254.jpg

auguem pode me ajudar?

Obs. estou anexando a pasta onde contem as fotos e também o Dados.accdb para verificar caso ajude.

Não entendi. Você quer criar 4 cópias da mesma imagem com nomes diferentes?

isso mesmo, criquio

Mas isso não vai ocupar espaço desnecessário no disco? Não consegui imaginar uma necessidade para tal, mas tu pode conseguir o que queres com pequenas alterações no código do outro tópico:

Código:

    Dim rs As Recordset, N As Double, nomeOrigem As String, nomeDestino As String, Separar As Variant

    Set rs = CurrentDb.OpenRecordset("dados")

    rs.MoveFirst

    Do While Not rs.EOF
        nomeOrigem = CurrentProject.Path & "\" & rs("numero") & ".jpg"
        Separar = Split(rs("numero"), " A ")
        For N = Separar(LBound(Separar)) To Separar(UBound(Separar))
            nomeDestino = CurrentProject.Path & "\Imagens\" & N & ".jpg"
            FileCopy nomeOrigem, nomeDestino
        Next
        rs.MoveNext
    Loop

    MsgBox "Processo concluído"

    rs.Close
    Set rs = Nothing

Estou supondo que todas as imagens terão um número inicial, espaço, a letra "A", espaço e um número final.

muito Obrigado criquio.

vou lhe explicar o porque necessito de fazer este trabalho.

no meu serviço fizemos um levantamento onde continha vários bens que são iguais por exemplo "cadeira" ai juntamos todas e colocamos o numero da foto conforme informado anteriormente.

ai agora necessitamos coloca-las no sistema ai necessito duplicar elas informando os números na sequencia conforme você fez.

só que esse procedimento vou fazer direto informando dentro do banco de dados sendo assim eu necessito ter direto as imagens com os nome de cada bens.

a resposta que voce me passou funcionou perfeitamente! Muito Obrigado

você possui algum método para eu armazenar as os nomes das fotos em uma tabela do banco? pois este procedimento estou fazendo por um .bat e depois importando para o access

ex: tenho uma pasta
C:\fotos\46 A 51.jpg
C:\fotos\90 A 95.jpg
C:\fotos\150 A 158.jpg

no caso eu nao necessito da extenção ".jpg"

somente no nome da foto.
teria como eu armazenar os nomes das fotos conforme te passei anteriormente em uma  tabela?

Não entendi bem. Como esses nomes devem aparecer na tabela? E por que armazenar eles em tabela de novo se você já tem eles armazenados? Está ocupando espaço que poderá lhe fazer falta futuramente.

eu queria saber um jeito de armazenar todos os nomes de fotos que possui em uma determinada pasta.

pois conforme eu falei anteriormente esse procedimento eu estou fazendo manual.
eu só precisava saber se tem algum método que copia todos os nomes de uma determinada pasta e armazena em uma tabela.

Eu insisto que isso não será legal para o seu banco. Se as imagens estão na pasta, você não precisa ocupar espaço no banco colocando os nomes delas. Basta carregar esses nomes direito em uma listbox por exemplo em um formulário. Armazenar os nomes irá gastar espaço sem necessidade no seu banco. Para isso você pode fazer um loop na pasta. Algo como:

Código:

   Dim fs As Object, f As Object, f1 As Object, fc As Object

    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder("C:\Imagens")
    Set fc = f.Files

    Me.lstArquivos.RowSourceType = "Value List"
    Me.lstArquivos.RowSource = ""

    For Each f1 In fc
        Me.lstArquivos.AddItem f1.Name
    Next

Estou supondo que tenha uma listbox no formulário de nome "lstArquivos".

Obrigado pela ajuda que me deu!

Funcionou tudo Perfeito!