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

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

  関連記事

Width # ステートメント
テキストファイル:出力する 1 行の幅を設定(Width # ステートメント)

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

Put ステートメント Binary モード 01
テキストファイル:データを書き込む(Put ステートメント)

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

Open ステートメント・Close ステートメント
テキストファイル(Open ステートメント・Close ステートメント)

新規ブックを開かずにテキストファイルを開く OpenText ステートメント を …

FileDialog オブジェクトを取得する(FileDialog プロパティ)

FileDialog プロパティ FileDialog オブジェクト を取得しま …

FileCopy ステートメント00
ファイルをコピー(FileCopy ステートメント)

FileCopy ステートメント ファイルをコピーします。ただし、開いているファ …

Open ステートメントで使用できるファイル番号を取得(FreeFile 関数)

FreeFile 関数 Open ステートメントで使用するファイル番号( 1 ~ …

ファイル名・パス取得
フルパスからファイル名、パスを取得する

フルパスからファイル名のみを取得する フルパスからファイル名を取得するには、Di …

テキストファイル:データを読み込む(Input 関数・InputB 関数)

Input 関数・InputB 関数 Open ステートメントをシーケンシャル入 …

開いているファイルの現在の読み取り位置または書き込み位置を取得(Seek 関数)

Seek 関数 Open ステートメント で開いたファイル内の現在の読み取り位置 …

Excel の組み込みダイアログボックス(Dialog, Dialogs)

Excel の組み込みダイアログボックスを表示 Dialog オブジェクト を使 …