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

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

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