機能と数式 | VBA | セミナー | オンラインソフト | お問い合わせ | その他
Top > Excel > VBA > FileSystemObject

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



このエントリーをはてなブックマークに追加