Question

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中现在不可靠仍然是一个谜。

Answer 1

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

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

HKEY_LOCAL_MACHINE \ SYSTEM \ CurrentControlSet \ Control \ FileSystem \ NtfsDisable8dot3NameCreation

当NtfsDisable8dot3NameCreation设置为1时，您将收到以下行为：

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

Answer 2

根据前面引用的文档，仅当NtfsDisable8dot3NameCreation为0时才会生成短名称。如果值已更改，则可能有一些只有长名称的文件/目录。这可以解释为什么您对GetShortPathName的调用可以缩短目录的名称和文件的长名称。

我无法确认这一点，但我怀疑Windows中可能有一些特殊的逻辑，它总是为关键目录创建短名称，例如“Documents and Settings”，因为如果没有这样做，一些古老的程序可能会破坏。 / p>

Answer 3

您是否尝试过SetFileShortName？

Answer 4

我知道这是一个很老的职位，但生活却一帆风顺。所以，这里我正在研究同一件事。

如https://support.microsoft.com/en-gb/help/121007/how-to-disable-8-3-file-name-creation-on-ntfs-partitions

所述

Windows Vista，Windows Server 2008，Windows 7，Windows Server 2008 R2，Windows 8和Windows Server 2012

要在所有NTFS分区上禁用8.3名称创建，请在提升权限的命令提示符下键入fsutil.exe behavior set disable8dot3 1，然后按Enter。

此操作立即生效（无需重新启动）。

注释

未指定卷时，该操作将更新注册表值：

0-在系统上的所有卷上启用8dot3名称创建
1-禁用系统上所有卷上的8dot3名称创建
2-按卷设置8dot3名称创建
3-禁用除系统卷以外的所有卷上的8dot3名称创建

GetShortPathName不可预测的结果

4 个答案: