VBAを使って任意の名前で新規にフォルダをデスクトップに作成したいです。

質問

エクセルのVBAの質問です。
アクティブになっているセルのテキストをフォルダ名にしてデスクトップに新規フォルダを作成したいです。

以下のものだと、マイドキュメントに作成されてしまいます。
これを複数のアカウントでパソコンをログインしている場合、
デスクトップに作成するには、どうしたら良いでしょうか？

＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

Sub test01()
Dim ndir As String
ndir = ActiveCell.Value
MkDir ndir
End Sub

＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

どなたか分かる方、教えてください。
宜しくお願い致します。

回答No.1

kmetu

Dim strBuffer As String

strBuffer = String(256, vbNullChar)
strBuffer = CreateObject("WScript.Shell").SpecialFolders("Desktop") + "\" + ActiveCell.Value

'使用できる特定フォルダは次のとおりです。
'AllUsersDesktop
'AllUsersStartMenu
'AllUsersPrograms
'AllUsersStartup
'Desktop
'Favorites
'Fonts
'MyDocuments
'NetHood
'PrintHood
'Programs
'Recent
'SendTo
'StartMenu
'Startup
'Templates

MkDir strBuffer

としてください。