MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Renomear arquivos em uma pasta

    Compartilhe

    HugoLuiz
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 67
    Registrado : 18/07/2014

    [Resolvido]Renomear arquivos em uma pasta

    Mensagem  HugoLuiz em Ter 02 Dez 2014, 23:57

    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.
    Anexos
    Arquivos.zip
    Anexos
    Você não tem permissão para fazer download dos arquivos anexados.
    (256 Kb) Baixado 4 vez(es)

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Renomear arquivos em uma pasta

    Mensagem  criquio em Qua 03 Dez 2014, 00:12

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


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    HugoLuiz
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 67
    Registrado : 18/07/2014

    Re: [Resolvido]Renomear arquivos em uma pasta

    Mensagem  HugoLuiz em Qua 03 Dez 2014, 00:21

    isso mesmo, criquio

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Renomear arquivos em uma pasta

    Mensagem  criquio em Qua 03 Dez 2014, 01:13

    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.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    HugoLuiz
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 67
    Registrado : 18/07/2014

    Re: [Resolvido]Renomear arquivos em uma pasta

    Mensagem  HugoLuiz em Qua 03 Dez 2014, 01:41

    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 Very Happy Very Happy

    HugoLuiz
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 67
    Registrado : 18/07/2014

    Re: [Resolvido]Renomear arquivos em uma pasta

    Mensagem  HugoLuiz em Qua 03 Dez 2014, 01:48

    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?

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Renomear arquivos em uma pasta

    Mensagem  criquio em Qua 03 Dez 2014, 16:17

    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.


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    HugoLuiz
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 67
    Registrado : 18/07/2014

    Re: [Resolvido]Renomear arquivos em uma pasta

    Mensagem  HugoLuiz em Qua 03 Dez 2014, 16:43

    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.

    criquio
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    Re: [Resolvido]Renomear arquivos em uma pasta

    Mensagem  criquio em Qua 03 Dez 2014, 17:09

    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".


    Última edição por criquio em Qui 04 Dez 2014, 02:07, editado 2 vez(es)


    .................................................................................
    Meu novo site: [Você precisa estar registrado e conectado para ver este link.]

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    HugoLuiz
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 67
    Registrado : 18/07/2014

    Re: [Resolvido]Renomear arquivos em uma pasta

    Mensagem  HugoLuiz em Qui 04 Dez 2014, 02:04

    Obrigado pela ajuda que me deu!

    Funcionou tudo Perfeito!

      Data/hora atual: Ter 06 Dez 2016, 05:43