PAthShort
Function GetShortPathName(longpath As String) As String 'Ex: GetShortPathName("C:\Program Files\") = "C:\Progra~1"
Function GetShortPathName(longpath As String) As String
'Ex: GetShortPathName("C:\Program Files\") = "C:\Progra~1"
(pathshort.html)- by Paolo Puglisi - Modifica del 25/3/2019