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 deciples ......为什么它现在在 C API 中不可靠仍然是个谜。

最佳答案

这是因为文件名没有现有的短名称，XP SP3 不会自动为文件创建短名称。

您可以检查此注册表设置(如果存在)以查看其当前设置的内容。

HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\FileSystem\NtfsDisable8dot3NameCreation

当 NtfsDisable8dot3NameCreation 设置为 1 时，您将获得以下行为:

如果文件夹/文件已经有一个短名称，例如“Program Files”，那么它将返回该文件夹/文件的短名称。但是如果短名称不存在，您将获得文件的长名称，因为它是该对象唯一存在的名称。如果禁用短名称，则无法获取短名称。

关于c++ - GetShortPathName 不可预测的结果，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/843843/