Private Declare Function GetShortPathName Lib "kernel32" Alias _ "GetShortPathNameA" (ByVal lpszLongPath As String, _ ByVal lpszShortPath As String, ByVal cchBuffer As Long) As Long' Convert a long filename into the short 8.3 format' if the file doesn't exist, return a null stringFunction GetShortFileName(ByVal LongFileName As String) As String Dim buffer As String, length As Long ' Prepare the receiving buffer buffer = Space$(300) length = GetShortPathName(LongFileName, buffer, Len(buffer)) ' if return value was non-zero, estract the result ' else, it returns a null string (probably GetShortFileName = Left$(buffer, length) End Function


Inside Michigan’s Clean Energy Revolution
Democratic state legislators in Michigan continue to discuss and debate clean energy legislation in the hopes of establishing a comprehensive clean energy strategy for the