为什么这段代码不起作用？ （VB.Net）

Question

我遇到以下代码的问题：

My.Computer.FileSystem.CopyFile("D:\FrewGame\Game\FrewShort.lnk", "%USERPROFILE%\Desktop\" & "Name.lnk") 

它不起作用。

Answer 1

要获取当前用户的主目录：

Dim homeDir As String = System.Environment.GetEnvironmentVariable("USERPROFILE")

然后复制文件：

My.Computer.FileSystem.CopyFile("D:\FrewGame\Game\FrewShort.lnk", homeDir & "\Desktop\" & "Name.lnk")