GetShortPathName непредсказуемые результаты

GetShortPathName() не работает, как я ожидаю, в XP SP3

http://msdn.microsoft.com/en-us/library/aa364989(VS.85).aspx

Возвращает входную строку для таких путей, как:

C:\Test\LongFolderNameToTestWith\BinarySearch.ini

точно как прислали?

Пока что:

C:\Documents and Settings\LocalService\NTUSER.DAT

Делает короткие имена для пути, поэтому я знаю, что правильно вызываю API.

Однако:

C:\Documents and Settings\LocalService\BinarySearch.ini

Не делает короткое имя из имени файла, но делает короткие имена для пути!?

Может ли кто-нибудь помочь мне понять это поведение и, возможно, предложить обходной путь.

Добавлено:

Мне нужно создать путь/имя файла 8.3 для передачи в устаревшее приложение

Как это можно сделать?

Добавлено: РЕШЕНИЕ

После БОЛЬШОГО чтения/экспериментирования кажется, что единственный надежный способ сделать это - использовать автоматизацию:

' ------------------------------------------------------------
' Library Name:      Microsoft Scripting Runtime 1.0
' Library File:      C:\WINDOWS\system32\scrrun.dll
' ------------------------------------------------------------
' Version Info:
' -------------
' Company Name:      Microsoft Corporation
' File Description:  Microsoft (R) Script Runtime
' File Version:      5.7.0.16599
' Internal Name:     scrrun.dll
' Legal Copyright:   Copyright (C) Microsoft Corp. 1996-2006, All Rights Reserved
' Original Filename: scrrun.dll
' Product Name:      Microsoft (R) Script Runtime
' Product Version:   5.7.0.16599
' ------------------------------------------------------------
' ProgID:            Scripting.FileSystemObject
' Interface Name:    ScriptingFileSystemObject
'
' Interface Prefix:  Scripting

Это работает.

Простая реализация на BASIC будет такой:

$PROGID_ScriptingFileSystemObject = "Scripting.FileSystemObject"

Interface Dispatch ScriptingFileSystemObject
    Member CALL GetFile  <&H0000271C>(IN FilePath   AS STRING<&H00000000>) AS ScriptingIFile
    Member CALL GetFolder<&H0000271D>(IN FolderPath AS STRING<&H00000000>) AS ScriptingIFolder
END Interface

Interface Dispatch ScriptingFile
    Member GET ShortPath<&H000003EA>() AS STRING
    Member GET ShortName<&H000003E9>() AS STRING
END Interface

Interface Dispatch ScriptingFolder
    Member GET ShortPath<&H000003EA>() AS STRING
    Member GET ShortName<&H000003E9>() AS STRING
END Interface


'-----------------------------------------------------------------------------
FUNCTION FileShortPath( BYVAL sPathnFile AS STRING, sShort AS STRING ) AS LONG

  LOCAL vResult, vFilePath AS Variant

  LOCAL fso   AS ScriptingFileSystemObject
  LOCAL oFile AS ScriptingFile


    IF LEN(sPathnFile) = 0 THEN EXIT FUNCTION  ' Nothing sent

    SET fso   = NEW ScriptingFileSystemObject IN $PROGID_ScriptingFileSystemObject
    IF IsNothing(fso) THEN FUNCTION = -1 : EXIT FUNCTION

    SET oFile = NEW ScriptingFile             IN $PROGID_ScriptingFileSystemObject
    IF IsNothing(oFile) THEN FUNCTION = -2 : EXIT FUNCTION


    vFilePath = sPathnFile

    vResult = Empty
    OBJECT CALL fso.GetFile(vFilePath) TO vResult

    SET oFile = vResult
    IF IsNothing(oFile) THEN FUNCTION = -3 : EXIT FUNCTION

    vResult = Empty
    Object GET oFile.ShortName TO vResult
    sShort = VARIANT$(vResult)

    vResult = Empty
    Object GET oFile.ShortPath TO vResult
    sShort = VARIANT$(vResult)

    IF LEN(sShort) THEN FUNCTION = 1 ' Success

END FUNCTION

Спасибо всем за ваши предложения.

---

Я все еще пытаюсь найти способ надежно создать путь/имя файла 8.3.

Есть ли способ сделать это, кроме использования GETSHORTPATHNAME?

Решено. См. выше

Похоже, что MS продолжает поддерживать это только для деципилов COM... почему теперь это ненадежно в C API, остается загадкой.