Почему мой код неправильный?

---

Dim newName As String = String.Format("{0}.exe", Path.GetRandomFileName().Replace(".", ""))
        Dim oldName As String = "C:\j\WindowsApplication1.exe"
        If File.Exists(oldName) Then
            File.Move(oldName, newName)
            Dim lngMoveFile As Long
            lngMoveFile = MoveFile("C:\test.exe", My.Computer.FileSystem.SpecialDirectories.Desktop & Application.ExecutablePath)

Я хочу, чтобы мой код перемещал исполняемый файл на рабочий стол, и я хочу, чтобы приложение находило текущее имя файла, потому что я использую "GetRandomFileName" для изменения имени файла. Я использовал:

Application.ExecutablePath

Почему это неправильно?

Что я уже пробовал:

Dim newName As String = String.Format("{0}.exe", Path.GetRandomFileName().Replace(".", ""))
        Dim oldName As String = "C:\j\WindowsApplication1.exe"
        If File.Exists(oldName) Then
            File.Move(oldName, newName)
            Dim lngMoveFile As Long
            lngMoveFile = MoveFile("C:\test.exe", My.Computer.FileSystem.SpecialDirectories.Desktop & Application.ExecutablePath)

---