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]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Compartilhe

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  Caio em Ter 26 Abr 2016, 21:38

    Esse código é inserido no "ao clicar" de um botão ou é um módulo?

    Tópico de origem da dúvida:

    [Você precisa estar registrado e conectado para ver este link.]

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  Caio em Sex 06 Maio 2016, 13:38

    ???

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2324
    Registrado : 14/08/2013

    Re: [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  FabioPaes em Dom 08 Maio 2016, 01:58

    Pode inserir no evento ao clicar de um botao amigo...
    So lembrando que sao varios comandos nesse post...

    Ex:

    Em um Modulo coloque:
    Código:
    Sub VerificaSeFicheiroExiste()
    Dim fso
    Dim file As String
    file = "C:\Teste.xls" ' caminho do ficheiro
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FileExists(file) Then
    MsgBox file & " não encontrado.", vbInformation, "Não Encontrado"
    Else
    MsgBox file & " encontrado.", vbInformation, "Encontrado"
    End If
    End Sub

    E em um Botão por exemplo coloque assim (para chamar a Função)

    Código:
    Call VerificaSeFicheiroExiste ' Ou simplesmente    VerificaSeFicheiroExiste




    Agora colocando direto em um Botão, Basta colocar no evento ao clicar:

    Código:
    Private Sub Comando12_Click()
    Dim fso
    Dim file As String
    file = "C:\Teste.xls" ' caminho do ficheiro
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FileExists(file) Then
    MsgBox file & " não encontrado.", vbInformation, "Não Encontrado"
    Else
    MsgBox file & " encontrado.", vbInformation, "Encontrado"
    End If
    End Sub


    Última edição por FabioPaes em Seg 09 Maio 2016, 01:33, editado 3 vez(es)

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    Registrado : 15/03/2013

    Exemplo FSO - FileSystemObject para manipularmos arquivos

    Mensagem  ahteixeira em Dom 08 Maio 2016, 09:31

    Olá Caio  Souza,
    Ao tempo que é membro já deveria saber as regras do fórum:

    REGRAS DO FÓRUM
    1. Tenha paciência com quem coloca aqui as suas duvidas.
    2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
    3. Não colocar diversas vezes a mesma dúvida.
    4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
    5. Retorne sempre se deu certo, esse retorno é muito importante.
    6. Respeite toda a equipe Staff e demais membros deste fórum.
    7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
    8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
    9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
    10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
    11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
    12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
    13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.

    O tópico foi dividido e a sua mensagem editada.
    Abraço

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  Caio em Seg 23 Maio 2016, 16:26

    Mil perdões Ahteixeira.

    Fabio paes, consegui.

    Porém precisava de mais uma ajuda!

    A pasta de destino muda a cada vez que crio um registro ou seja, a cada registro tenho uma pasta.
    como especificar essa pasta?
    Já tentei da seguinte forma, porém sem sucesso.

    "Pasta de destino" & Me.txt_campodoform

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    Registrado : 15/03/2013

    Re: [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  ahteixeira em Seg 23 Maio 2016, 16:49

    Olá Caio,
    Poste a parte do código que está a utilizar onde varia a "pasta".
    Abraço

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  Caio em Seg 23 Maio 2016, 17:54

    Sub CopiaTodosOsFicheiros()
    Dim fso
    Dim sfol As String, dfol As String
    sfol = "G:\CaioFabio\Forms de tarefas" ' caminho de origem da pasta
    dfol = "G:\Tratativas\Tarefa" & Me.txt_id' caminho de destino da pasta
    Set fso = CreateObject("Scripting.FileSystemObject")
    On Error Resume Next
    If Not fso.FolderExists(sfol) Then
    MsgBox sfol & " caminho invalido.", vbInformation, "Erro"
    ElseIf Not fso.FolderExists(dfol) Then
    MsgBox dfol & " caminho invalido.", vbInformation, "Erro"
    Else
    fso.CopyFile (sfol & "\*.*"), dfol ' Alterar "\ *.*" para "\ *. xls" para mover só arquivos Excel
    End If
    If Err.Number = 53 Then MsgBox "não encontrado."
    End Sub


    Criei um pasta com o nome "tarefa" e funcionou.
    porem preciso que case o nome "tarefa" de acordo com registro que estou editando.

    Exemplo: Tarefa 1012

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    Registrado : 15/03/2013

    Re: [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  ahteixeira em Seg 23 Maio 2016, 18:06

    Caio, aparentemente está bem

    dfol = "G:\Tratativas\Tarefa" & Me.txt_id' caminho de destino da pasta

    Verifique se quando chama a sub qual o valor de me.txt_id
    Será que existe, não tem que gravar primeiro o registo ou criar a pasta se não existir.

    Fica a dica
    Abraço

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  Caio em Seg 23 Maio 2016, 19:20

    o valor do campo "txt_id" aparece quando começo a escrever a tarefa.

    a pasta é criada quando clico no botão "salvar".
    e chamo a Sub no evento "ao fechar" do formulário, pois fecho depois que clico no "salvar".

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  Caio em Seg 23 Maio 2016, 20:38

    Aparece a seguinte mensagem:




    Erro de compilação:

    Uso inválido da palavra-chave Me

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    Registrado : 15/03/2013

    Re: [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  ahteixeira em Seg 23 Maio 2016, 22:14

    Ola, teste no evento salvar.
    Abraw

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  Caio em Seg 23 Maio 2016, 22:18

    No botão salvar já ta o código que faz gerar a pasta.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    Registrado : 15/03/2013

    Re: [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  ahteixeira em Ter 24 Maio 2016, 11:27

    Olá Caio,
    Eu acho que deveria ficar no final , depois de criar a pasta, no evento "ao Salvar"

    Se pretende no botão ao fechar inclua este codigo para testar:
    Código:
    MsgBox "Valor de txt_id ao sair é: " & Me.txt_id
    e diga ou poste imagem do resultado obtido.
    Abraço

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  Caio em Ter 24 Maio 2016, 16:36

    Bom dia,
    Segue fotos referente aos erros.

    Foto 1: Erro do código que chama a Sub no evento "ao fechar" do formulário, (no botão "salvar" ocorre o mesmo erro).

    Foto 2: Mensagem que aparece no evento "ao fechar" com o código que vc me passou.

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  Caio em Ter 24 Maio 2016, 16:37

    Foto 1
    Anexos
    Foto 1.PNG
    Você não tem permissão para fazer download dos arquivos anexados.
    (61 Kb) Baixado 10 vez(es)


    Última edição por Predella em Ter 24 Maio 2016, 16:40, editado 1 vez(es)

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  Caio em Ter 24 Maio 2016, 16:37

    Foto 2
    Anexos
    Foto 2.PNG
    Você não tem permissão para fazer download dos arquivos anexados.
    (55 Kb) Baixado 3 vez(es)

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    Registrado : 15/03/2013

    Re: [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  ahteixeira em Ter 24 Maio 2016, 16:57

    Olá Caio,

    Copie o código da sub d cole no evento ao fechar.
    Onde colocou o teste da foto 2 e teste.
    Abraço

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  Caio em Ter 24 Maio 2016, 18:24

    Coloquei e deu o mesmo erro da foto 1 :/

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    Registrado : 15/03/2013

    Re: [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  ahteixeira em Ter 24 Maio 2016, 18:33

    Coloque só o codigo que esta dentro da sub
    Sub CopiaTodosOsFicheiros()

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  Caio em Ter 24 Maio 2016, 18:38

    Copiei somente o conteúdo da Sub e colei no "ao fechar" do formulário.

    Não podemos especificar um campo sem que ele esteja no nosso próprio domínio, a função "Me" funciona para códigos dentro da programação do formulário.

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  Caio em Ter 24 Maio 2016, 18:47

    Resolvido, obrigado pela ajuda!!!

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    Registrado : 15/03/2013

    Re: [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  ahteixeira em Ter 24 Maio 2016, 20:45

    Olá Caio, compreendeu, estava a chamar a sub.
    Na minha opinião, ficaria melhor no evento ao salvar.
    Só tem que fazer da mesma forma, no final do codigo que tem a salvar.
    Obrigado pelo retorno e abraço

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Re: [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  Caio em Qua 25 Maio 2016, 10:19

    Sim Ahteixeira,
    Coloquei no botão "salvar" depois do código que faz gerar a pasta.
    e o código para salvar no "Após atualizar" do formulário.

    Funcionou perfeitamente.

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3214
    Registrado : 15/03/2013

    Re: [Resolvido]Dúvida exemplo: FSO - FileSystemObject para manipularmos arquivos

    Mensagem  ahteixeira em Qua 25 Maio 2016, 11:34

    Olá Caio, ultima dica.
    Salvar deveria estar no evento do botão salvar.
    Coloque no fim do código no evento salvar o que tem no evento após atualizar (parte apenas salvar).
    Nota, apenas é a minha opinião.
    Se preferir pode manter como está.
    Abraço

      Data/hora atual: Qui 08 Dez 2016, 14:03