[Resolvido]Problemas com "fso"

Jeferson de Paula 28/9/2013, 02:12

Jeferson de Paula: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 361
Registrado : 06/04/2013

Mensagem nº1

Problemas com "fso"

Mensagem Jeferson de Paula 28/9/2013, 02:12

Olá Pessoal,

Eu gostaria de copiar uma pasta e estou usando o "FSO", mas não estou conseguindo acertar o método, alguém pode me ajudar?

Código:: Public Function fncCopyFolder() Dim fso As New FileSystemObject Dim strFolderSystem As String, strFolderBackup As String strFolderSystem = "C:\Aplicativo" strFolderBackup = "C:\Aplicativo\Backup" fso.CopyFolder (strPastaDoSistema & "\*", strBackup, True) End Function

Mensagem do Erro

Erro de compilação:
Era esperado: =

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha [Resolvido]Problemas com "fso" 001_1810

?

.................................................................................
Atenciosamente
Aldo Jeferson de Paula
Blog Support SQL Server
Fórum Support SQL Server

Quem nunca ouviu alguém falando mal do Microsoft Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

Tópicos Recomendáveis
> Kit Geográfico 2013
> Novo na Programação do Access?
> Curso de Access/VBA Completo
> Conceitos Básicos em T-SQL

**Gilberto Rocha** 28/9/2013, 02:46

Gilberto Rocha

Gilberto Rocha: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1027
Registrado : 21/01/2010

Mensagem nº2

Re: [Resolvido]Problemas com "fso"

Mensagem Gilberto Rocha 28/9/2013, 02:46

Repare que as variáveis estão com nomes diferentes, além disso tem que tirar os parenteses:

Public Function fncCopyFolder()
Dim fso As New FileSystemObject
Dim strFolderSystem As String, strFolderBackup As String

strFolderSystem = "C:\Excel\"
strFolderBackup = "C:\Excel2\"
fso.CopyFolder strFolderSystem & "*", strFolderBackup, True

End Function

.................................................................................
Resolveu? Clique em resolvido!
Sistema para administração de Igrejas e Ministérios Evangélicos Congrega Fácil Online.
Seja um representante em sua cidade!
Código de cliente para testes: congregafacil

SisFAT Cursos Online
www.congregafacil.com

Analista de BI SR

Jeferson de Paula 28/9/2013, 03:00

Jeferson de Paula

Jeferson de Paula: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 361
Registrado : 06/04/2013

Mensagem nº3

Re: [Resolvido]Problemas com "fso"

Mensagem Jeferson de Paula 28/9/2013, 03:00

Opa! Foi mal pela inginorancia kkkkk... Então Gilberto, parou de exibir a mensagem anterior mas agora exibe outra...

Mensagem do Erro
Erro em tempo de execução: 5
Argumento ou chamada de procedimento inválida.

Código Usado (Corrigido Por Gilberto)

Código:: Public Function fncCopyFolder() Dim fso As New FileSystemObject Dim strFolderSystem As String, strFolderBackup As String strFolderSystem = "C:\Aplicativo\" strFolderBackup = "C:\Aplicativo\Backup\" fso.CopyFolder strFolderSystem, strFolderBackup, True End Function

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha [Resolvido]Problemas com "fso" 001_1810

?

.................................................................................
Atenciosamente
Aldo Jeferson de Paula
Blog Support SQL Server
Fórum Support SQL Server

Quem nunca ouviu alguém falando mal do Microsoft Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

Tópicos Recomendáveis
> Kit Geográfico 2013
> Novo na Programação do Access?
> Curso de Access/VBA Completo
> Conceitos Básicos em T-SQL

Jeferson de Paula 28/9/2013, 03:06

Jeferson de Paula

Jeferson de Paula: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 361
Registrado : 06/04/2013

Mensagem nº4

Re: [Resolvido]Problemas com "fso"

Mensagem Jeferson de Paula 28/9/2013, 03:06

Tentei usar também o exemplo do João Paulo no tópico que criou dedicado ao FSO (Referencia: FSO - FileSystemObject para manipularmos arquivos) e o mesmo erro (Erro em tempo de execução: 5) continua aparecendo.

Exemplo do João Paulo

Código:: Sub CopiaPastaExistente() Dim fso Dim sfol As String, dfol As String sfol = "c:\SuaPasta" ' caminho de origem da pasta dfol = "e:\SuaPasta" ' caminho de destino da pasta Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FolderExists(dfol) Then fso.CopyFolder sfol, dfol Else MsgBox dfol & " existente!", vbExclamation, "Sucesso" End If End Sub

Adaptação

Código:: Public Function fncCopyFolder() Dim fso Dim sfol As String, dfol As String sfol = "C:\Aplicativo" ' caminho de origem da pasta dfol = "C:\Aplicativo\Backup" ' caminho de destino da pasta Set fso = CreateObject("Scripting.FileSystemObject") If Not fso.FolderExists(dfol) Then fso.CopyFolder sfol, dfol Else MsgBox dfol & " existente!", vbExclamation, "Sucesso" End If End Function

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha [Resolvido]Problemas com "fso" 001_1810

?

.................................................................................
Atenciosamente
Aldo Jeferson de Paula
Blog Support SQL Server
Fórum Support SQL Server

Quem nunca ouviu alguém falando mal do Microsoft Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

Tópicos Recomendáveis
> Kit Geográfico 2013
> Novo na Programação do Access?
> Curso de Access/VBA Completo
> Conceitos Básicos em T-SQL

**Gilberto Rocha** 28/9/2013, 03:12

Gilberto Rocha

Gilberto Rocha: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1027
Registrado : 21/01/2010

Mensagem nº5

Re: [Resolvido]Problemas com "fso"

Mensagem Gilberto Rocha 28/9/2013, 03:12

Habilitou a referencia Microsoft Scripting Runtime?

.................................................................................
Resolveu? Clique em resolvido!
Sistema para administração de Igrejas e Ministérios Evangélicos Congrega Fácil Online.
Seja um representante em sua cidade!
Código de cliente para testes: congregafacil

SisFAT Cursos Online
www.congregafacil.com

Analista de BI SR

Jeferson de Paula 28/9/2013, 03:16

Jeferson de Paula

Jeferson de Paula: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 361
Registrado : 06/04/2013

Mensagem nº6

Re: [Resolvido]Problemas com "fso"

Mensagem Jeferson de Paula 28/9/2013, 03:16

Sim, esta habilitadíssima amigão!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha [Resolvido]Problemas com "fso" 001_1810

?

.................................................................................
Atenciosamente
Aldo Jeferson de Paula
Blog Support SQL Server
Fórum Support SQL Server

Quem nunca ouviu alguém falando mal do Microsoft Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

Tópicos Recomendáveis
> Kit Geográfico 2013
> Novo na Programação do Access?
> Curso de Access/VBA Completo
> Conceitos Básicos em T-SQL

**Gilberto Rocha** 28/9/2013, 20:11

Gilberto Rocha

Gilberto Rocha: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1027
Registrado : 21/01/2010

Mensagem nº7

Re: [Resolvido]Problemas com "fso"

Mensagem Gilberto Rocha 28/9/2013, 20:11

mande o banco ai!

.................................................................................
Resolveu? Clique em resolvido!
Sistema para administração de Igrejas e Ministérios Evangélicos Congrega Fácil Online.
Seja um representante em sua cidade!
Código de cliente para testes: congregafacil

SisFAT Cursos Online
www.congregafacil.com

Analista de BI SR

Jeferson de Paula 29/9/2013, 14:51

Jeferson de Paula

Jeferson de Paula: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 361
Registrado : 06/04/2013

Mensagem nº8

Re: [Resolvido]Problemas com "fso"

Mensagem Jeferson de Paula 29/9/2013, 14:51

Olá amigo, como solicitado segue parte da minha base de dados! Descompacte no diretório "C:\"!

Formulário: fmrBackup
Módulo: mdlBackup

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha [Resolvido]Problemas com "fso" 001_1810

?

Anexos

BDBackup.zip: Você não tem permissão para fazer download dos arquivos anexados.; (36 Kb) Baixado 34 vez(es)

.................................................................................
Atenciosamente
Aldo Jeferson de Paula
Blog Support SQL Server
Fórum Support SQL Server

Quem nunca ouviu alguém falando mal do Microsoft Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

Tópicos Recomendáveis
> Kit Geográfico 2013
> Novo na Programação do Access?
> Curso de Access/VBA Completo
> Conceitos Básicos em T-SQL

**JPaulo** 30/9/2013, 16:40

JPaulo

JPaulo: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 11016
Registrado : 04/11/2009

Mensagem nº9

Re: [Resolvido]Problemas com "fso"

Mensagem JPaulo 30/9/2013, 16:40

Olho vivo, tudo funciona;

O seu banco está na pasta Aplicação dentro da pasta Aplicativo;

Public Function fncCopyFolder()
Dim sfol As String, dfol As String
Dim fso

sfol = "C:\Aplicativo\Aplicação" ' Caminho de origem da pasta
dfol = "C:\Aplicativo\Backup" ' Caminho de destino da pasta

Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(dfol) = False Then
fso.CopyFolder sfol, dfol
Else
MsgBox dfol & " existente!", vbExclamation, "Sucesso"
End If
End Function

No backup fica o .laccdb porque o banco está aberto, tem de deletar depois da cópia;

Public Function fncCopyFolder()
Dim sfol As String, dfol As String
Dim fso

sfol = "C:\Aplicativo\Aplicação" ' Caminho de origem da pasta
dfol = "C:\Aplicativo\Backup" ' Caminho de destino da pasta

Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(dfol) = False Then
fso.CopyFolder sfol, dfol
'deleta o .laccdb no backup
fso.DeleteFile dfol & "\*.laccdb", False
Else
MsgBox dfol & " existente!", vbExclamation, "Sucesso"
End If
End Function

.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

Pay-Pal R$ Aqui
Pay-Pal € Aqui

Ou ainda: Aqui (Novo)

Sucesso e Bons Estudos
Success and Good Studies

[Resolvido]Problemas com "fso" Folder_announce_new

Utilize o Sistema de Busca do Fórum...
[Resolvido]Problemas com "fso" Folder_announce_new

102 Códigos VBA Gratuitos...
[Resolvido]Problemas com "fso" Folder_announce_new

Instruções SQL como utilizar...

Jeferson de Paula 30/9/2013, 17:33

Jeferson de Paula

Jeferson de Paula: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 361
Registrado : 06/04/2013

Mensagem nº10

Re: [Resolvido]Problemas com "fso"

Mensagem Jeferson de Paula 30/9/2013, 17:33

Olá Amigo JPaulo, sim meu banco de dados está na pasta "\Aplicação", mas o que eu quero por regra de desenvolvimento da empresa é que o Access copie a pasta do sistema ou seja a pasta "C:\Aplicativo" para a pasta "\Backup" que está dentro do diretório raiz do programa.

Valeu pelas dicas do arquivo "laccdb".

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha [Resolvido]Problemas com "fso" 001_1810

?

.................................................................................
Atenciosamente
Aldo Jeferson de Paula
Blog Support SQL Server
Fórum Support SQL Server

Quem nunca ouviu alguém falando mal do Microsoft Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

Tópicos Recomendáveis
> Kit Geográfico 2013
> Novo na Programação do Access?
> Curso de Access/VBA Completo
> Conceitos Básicos em T-SQL

**JPaulo** 30/9/2013, 18:02

JPaulo

JPaulo: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 11016
Registrado : 04/11/2009

Mensagem nº11

Re: [Resolvido]Problemas com "fso"

Mensagem JPaulo 30/9/2013, 18:02

Não tinha dito que queria copiar a pasta toda.

Pois infelizmente não vai conseguir...

Tente você mesmo, copiar a pasta Aplicativo com o Ctrl+C e na pasta Backup faça o Colar e veja o resultado.

Jamais poderá copiar uma pasta pai para uma subpasta filho desse pai... Laughing

.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

Pay-Pal R$ Aqui
Pay-Pal € Aqui

Ou ainda: Aqui (Novo)

Sucesso e Bons Estudos
Success and Good Studies

[Resolvido]Problemas com "fso" Folder_announce_new

Utilize o Sistema de Busca do Fórum...
[Resolvido]Problemas com "fso" Folder_announce_new

102 Códigos VBA Gratuitos...
[Resolvido]Problemas com "fso" Folder_announce_new

Instruções SQL como utilizar...

Jeferson de Paula 30/9/2013, 18:10

Jeferson de Paula

Jeferson de Paula: Avançado; Respeito às regras :

Sexo :
Localização :
Mensagens : 361
Registrado : 06/04/2013

Mensagem nº12

Re: [Resolvido]Problemas com "fso"

Mensagem Jeferson de Paula 30/9/2013, 18:10

Então JPaulo, até que rola com o Ctrl+C e Ctrl+V, mas percebi que o Access não consegue fazer isso mesmo... Valeu pelas dicas ai amigão!

Cumprimentos!

Este tópico o ajudou? Agradecer não custa nada e ainda nos motiva a continuar lhe ajudando. Então que tal dar um joinha [Resolvido]Problemas com "fso" 001_1810

?

.................................................................................
Atenciosamente
Aldo Jeferson de Paula
Blog Support SQL Server
Fórum Support SQL Server

Quem nunca ouviu alguém falando mal do Microsoft Access? Compartilhe suas experiências e conhecimentos, clique aqui e faça seu comentário!

Tópicos Recomendáveis
> Kit Geográfico 2013
> Novo na Programação do Access?
> Curso de Access/VBA Completo
> Conceitos Básicos em T-SQL

**JPaulo** 1/10/2013, 09:20

JPaulo

JPaulo: Moderador; Respeito às regras :

Sexo :
Localização :
Mensagens : 11016
Registrado : 04/11/2009

Mensagem nº13

Re: [Resolvido]Problemas com "fso"

Mensagem JPaulo 1/10/2013, 09:20

Ola;

Não não pode rolar, nem no seu sistema operativo nem em nenhum sistema windows, porque o windows não permite;

[Resolvido]Problemas com "fso" 01-10-10

.................................................................................
Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

Pay-Pal R$ Aqui
Pay-Pal € Aqui

Ou ainda: Aqui (Novo)

Sucesso e Bons Estudos
Success and Good Studies

[Resolvido]Problemas com "fso" Folder_announce_new

Utilize o Sistema de Busca do Fórum...
[Resolvido]Problemas com "fso" Folder_announce_new

102 Códigos VBA Gratuitos...
[Resolvido]Problemas com "fso" Folder_announce_new

Instruções SQL como utilizar...

Conteúdo patrocinado

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº14

Re: [Resolvido]Problemas com "fso"

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

[Resolvido]Problemas com "fso"

Problemas com "fso"

Re: [Resolvido]Problemas com "fso"

Re: [Resolvido]Problemas com "fso"

Re: [Resolvido]Problemas com "fso"

Re: [Resolvido]Problemas com "fso"

Re: [Resolvido]Problemas com "fso"

Re: [Resolvido]Problemas com "fso"

Re: [Resolvido]Problemas com "fso"

Re: [Resolvido]Problemas com "fso"

Re: [Resolvido]Problemas com "fso"

Re: [Resolvido]Problemas com "fso"

Re: [Resolvido]Problemas com "fso"

Re: [Resolvido]Problemas com "fso"

Re: [Resolvido]Problemas com "fso"

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada