MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Renomear arquivos em uma pasta

    avatar
    HugoLuiz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Renomear arquivos em uma pasta Empty [Resolvido]Renomear arquivos em uma pasta

    Mensagem  HugoLuiz 2/12/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
    [Resolvido]Renomear arquivos em uma pasta AttachmentArquivos.zip
    Anexos
    Você não tem permissão para fazer download dos arquivos anexados.
    (256 Kb) Baixado 8 vez(es)
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Renomear arquivos em uma pasta Empty Re: [Resolvido]Renomear arquivos em uma pasta

    Mensagem  criquio 3/12/2014, 00:12

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


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    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.

    avatar
    HugoLuiz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Renomear arquivos em uma pasta Empty Re: [Resolvido]Renomear arquivos em uma pasta

    Mensagem  HugoLuiz 3/12/2014, 00:21

    isso mesmo, criquio
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Renomear arquivos em uma pasta Empty Re: [Resolvido]Renomear arquivos em uma pasta

    Mensagem  criquio 3/12/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: www.vcssistemas.com.br

    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.

    avatar
    HugoLuiz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Renomear arquivos em uma pasta Empty Re: [Resolvido]Renomear arquivos em uma pasta

    Mensagem  HugoLuiz 3/12/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
    avatar
    HugoLuiz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Renomear arquivos em uma pasta Empty Re: [Resolvido]Renomear arquivos em uma pasta

    Mensagem  HugoLuiz 3/12/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
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Renomear arquivos em uma pasta Empty Re: [Resolvido]Renomear arquivos em uma pasta

    Mensagem  criquio 3/12/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: www.vcssistemas.com.br

    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.

    avatar
    HugoLuiz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Renomear arquivos em uma pasta Empty Re: [Resolvido]Renomear arquivos em uma pasta

    Mensagem  HugoLuiz 3/12/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
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Renomear arquivos em uma pasta Empty Re: [Resolvido]Renomear arquivos em uma pasta

    Mensagem  criquio 3/12/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 4/12/2014, 02:07, editado 2 vez(es)


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    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.

    avatar
    HugoLuiz
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Renomear arquivos em uma pasta Empty Re: [Resolvido]Renomear arquivos em uma pasta

    Mensagem  HugoLuiz 4/12/2014, 02:04

    Obrigado pela ajuda que me deu!

    Funcionou tudo Perfeito!

    Conteúdo patrocinado


    [Resolvido]Renomear arquivos em uma pasta Empty Re: [Resolvido]Renomear arquivos em uma pasta

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 16:50