为什么我的代码错了？ [英] Why is my code wrong?

问题描述

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来更改文件名。我用过：

I want my code to move an executeable file to the desktop, and I want the application to find the current file name, because I use "GetRandomFileName" to change the filename. I used:

Application.ExecutablePath

为什么这么错？



我试过的：

Why is that wrong?

What I have tried:

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)

推荐答案

没关系：

lngMoveFile = MoveFile(My.Computer.FileSystem.SpecialDirectories.Desktop & "\" & IO.Path.GetFileName(Application.ExecutablePath), "C:\NAME.exe") 'paths of current and 

这篇关于为什么我的代码错了？的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！