Microsoft Access Club > Access一日一見 >このページ >次頁 <前項  サイト内検索


フォルダー内コンテンツ一覧の表示 - Microsoft Shell Controls And Automation



Access操作の中で、それほどあるものではありませんが、Windows内のフォルダー内一覧を表示したい場合などで便利な機能をご紹介します。

Microsoft Shell Controls And Automation

参照設定

これは、外部ライブラリーの一つですが、下記のようにVBE画面から 参照設定 で利用可能な状態にします。

・参照設定ライブラリ設定

サンプルプロシージャの作成

何れでも利用できるようにFunctionプロシージャを作成します。

'外部のフォルダー内コンテンツ一覧を表示します。
'参照設定で「Microsoft Shell Controls And Automation」にチェックを入れて下さい。

Function Folder_Open()

    Dim objsample As Shell
    Set objsample = New Shell
    
    objsample.Open "C:\windows\"
    Set objsample = Nothing '開放します。

End Function
実行結果

このプロシージャをイミディエイトウィンドウで実行してみると、下記のように一覧画面が立ち上がります。# サンプルは、Cホルダー内にあるWindowsフォルダー内を一覧表示しています。

エクスプローラー風

エクスプローラー風で立ち上げるには、下記のようにプロシージャを変更します。

Function Folder_Open()

    Dim objsample As Shell
    Set objsample = New Shell
    
    objsample.Explore "C:\windows\" 'エクスプローラー風に開きます。
    Set objsample = Nothing '開放します。

End Function

この状態から各コントロールを操作することが可能です。

2003/09/07 

ページの先頭へ 前ページへ戻る


フォルダー内コンテンツ一覧の表示 - Microsoft Shell Controls And Automation


-Microsoft Access Club-

アメリカ合衆国やヨーロッパのデータセンターからcPanelレンタルサーバーをご提供します。お支払いは日本国内の銀行振込で...。1ヵ月契約からOKです。
アメリカ合衆国やヨーロッパからcPanelレンタルサーバー。
お支払いは日本国内の銀行振込。
最短契約期間は1ヵ月契約からOKです。