VB.NET中File.Copy生成的目标路径意外拼接应用exe路径，如何修复？

原代码 #

Dim sm As String = "%userprofile%\start menu\programs\CatsWithCaptions"
File.Copy(Form1.txtFPath.Text & "\Publish\Cats With Captions.lnk", sm)

错误信息 #

F:\VB.NET\Setups\Test%userprofile%\start menu\programs\CatsWithCaptions.lnk 路径不存在。

问题原因 #

%userprofile%是系统环境变量，直接作为字符串使用时不会被自动解析，系统将其视为普通路径片段。同时File.Copy的目标参数如果是未解析的相对路径格式，会自动拼接当前程序的工作目录（即exe所在的F:\VB.NET\Setups\Test）作为前缀，最终生成错误路径。

修正方案 #

需要先解析环境变量为实际系统路径，同时规范路径拼接方式，确保目标是完整文件路径：

' 解析环境变量，获取目标目录的真实路径
Dim targetDir As String = Environment.ExpandEnvironmentVariables("%userprofile%\Start Menu\Programs\CatsWithCaptions")

' 确保目标目录存在，不存在则创建
If Not Directory.Exists(targetDir) Then
    Directory.CreateDirectory(targetDir)
End If

' 拼接完整的目标文件路径
Dim targetFilePath As String = Path.Combine(targetDir, "Cats With Captions.lnk")

' 使用Path.Combine安全拼接源路径，执行复制
File.Copy(Path.Combine(Form1.txtFPath.Text, "Publish", "Cats With Captions.lnk"), targetFilePath)

关键修正点 #

• 用Environment.ExpandEnvironmentVariables解析%userprofile%，将其转换为实际的用户目录（例如C:\Users\你的用户名），避免被当作相对路径处理。
• 使用Path.Combine拼接路径，自动处理路径分隔符问题，比直接用&拼接更可靠。
• 增加目标目录检查与创建逻辑，避免因目录不存在导致的复制失败。
• 明确指定目标文件的完整路径，原代码中仅传入目录路径，不符合File.Copy的参数要求。

内容的提问来源于stack exchange，提问作者WHerschel