ExcelWork.info

Excel(エクセル)のマクロ・VBA・関数・操作などのメモ

特殊フォルダを取得(wsh.SpecialFolders)

   

CreateObject 関数:特殊フォルダを取得(WSH.SpecialFolders)

Windows Scripting Host(WSH)SpecialFolders プロパティを使うと、Windows の特殊フォルダ(マイドキュメントやデスクトップなど)のパスを取得することができます。WSH を使用するには、CreateObject 関数 を使用します。


【構文】

name で指定した特殊フォルダのパスを取得>
Dim wsh [ As Object ]
Set wsh = CreateObject (“WScript.Shell”)
path = wsh.SpecialFolders(findex)


引数・戻り値

  • wsh  ・・・  Windows Scripting Host(WSH)のオブジェクト
  • findex  ・・・  取得したい特殊フォルダ(文字列または値)を指定します。
    ※ 文字列を指定する場合は、 で囲みます(”AllUsersDesktop”)。
    文字列 内容
    AllUsersDesktop 0 すべてのユーザーに共通のデスクトップ
    AllUsersStartMenu 1 すべてのユーザーに共通のスタートメニュー
    AllUsersPrograms 2 すべてのユーザーに共通のプログラムメニュー
    AllUsersStartup 3 すべてのユーザーに共通のスタートアップ
    Desktop 4 ログインユーザーのデスクトップ
    AppData 5 ログインユーザーのアプリ用データ
    PrintHood 6 ログインユーザーのプリンタ
    Templates 7 ログインユーザーの新規作成のテンプレート
    Fonts 8 フォント
    NetHood 9 ログインユーザーのネットワーク
    Desktop 10 ログインユーザーのデスクトップ
    StartMenu 11 ログインユーザーのスタートメニュー
    SendTo 12 ログインユーザーの送る
    Recent 13 ログインユーザーの最近使ったファイル
    Startup 14 ログインユーザーのスタートアップ
    Favorites 15 ログインユーザーのお気に入り
    MyDocuments 16 ログインユーザーのマイドキュメント
    Programs 17 ログインユーザーのプログラムメニュー

  • path  ・・・  findex で指定した特殊フォルダのパス



Windows 特殊フォルダ取得 使用例

サンプルVBAソース


実行結果

特殊フォルダ



 - Excel・ファイルの操作 , , , , ,

Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

  関連記事

EOF 関数
EOF 関数

EOF 関数 Open ステートメント をランダムアクセスモード(Random) …

Dir 関数 01
ファイルの検索・フォルダ内のファイル一覧を取得(Dir 関数)

Dir 関数 Dir 関数で、ファイルの存在を確認したり、指定したフォルダ内のフ …

Get ステートメント Binary モード 01
テキストファイル:データを読み込む(Get ステートメント)

Get ステートメント Open ステートメント をランダムアクセスモード(Ra …

Seek ステートメント 1-1
開いているファイルの読み取り位置または書き込み位置を設定(Seek ステートメント)

Seek ステートメント Open ステートメント で開いているファイルで、次に …

テキストファイル:データを読み込む(Line Input # ステートメント)

Line Input # ステートメント Open ステートメントをシーケンシャ …

Excel を終了する(Quit メソッド)

Excel を終了する(Quit メソッド) Quit メソッドを実行すると、E …

Excelでテキストファイルを開く(OpenText メソッド)

Excelでテキストファイルを開く OpenText メソッドで、テキストファイ …

Write # ステートメント 00
テキストファイル:データを書き込む(Write # ステートメント)

Write # ステートメント Open ステートメント をシーケンシャル出力モ …

「ファイルを開く」ダイアログボックス(FindFile メソッド)

FindFile メソッド 「ファイルを開く」ダイアログボックスを表示します。G …

no image
XlBuiltInDialog 列挙型

XlBuiltInDialog 列挙型 Excel の組み込みダイアログボックス …