即効テクニック

ファイル操作・他アプリケーションとの連携

サブフォルダを取得する

(Access 2000/2002)
● 概要 ●

構文    Object.SubFolders    取得のみ


設定項目        内容
Object          Folderオブジェクトを指定[省略不可]


SubFoldersプロパティは、指定されたフォルダ内のすべてのフォルダコレクションを返します。
FolderオブジェクトはFileSystemObjectオブジェクトのGetFolderメソッドで取得します。
サンプルは、「D:\Access」フォルダのサブフォルダをすべて[イミディエイト]ウィンドウに表示しています。


● サンプルプログラム ●

'サブフォルダを取得する
'   [ツール]→[参照設定]で「Microsoft Scripting Runtime」をチェック
Sub Sample()
    Dim myFileSystem As New Scripting.FileSystemObject
    Dim myFolder     As Scripting.Folder
    Dim mySubFolder  As Scripting.Folder
    Set myFolder = myFileSystem.GetFolder("D:\Access")
    For Each mySubFolder In myFolder.SubFolders
        Debug.Print mySubFolder.Name
    Next
End Sub