'start a new project and add
' a DirListBox to Form1
'
'Paste the following text into (General)/(Declarations)
'
'
'
'Counts how many levels deep you are in the directory
'
Sub Dir1_Change()

Dim StartDir As String
Dim DirLevel

StartDir = Dir1
DirLevel = 0

Do Until Dir1.List(DirLevel) = StartDir
    DirLevel = DirLevel - 1
Loop

Do Until Dir1.List(DirLevel) = ""
    DirLevel = DirLevel - 1
Loop

DirLevel = Abs(DirLevel)
DirLevel = DirLevel - 1

Form1.Cls:FontSize = 20:CurrentX = 10:CurrentY = 10:Print DirLevel

End Sub