[Resolvido]Se não existir ficheiro accdb copia o accde

Boa tarde amigos

Nesta função se não existe um ficheiro accdb, copia o accde

Sub CopiaTodosOsFicheiros()
On Error Resume Next
Dim FSO
Dim sfol As String, dfol As String
sfol = CurrentProject.path
dfol = Me!CaminhoEscolhido
Set FSO = CreateObject("Scripting.FileSystemObject")
On Error Resume Next
If Not FSO.FolderExists(sfol) Then
MsgBox sfol & " Caminho Inválido.", vbInformation, "Erro"
ElseIf Not FSO.FolderExists(dfol) Then
MsgBox dfol & " Caminho Inválido.", vbInformation, "Erro"
Else

' aqui se não existe um copia o outro e vice versa
'-----------------------------
If ("\*.accdb") = 0 Then
FSO.CopyFile (sfol & "\*.accde"), dfol
Else
FSO.CopyFile (sfol & "\*.accdb"), dfol
End If
End If
'-----------------------
'FSO.CopyFile (sfol & "\*.accdb"), dfol
'FSO.CopyFile (sfol & "\*.accde"), dfol
FSO.CopyFolder sfol & "\" & "PDF", dfol & "PDF"
FSO.CopyFolder sfol & "\" & "Imagens", dfol & "Imagens"
FSO.CopyFolder sfol & "\" & "Tabelas", dfol & "Tabelas"
       
If Err.Number = 53 Then MsgBox "Nada Encontrado."
End Sub


Obrigado

Olá Assis, Boa Tarde, teste assim:

FSO.CopyFile (sfol & "\*.accd?"), dfol

Não sei se dá!
Abraço

Teixeira

Não sei se já tinha lido o não, mas .... afinal sim o erro era meu:
Sim

Obrigado

Obrigado pelo retorno.
Abraço

Obrigado Teixeira