为什么这段代码不起作用? (VB.Net)

时间:2014-09-02 08:03:04

标签: vb.net file

我遇到以下代码的问题:

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

它不起作用。

1 个答案:

答案 0 :(得分:1)

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

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

然后复制文件:

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