Krátké jméno souboru |
![]() |
Postup: Založte nový projekt s modulem a formulářem. V modulu definujte: Public Declare Function
GetShortPathName Lib "kernel32" Alias "GetShortPathNameA"
(ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal
cchBuffer As Long) As Long Public Function GetShortName(sFile As String) As String Dim sShortFile As
String * 67 'Zavoláme
funkci GetShortPathName End Function Ve formuláři, na událost: 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ý. |
![]() |
Autor: The Bozena |