GetShortPathName() не работает, как я ожидал на XP SP3GetShortPathName непредсказуемые результаты
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 Path/filename.
Есть ли способ сделать это отдельно от использования GETSHORTPATHNAME?
Решено. См. Выше
Похоже, что MS продолжает поддерживать это только для COM-расширений ... почему он теперь ненадежен в API C, остается загадкой.
Можете ли вы опубликовать код, который вас беспокоит? – dirkgently
DWORD WINAPI GetShortPathName ( __in LPCTSTR lpszLongPath, __out LPTSTR lpszShortPath, __in типа DWORD cchBuffer ); , но, как уже упоминалось, вызов здесь не является проблемой ... –
Объявление функции не очень помогает. Если вы можете предоставить короткий пример, который воспроизводит вашу проблему, это может помочь. – dirkgently