Visual Basic - UREGENTE cambiar nombre archivo

Tengo dos dudas:
1. Necesito conocer algun codigo o comando para que me diga si la carpeta o file "C:\Tem_Sum\" se encuentra o no.
2. Necesito conocer algun codigo o comando que me ayude a copiar un archivo de una carpeta (C:\fuente) a otra (C:\destino) y que su nombre ("C\fuente\prueba1.mdb") sea igual al archivo al nombre de la carpeta destino (C:\destino\prueba.mdb")

Gracias!!!!!!!!!

ahi te dejo un ejemplo

Set Cpy = CreateObject(\"Scripting.FileSystemObject\")
If Cpy.folderexists(App.Path & \"\\Respaldo\\\") Then
If Not Cpy.fileexists(App.Path & \"\\Respaldo\\\" & Format(Date, \"DDMMYYYY\") & Mid(Ruta, Len(Ruta) - 3, 4)) Then
Cpy.movefile Ruta, App.Path & \"\\Respaldo\\\" & Format(Date, \"DDMMYYYY\") & Mid(Ruta, Len(Ruta) - 3, 4)
Else
res = MsgBox(\"El Archivo ya existe desea sobreescribir\", vbInformation + vbYesNo, \"Archivo Existente\")
If res = vbYes Then
Cpy.copyfile Ruta, App.Path & \"\\Respaldo\\\" & Format(Date, \"DDMMYYYY\") & Mid(Ruta, Len(Ruta) - 3, 4)
Cpy.deletefile Ruta, True
End If
End If
Else
Cpy.createfolder App.Path & \"\\Respaldo\"
If Not Cpy.fileexists(App.Path & \"\\Respaldo\\\" & Format(Date, \"DDMMYYYY\") & Mid(Ruta, Len(Ruta) - 3, 4)) Then
Cpy.movefile Ruta, App.Path & \"\\Respaldo\\\" & Format(Date, \"DDMMYYYY\") & Mid(Ruta, Len(Ruta) - 3, 4)
Else
res = MsgBox(\"El Archivo ya existe desea sobreescribir\", vbInformation + vbYesNo, \"Archivo Existente\")
If res = vbYes Then
Cpy.copyfile Ruta, App.Path & \"\\Respaldo\\\" & Format(Date, \"DDMMYYYY\") & Mid(Ruta, Len(Ruta%2