How To Get a Short File Name from a Long File Name

This article was previously published under Q192827
This article has been archived. It is offered "as is" and will no longer be updated.
Occasionally, it is convenient to be able to convert a Win32 long file nameto a Win16-style (8.3 format) short file name. For example, file names mayneed to be stored in a table that is shared by both Visual FoxPro andFoxPro for Windows.

This information is stored in the Win32 file system, and can be looked upusing the GetShortPathName function.
Enter and run the following program. It creates a file with a long name inthe FoxPro temporary drive and directory, converts it to a short file name,and deletes the file:
   * create a long file name in the FoxPro temp drive and directory   lcTempFileName = SYS(2023) + "\" + "this is a very long filename.txt"   liHandle = FCREATE(lcTempFileName)   = FCLOSE(liHandle)   ? "Original long filename is: " + lcTempFileName   ? "Short filename is: " + lfn2sfn(lcTempFileName)   * delete when finished   DELETE FILE (lcTempFileName)   FUNCTION lfn2sfn   *   * Converts a Win32 long file name to its short file name equivalent   *   * passed: long file name, must already exist for this to work   *   * returns: fully qualified short file name, or empty string   * if error is encountered   *   PARAMETERS lcInputString   DECLARE INTEGER GetShortPathName IN Kernel32 STRING @lpszLongPath, ;      STRING @lpszShortPath, INTEGER cchBuffer   DECLARE INTEGER GetLastError IN Win32api   #DEFINE MAX_PATH 255   * buffer to receive converted file name   lcOutputString = SPACE(MAX_PATH)   * length of receiving buffer   llcbOutputString = LEN(lcOutputString)   * if successful, llretval will contain the length of the   * output string   llretval = GetShortPathName(@lcInputString, @lcOutputString,;      llcbOutputString)   IF llretval = 0   * uncomment for error code   * wait window "Error occurred, code is: " + ltrim(str(GetLastError()))      RETURN ""   ENDIF   * truncate it at the length the return value indicates   lcOutputString = LEFT(lcOutputString, llretval)   RETURN lcOutputString				
For additional information, please see the following article in theMicrosoft Knowledge Base:
175512 How To Get a Short Filename from a Long Filename
kbDSupport GetShortPathName KBDSE kbAPI kbVFp300b kbVFp500a kbVFp500 kbVFp600

Article ID: 192827 - Last Review: 02/23/2014 01:10:57 - Revision: 2.2

  • Microsoft Visual FoxPro 3.0b Standard Edition
  • Microsoft Visual FoxPro 5.0 Standard Edition
  • Microsoft Visual FoxPro 5.0a
  • Microsoft Visual FoxPro 6.0 Professional Edition
  • kbnosurvey kbarchive kbhowto KB192827