[Resolvido]copiar pasta de um diretório para outro

Ola
Quero copiar pasta de um diretório para outro
Sendo que no meu formulario tem os campos informado:
1- EndereçoPasta =
C:\Users\Administrador\Documents\FOTOS 2012\Fotos 2012 - Ribeiro\68-12=REP68000-OSCAR-RIBEIRO ( essa ultima é a pasta criada)
2- Local Pasta Criada =
C:\Users\Administrador\Documents\FOTOS 2012\Fotos 2012 - Ribeiro ( sendo que essa ultima pasta muda de acordo com nome escolhido no formulario, elas já estão no diretório C:\Users\Administrador\Documents\FOTOS 2012\ )
3- Nome Pasta Fotos =
68-12=REP68000-OSCAR-RIBEIRO ( esse nome muda de acordo com os dados do formulario)
Estou conseguindo criar as pasta nos diretórios, de acordo com os nomes que coloco no formulario. isso resolvido
usando esse comando consigo copiar a pasta, mas fico preso a um diretório somente
----------------
Private Sub COPIARPASTAPERITO_Click()
Dim CopiaSegura As Object
Dim Caminho As String
Caminho = "C:\Users\Administrador\Documents\FOTOS 2012"
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFolder "C:\Users\Administrador\Documents\FOTOS 2012\Fotos 2012 - Ribeiro\" & Me.NomeDaPastas.Value, "C:\formatos\Fotos 2012\" & Me.NomeDaPastas.Value
'CopiaSegura.CopyFolder "Me.EndereçoPasta.Value\" & Me.NomeDaPastas.Value, "C:\formatos\Fotos 2012\" & Me.NomeDaPastas.Value '( essa linha da erro)
End Sub

--------------------------
Quero copiar a pasta para outro diretório logo depois que eu colocar as fotos dentro dela
Estou criando a pasta com esse código que funciona perfeito.

Private Sub Comando128_Click()
'adaptado por Norberto Rost
'objetivo: criar nova subpasta para Fotógrafo a partir da pasta do Fotógrafo atual
'verifica se o nome da nova pasta foi informado no campo NomeDaPastas
If IsNull(Me.NomeDaPastas) Then
MsgBox "Preencha o campo que informa o nome para a pasta."
Me.NomeDaPastas.SetFocus
Exit Sub
End If
'verifica se existe um caminho no campo LocalPasta
If IsNull(Me.LocalPastaCriada) Then
MsgBox "O campo que informa o caminho está vazio!"
Me.LocalPastaCriada.SetFocus
Exit Sub
End If
Dim resultado As VbMsgBoxResult
resultado = MsgBox("Criar nova subpasta para este Fotógrafo?", vbYesNo, "Confirmação")
If resultado = vbYes Then
'habilite a referencia Microsoft Scripting Runtime
'By JPaulo ® Maximo Access
Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
'verifica se existe esta subpasta
If fso.folderexists(Me.LocalPastaCriada.Value & "\" & Me.NomeDaPastas.Value) Then
MsgBox "A pasta já existe!"
Else
MkDir (Me.LocalPastaCriada.Value & "\" & Me.NomeDaPastas.Value)
'Me.LocalPasta.Value = Me.LocalPasta.Value & "\" & Me.NomeDaPastas.Value
Me.NomeDaPastas.Requery
MsgBox "Nova pasta criada!"
Dim aplicativo As String
Dim Arquivo As String
aplicativo = "c:\WINDOWS\explorer.exe"
Arquivo = Me.EndereçoPasta.Value
'Me.Requery
Call Shell(aplicativo & " " & Chr(34) & Arquivo, vbMaximizedFocus)
End If
End If
Me.Qtde_fotos.SetFocus

End Sub

-------------------------------

Obrigado Norbs
Vou verificar, depois retorno

Norbs
Como sempre nos ajudando, muito obrigado
Esse código reslveu meu problema


Sub COPIARPASTA_Click()

'Sub CopiaPastaExistente()
Dim fso
Dim sfol As String, dfol As String
sfol = Me.EndereçoPasta ' caminho de origem da pasta
dfol = "C:\formatos\Fotos 2012\" & Me.NomeDaPastas.Value ' caminho de destino da pasta
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(dfol) Then
fso.CopyFolder sfol, dfol
MsgBox "PASTA CRIADA!"
Me.NovoRegistro.SetFocus
Else
MsgBox dfol & " existente!", vbExclamation, "Sucesso"
Me.NovoRegistro.SetFocus
End If
End Sub