MaximoAccess

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

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
    avatar
    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.]
    avatar
    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

    ???
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3336
    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)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4477
    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
    avatar
    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4477
    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
    avatar
    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4477
    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
    avatar
    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".
    avatar
    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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4477
    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
    avatar
    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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4477
    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
    avatar
    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.
    avatar
    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)
    avatar
    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)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4477
    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
    avatar
    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 :/
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4477
    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()
    avatar
    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.
    avatar
    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!!!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4477
    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
    avatar
    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.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4477
    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: Seg 23 Out 2017, 05:27