codice:
Private Sub mnu_file_copia_sicurezza_Click()
 
FileCopy txt_PathSelezione.Text, txt_PathDestinazione.Text

Call Shell("Explorer.exe " & PathDestinazione, vbNormalFocus)

End Sub
Prova così, la prima TXT è la cartella che vuoi copiare, la seconda è dove andrà a copiarla