特殊フォルダのパスを調べるには

特殊フォルダのパスを調べます。
キーワードは「SHGetSpecialFolderPath()関数」。
SHGetSpecialFolderPath()関数は、特殊フォルダを文字列の形にして返す関数です。
特殊フォルダの中でもさらに特殊なフォルダは文字列に変換できません。
(例.ゴミ箱など)

実行中の様子



Private Sub Form_Load()
Dim Temp As String, rc

For a = 0 To 7
    'バッファの準備
    Temp = String(256, Chr(0))
    Select Case a
        Case 0: rc = CSIDL_PROGRAMS
        Case 1: rc = CSIDL_DESKTOP
        Case 2: rc = CSIDL_RECENT
        Case 3: rc = CSIDL_HISTORY
        Case 4: rc = CSIDL_STARTMENU
        Case 5: rc = CSIDL_STARTUP
        Case 6: rc = CSIDL_PERSONAL
        Case 7: rc = CSIDL_SENDTO
    End Select
    Call SHGetSpecialFolderPath(Me.hWnd, Temp, rc, 0)
    Text1(a).Text = Temp
Next
End Sub

ダウンロード