VB-Homepage Tipp 253
ermitteln der aktuellen Verzeichnistiefe
Aus der Reihe "Tipps, die man nicht täglich braucht", stammt dieser Tipp.

Er wird Ihnen anzeigen, in welcher Verzeichnistiefe Sie sich gerade befinden.

Für einen Test benötigen Sie eine DirListBox (Dir1) und ein Labelobjekt (Label1).

Damit unsere Anzeige auch schon zum Programmstart aktuell ist, geben sie unter Form_Load folgendes ein.

Show
Dir1_Change

Ansonsten ist lediglich noch unter
Dir1_Change etwas zu definieren.

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

Label1 = "Verzeichnisebene " & DirLevel

Das war alles. Es ist eben wie so oft, wenn man es weiß, ist es ganz einfach.
Starten Sie Ihr Projekt und klickern sich durch Ihre Verzeichnisstruktur. Es wird Ihnen dabei ständig die entsprechende Verzeichnistiefe angezeigt.
Tipp-Download
Quelle :
Zurück zur Übersichtsseite