Private Declare Function GetShortPathName Lib "kernel32" Alias _ "GetShortPathNameA" (ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, ByVal cchBuffer As Long) As LongConst MAX_PATH = 260' Convert a long file/path name to a short 8.3 name' the path must exist, but the file doesn't have to' Return a null string in case of errorPublic Function ShortPathName(ByVal FileName As String) As String Dim length As Long, res As String res = String$(MAX_PATH, 0) length = GetShortPathName(FileName, res, Len(res)) If length Then ShortPathName = Left$(res, length) End IfEnd Function


Electric Vehicle Battery Breakthrough
The prices of lithium-ion batteries have seen a considerable reduction, with the cost per kilowatt-hour dipping under $100 for the first occasion in two years,