Dim lungtot As Integer, lungultim As Integer, lungramas As Integer
Dim sKey As String, adm As String, catm As String
 picFolder = Picture.Load("AA.png")
 picFile = Picture.Load("TT.png")
 .......................
 '*** Directory back ***
 IconView1.Clear
 'Calculam toata lungimea
 lungtot = Len(txtDir.Text)
 'Cate slash "/" avem
 nrr = Split(txtDir.Text, "/")
 'Selectam ultimul si lungimea+1
 lungultim = Len(Split(txtDir.Text, "/")[nrr.Count - 2]) + 1
 'Ce a ramas
 lungramas = (lungtot - lungultim)
 catm = Left(txtDir.Text, lungramas) 
 txtDir.Text = catm
 .................