Edited at

ファイルパスを表す文字列から親のフォルダ部分を取り出す関数

More than 3 years have passed since last update.

車輪の再発明してる感が半端ないが応用が効きそうなのでメモ。

function getParentDir(byval path)

dim splitedPath
splitedPath = split(path, "\")
splitedPath(ubound(splitedPath)) = ""
getParentDir = join(splitedPath, "\")
end function

msgbox getParentDir("C:\hoge\fuga\poge.txt")
' C:\hoge\fuga\

msgbox getParentDir("\\hoge\fuga\poge.txt")
' \\hoge\fuga\

msgbox getParentDir("\\192.168.0.100\hoge\fuga\poge.txt")
' \\192.168.0.100\hoge\fuga\