Sub デスクトップのパスを取得する() ログインユーザー名 = CreateObject("WScript.Network").UserName MsgBox "C:\Users\" & ログインユーザー名 & "\Desktop\" End Sub