如何得到當前桌面路徑

rmb

如果要將一文件保存在當前桌面上，在不顯示保存對話框的情況下如何取得系統默認的路徑？

plxmm

"C:\Documents and Settings\?????\桌面"

rmb

謝謝plxmm,

不過可以用?????嗎? 因為會在不同的機器上運行.每個人的系統都不一樣.而且也不一定在C盤啊....

plxmm

????? 是当前windows用户名称。对你的 《每個人的系統都不一樣.而且也不一定在C盤啊》问题不太明白啊。

rmb

我是想用VBA自己獲得當前用戶的桌面路徑, 這樣的話才可以在不同的機器上都正確運行啊。

如果用固定的　"C:\Documents and Settings\?????\桌面" ，　那么如果操作系統裝在D盤或其它的盤,那就不對了啊...

plxmm

用这段代码，可能对你的问题解决有点启发啊。

Sub Check_SystemInfo() Dim x As Integer Dim Env As String x = 1 Env = Environ(x) Do Until Env = "" Env = Environ(x) Cells(x, 1) = Env x = x + 1 Loop MsgBox Environ("SYSTEMROOT") End Sub

[此贴子已经被作者于2005-10-29 15:50:29编辑过]

wclaw

' Set reference to Windows Script Host Object Model

Dim WSHShell As IWshRuntimeLibrary.IWshShell_Class

Set WSHShell = New IWshRuntimeLibrary.IWshShell_Class

strDesktopPath = WSHShell.SpecialFolders.Item("Desktop")

Reference: Excel 建立一個桌面上捷徑

http://club.excelhome.net/viewthread.php?tid=10071

plxmm

以下是引用wclaw在2005-10-29 15:56:02的发言：

' Set reference to Windows Script Host Object Model

Dim WSHShell As IWshRuntimeLibrary.IWshShell_Class

Set WSHShell = New IWshRuntimeLibrary.IWshShell_Class

strDesktopPath = WSHShell.SpecialFolders.Item("Desktop")

好东东啊。谢谢。

[em24][em24]

[此贴子已经被作者于2005-10-29 16:10:55编辑过]

可乐虫

"C:\Documents and Settings\"&Environ("usernmae")&"\桌面"

ldhyob

试试如下代码：

Option Explicit

Type SHITEMID cb As Long abID() As Byte End Type Type ITEMIDLIST mkid As SHITEMID End Type

Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" _ (ByVal pIdl As Long, ByVal pszPath As String) As Long Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" _ (ByVal hwndOwner As Long, ByVal nFolder As Long, _ pIdl As ITEMIDLIST) As Long

Private Const NOERROR = 0

Private Sub test()

Dim wIdx As Integer, nFolder As Long Dim sPath As String * 260 Dim IDL As ITEMIDLIST Dim labFolderPath As String If SHGetSpecialFolderLocation(0, nFolder, IDL) = NOERROR Then If SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal sPath) Then labFolderPath = Left$(sPath, InStr(sPath, vbNullChar) - 1) MsgBox "桌面路径:" & labFolderPath End If End If End Sub