ファイルパス名からフォルダパス名を取出す
<分類:値抜き取り>
<使用例:ファイルパス名からフォルダパス名を取出す>
<プログラム例>
Sub 使用例() Dim s As String Dim s2 As String s = "C:\Users\aaa\Desktop\test.xls" s2 = 共通_ファイルパスからフォルダパス名取出し(s) MsgBox ("フォルダパス名は " & s2 & " です") End Sub Function 共通_ファイルパスからフォルダパス名取出し(p1) Dim j As Long Dim x As Long Dim mojisu As Long 共通_ファイルパスからフォルダパス名取出し = "" mojisu = Len(p1) For j = mojisu To 1 Step -1 If Mid(p1, j, 1) = "\" Then 共通_ファイルパスからフォルダパス名取出し = Mid(p1, 1, j - 1) Exit For End If Next j End Function