Visual Basic - cargar un listbox con los nombres cortos de los archivos

Hola nuevamente.

es simple si desde la linea de comandos dos escribo > dir /-n el resultado es un dir pero con los nombres cortos... pero a la hora de querrer cargar los mismos a un listbox... se me queman los papeles.... estoy utilizando este código...


Private Sub Command1_Click()
Dim sTmp As String
On Local Error Resume Next
sTmp = Dir$(Text1.Text & "\*.mp3")
If Err = 0 Then
List1.Clear
Do While Len(sTmp)
List1.AddItem sTmp
sTmp = Dir$
Loop
End If
Err = 0
End Sub

En Text1.Text coloco el nombre de la carpeta que quiero listar... esto funciona pero me devuelve los nombres largos de los archivos y después no los puedo manipular desde archivos bat.

Desde ya muchas gracias.-

El nombre corto de un archivo te lo da GetShortPathName a partir del largo.