DirListBox

[Diogo]

Hello, a little question that would help me very much.

Is it any way to the DirListBox return the path in format 8.3?

Thanks any way.

Diogo

 

[BeeBaw]

Try this (you'll need to add Microsoft Scripting Runtime to project):

Dim LobjFolder As Folder
Dim LobjFSO As New FileSystemObject
Dim LstrShortPath As String

Set LobjFolder = LobjFSO.GetFolder(dirList.Path)

MsgBox ("ShortPath:" & LobjFolder.ShortPath)
MsgBox ("FullPath:" & LobjFolder.Path)

Set LobjFSO = Nothing
Set LobjFolder = Nothing

This should sort you out, let me know if it doesn't.

 

[Diogo]

Thanks BeeBaw it´s just that what i want.