[Resolvido]botão para backup

amigos estou com esse codigo para criar um backup do bd numa pasta da rede mas esta dando um erro de compilação 76 e diz "caminho não encontrado".alguem poderia me ajudar? Ele aponta para o que esta sublinhado

Private Sub Comando95_Click()
Dim source As String
Dim destine As String
Dim fso As Variant

source = "\\10.32.16.3\s4\ferrantentaria\FERRAMENTARIA\Cadastro de ferramentas.mdb"
destine = "\\10.32.16.3\s4\BEI\Pastas pessoais\PINHEIRO"

Set fso = CreateObject("Scripting.FileSystemObject")
yearstr = Year(Date)
monthstr = Month(Date)
daystr = Day(Date)
If monthstr < 10 Then
monthstr = "0" & monthstr
End If
If daystr < 10 Then
daystr = "0" & daystr
End If
destine = destine & yearstr & monthstr & daystr
fso.CopyFolder source, destine, True
Set fso = Nothing
MsgBox "O Banco de dados foi salvo"
End Sub

Olá,
A pasta destino existe?

Tente assim:
destine = "\\10.32.16.3\s4\BEI\Pastas pessoais\PINHEIRO\"

Abraço

existe sim, mudei e continua a mesma coisa.

Olá Alex,
Você quer copiar um ficheiro e não uma pasta (folder)
E também falta a extensão do arquivo copiado.

Altere estas duas linhas e teste:

Código:

destine = destine & yearstr & monthstr & daystr & ".mdb"
fso.CopyFile source, destine, True

Abraço

obrigado amigo funcionou perfeitamente.

Olá Alex,
Obrigado pelo retorno.
O fórum agradece.
Abraço