'-------------------------------------------------- СОРС ЗА ФОРМАТА----------------------------------------

Private Sub Command1_Click()

Text2.Text = GetShortFilename(Text1.Text) 'Функцията преобразуваща пътя от Text1в къс път

End Sub

'-------------------------------------------------- СОРС ЗА МОДУЛА----------------------------------------

#If Win32 Then

Public Declare Function mciExecute& Lib "winmm.dll" (ByVal lpstrCommand As String)

#Else

Public Declare Function mciExecute% Lib "mmsystem.dll" (ByVal lpstrCommand As String)

#End If

Public Declare Function GetShortPathName _

Lib "kernel32" Alias "GetShortPathNameA" (ByVal _

lpszLongPath As String, ByVal lpszShortPath As String, _

ByVal cchBuffer As Long) As Long

Public Function GetShortFilename(ByVal sLongFilename As String) As String

Dim lRet As Long

Dim sShortFilename As String

sShortFilename = String$(1024, " ")

lRet = GetShortPathName(sLongFilename, sShortFilename, Len(sShortFilename))

If lRet > Len(sShortFilename) Then

sShortFilename = String$(lRet + 1, " ")

lRet = GetShortPathName(sLongFilename, sShortFilename, Len(sShortFilename))

End If

If lRet > 0 Then

GetShortFilename = Left$(sShortFilename, lRet)

End If

End Function