Access - Función Dir vba

FileCopy Dir(Ruta & Cliente & "\Productos_ACC\" & Codigo & "\Doc\" & Cod & "." & VersionAnterior & ".*" & ".pdf"), Ruta & Cliente & "\Productos_ACC\" & Codigo & "\Doc\0_Obsoleto_ACC" & "\" & Cod & "." & VersionAnterior & "." & NumVer & ".pdf"

Dim TempCarpeta As String ' declaro una variable para carpeta temporal para ver si existe

Dim nombrecarpeta As String

nombrecarpeta = Me.NUMERO ' aqui asigno la variable nombre el nombre actual del textbox

TempCarpeta = Dir("C:\CLIENTES\" & nombrecarpeta, vbDirectory) ' aqui miro si existe la carpeta en la ruta clientes  con el nombre carpeta osea el nombre del textbox

If TempCarpeta = "" Then ' pregunto que si no existe entoces  creala con funcio MKDIR

MkDir "C:\CLIENTES\" & nombrecarpeta

end if

FileCopy "C:\Archivo.pdf", "C:\Copia.pdf"

FileCopy "ruta origen", "ruta destino"