Sub test()
'すべてのユーザーに共通のデスクトップ AllUsersDesktop
'すべてのユーザーに共通のプログラムメニュー AllUsersPrograms
'すべてのユーザーに共通のスタートアップ AllUsersStartup
'ログインユーザーのデスクトップ Desktop
'ログインユーザーのプログラムメニュー Programs
'ログインユーザーのスタートアップ Startup
'お気に入り Favorites
'フォント Fonts
'マイドキュメント MyDocuments
'最近使ったファイル Recent
'送る SendTo
'スタートメニュー StartMenu
'新規作成のテンプレート Templates
'アプリ用のデータ AppData
Dim Path As String, WSH As Variant, OpenFileName As String, FileNumber As Long
Set WSH = CreateObject("Wscript.Shell")
Path = WSH.SpecialFolders("Desktop")
MsgBox Path
FileNumber = FreeFile
Open Path & "\test.txt" For Output Access Write As #FileNumber
Print #FileNumber, Path
Close #FileNumber
Set WSH = Nothing
End Sub