请教一个关于dirlistbox处理带点文件夹的问题

Question

我只能做下面的处理，或者不叫处理，勉强算是一种操作吧，因为只是打开了Dim strTemp As String 
Dim iii As Long
strTemp = Dir1.List(Dir1.ListIndex)
iii = InStrRev(strTemp, ".", -1) 
If iii <> 0 Then
Shell "cmd.exe /c start " & Dir1.List(Dir1.ListIndex) & ".\", vbHide
Else
    Dir1.Path = Dir1.List(Dir1.ListIndex)
    End If那该如何让dir1.path完全真正地展开带点文件夹呢？
注：带点文件夹就是用cmd创建的类似"c:\111..\"这样的文件夹
谢谢

Answer 1

我的个人积分现在是0分，结了贴可能就变成负分了，不好意思

Answer 2

明白了，只要获得短文件名就可以了

Answer 3

结了贴不能变成负分，回收回一半的分

Answer 4

明白了归明白了，问题是特殊文件夹的短文件名该怎样获得啊晕