Puoi provare a riconoscere una cartella (deve essere nella stessa directory dell'exe) con questo codice, che assegnerai ad una variabile
codice:
Dim path As String = My.Application.Info.DirectoryPath & "\123\"
E da lì poi procedi con il copiare ciò che ti serve.
Tieni presente che la directory che vuoi copiare deve trovarsi nello stesso percorso dell'exe.

Spero di esserti stato d'aiuto