FileSystemObjectオブジェクト - GetFolderメソッド


【書式】

FileSystemObject.GetFolder(folderspec)

指定したフォルダを表すFolderオブジェクトを返します。

引数folderspecにはフォルダのパスを指定します。存在しないパスを指定するとエラーになります。

Sub test19()
    Dim FSO As Object, FolderObject As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''C:\Work\フォルダ内にさるサブフォルダの個数を表示します
    Set FolderObject = FSO.GetFolder("C:\Work\")
    MsgBox FolderObject.SubFolders.Count
    Set FolderObject = Nothing
    Set FSO = Nothing
End Sub