str = """C:\Program Files\Folder\File.ext"""
AlexBlack писал(а):а где сама проблема-то возникла?
'1 способ
Declare Function GetShortPathName Lib "kernel32" Alias "GetShortPathNameA" (ByVal lpszLongPath As String, ByVal lpszShortPath As String, ByVal lBuffer As Long) As Long
'2 способ
CreateObject("Scripting.FileSystemObject").GetF(older | ile)(sFile).ShortPath
Сейчас этот форум просматривают: AhrefsBot, Yandex-бот и гости: 88