vb.net导出excel保存到桌面的问题

[andre521]

我用vb.net生成了一个excel表格，我想把它保存到桌面，一开始程序里路径直接用的是我的电脑里桌面的路径，后来发现由于用户名不一样，程序到其他电脑上就用不了了。
我在网上找到了获取桌面路径的语句 path = System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
但是用什么类型的对象可以保存这个路径？
Dim sw As FileStream = File.Create("C:\Users\xiaoqi\Desktop\有限元计算结果.xlsx", FileMode.Create)
OutPbook.Write(sw)
sw.Close()
这是我原来写的代码，应该怎么改才能在任何电脑上都能保存到桌面。

[mjzxlmg]

Public DesktopPath As String = OpenRegistryPath(Registry.CurrentUser, "/Software/Microsoft/Windows/CurrentVersion/Explorer/Shell Folders").GetValue("Desktop").ToString()
Public Function OpenRegistryPath(root As RegistryKey, s As String) As RegistryKey
        s = s.Remove(0, 1) & "/"
        While s.IndexOf("/") <> -1
            root = root.OpenSubKey(s.Substring(0, s.IndexOf("/")))
            s = s.Remove(0, s.IndexOf("/") + 1)
        End While
        Return root
    End Function

[楚狂歌]

获取桌面就是你说的那个啊，返回的字符串

[楚狂歌]

path & "\excel.xls"

[Tiger_Zhao]

'后面要用到 System.IO.Path，所以不要取容易引起歧义的命名'
Dim desktopPath As String = System.Environment.GetFolderPath(Environment.SpecialFolder.Desktop)
Dim sw As FileStream = File.Create(Path.Combine(desktopPath ,"有限元计算结果.xlsx"), FileMode.Create)
OutPbook.Write(sw)
sw.Close()

[JirlangLianHongCh]

 FILENAME = Environment.GetFolderPath(Environment.SpecialFolder.Desktop) & "\" & E & "TOP100.xls "

[无涯大者]

引用 7 楼 gghhvva 的回复:

为什么不用SaveFileDialog

这个可以自己选择默认保存路径!

[gghhvva]

为什么不用SaveFileDialog

[hzybc]

保存到C盘，存在权限问题，放在其它盘试试 或者更改权限设置

[tayirvb]

 Dim MyDesktop As String =Environment.GetEnvironmentVariable("Desktop")