フルパスからフォルダを取得

Function GetFolder(str As Variant)
	'２．Split関数でファイル名を操作（XL2000のみ）
	'Dim Var As Variant
	'Var = Split(str, "\") '\マークを区切り文字にして配列化
	'Dim i As Integer
	'Dim fPath As String
	'fPath = ""
	'For i = 0 To UBound(Var) - 1
	'    fPath = fPath & Var(i) & "\"
	'Next
	'GetFolder = fPath
	'３．InStr、InstrRev関数
	Dim Pos As Integer
	Pos = InStrRev(str, "\") 'フルパスの後ろから\マークの位置を検索
	GetFolder = Mid(str, 1, Pos) '拡張子を含むファイル名を取得
End Function