共通デスクトップのパス取得

共通デスクトップのパスを文字列strPathに格納するサンプルです。

' API 関数定義
Private Declare Function SHGetSpecialFolderPath Lib _
"Shell32" Alias "SHGetSpecialFolderPathA" ( _
ByVal hWnd As Long, _
ByVal lpPath As String, _
ByVal nFolder As Long, _
ByVal fCreate As Boolean) As Boolean
' フォルダID
Private Const CSIDL_COMMON_DESKTOPDIRECTORY = 25

' デスクトップのパスを取得するサンプル
Public Function GetCommonDesktopDir()
Dim strTemp As String * 256
Dim intPoint As Integer
Dim strPath As String
' デスクトップのパスを取得
If SHGetSpecialFolderPath(0, strTemp, _
CSIDL_COMMON_DESKTOPDIRECTORY, False) Then
' 余計なNULL文字を削除
intPoint = InStr(strTemp, Chr(0))
strPath = Left(strTemp, intPoint - 1)
End If
GetCommonDesktopDir = strPath
End Function

// shlobj.hをインクルードする必要があります。
// #include <shlobj.h>
char strPath[_MAX_PATH];
SHGetSpecialFolderPath(
NULL, strPath, CSIDL_COMMON_DESKTOPDIRECTORY, FALSE);