Convert Long File Location And Name To Short
This code enables you to convert a long file location and filename to a short file location and filename. Example: C:\Program Files\Test.txt will become C:\Progra~1\Test.txt
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source Code
Add The Declarations Above To A Module. Then put this whenever you want to perform the conversion: Dim sFile As String, sShortFile As String * 67 Dim lRet As Long sFile = "C:\Program Files\Test.txt" 'Long File Location/Name lRet = GetShortPathName(sFile, sShortFile, Len(sShortFile)) sFile = Left(sShortFile, lRet) Text1.Text = sFile
Original Comments (3)
Recovered from Wayback Machine