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/