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

Fileオブジェクト - ParentFolderプロパティ



【書式】
File.ParentFolder

ファイルが存在するフォルダを返します。
1つ上のフォルダではなく、ファイルが保存されているフォルダ名です。
Sub test62()
    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")
    ''「C:\Work」を表示します
    MsgBox FSO.GetFile("C:\Work\Book1.xls").ParentFolder
    Set FSO = Nothing
End Sub



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