デスクトップのパスを取得するには？

解決

VB 2006-08-19 04:26:29 No: 96334

タイトルどうりです。どうやったらできますか？
ご教授お願いします。

Blue 2006-08-19 08:32:03 No: 96335

VBのバージョンに依存します。

VB6以前ならば、
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あたりでしょうか。

VB.7以降(2002,2003,2005)ならば
System.Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory))

でしょうか。
参考)
特殊ディレクトリのパスを取得する
http://dobon.net/vb/dotnet/file/getfolderpath.html

VB 2006-08-19 22:05:15 No: 96336

すいません、ＶＢ６です。書き忘れました。
SpecialFoldersを使ったらデスクトップのパスが取得できました。
Blueさん、ありがとうございました。