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

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

Tópico de origem da dúvida:
https://www.maximoaccess.com/t913-fso-filesystemobject-para-manipularmos-arquivos

???

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


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

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

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