Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


40500 / 76732 ←次へ | 前へ→

【41330】Re:Excel2003
回答  Blue  - 06/8/6(日) 12:52 -

引用なし
パスワード
   デスクトップのパス(特殊フォルダのパス)を取得するには
WScript.ShellオブジェクトのSpecialFoldersメソッドを使います。

Dim DesktopPath As String 
' デスクトップのパスを取得
DesktopPath = CreateObject("WScript.Shell").SpecialFolders("Desktop")
' 表示
MsgBox DesktopPath

またShell.Applicationオブジェクトでも取得できます。

Const ssfDESKTOPDIRECTORY = 16
Dim DesktopPath As String
' デスクトップのパスを取得
DesktopPath = CreateObject("Shell.Application").NameSpace(ssfDESKTOPDIRECTORY).Self.Path
' 表示
MsgBox DesktopPath

それとAPIを使うならば、SHGetSpecialFolderPathあたりでしょうか。

0 hits

【41329】Excel2003 pikuミン 06/8/6(日) 12:03 質問
【41330】Re:Excel2003 Blue 06/8/6(日) 12:52 回答
【41331】Re:Excel2003 pikuミン 06/8/6(日) 12:57 お礼
【41332】Re:Excel2003 Blue 06/8/6(日) 12:57 回答

40500 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free