ファイルパスからフォルダの数を調べる

<分類:値取得>
<使用例:ファイルパスからフォルダの数を調べる>
<プログラム例>

Sub 使用例()
   Dim s As String
   Dim s2 As String
   
   s = "C:\Users\aaa\Desktop\test.xls"

   s2 = 共通_フォルダ階層数(s)

   MsgBox ("フォルダ階層数は " & s2 & " です")

End Sub

Function 共通_フォルダ階層数(p1)
   
   共通_フォルダ階層数 = InStr(p1, "\")

End Function