Krátké jméno souboru

Postup:
Založte nový projekt s modulem a formulářem.

V modulu definujte:
Option Explicit

Public Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long
*Deklarace musí být celá na samostatném řádku

Public Function GetShortName(sFile As String) As String

Dim sShortFile As String * 67
    Dim lResult As Long

   'Zavoláme funkci GetShortPathName
    lResult = GetShortPathName(sFile, sShortFile, Len(sShortFile))
    'Ořežeme nepotřebné znaky z řetězce
    GetShortName = Left$(sShortFile, lResult)

End Function

Ve formuláři, na událost:
Private Sub Form_Load()

    Debug.Print GetShortName(App.Path)

End Sub

Uložte projekt a spusťte jej. Pokud máte dlouhý název, v debug okně se objeví název zkrácený.

Zpět

Autor: The Bozena