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: 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.
ซอร์สโค้ด
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
ความคิดเห็นดั้งเดิม (3)
กู้คืนจาก Wayback Machine