The simplest way is to use System.IO.DirectoryInfo
:
For Each Dir As String In System.IO.Directory.GetDirectories(FolderName)
Dim dirInfo As New System.IO.DirectoryInfo(Dir)
ComboBox3.Items.Add(dirInfo.Name)
Next
(Obviously, you could parse it manually and extract out the text following the final '', but I believe that the above is more readable)
与恶龙缠斗过久,自身亦成为恶龙;凝视深渊过久,深渊将回以凝视…