[问题求助] [已解决]VBS如何将目录的dos短路径还原成长路径？

haokeyy

C:\DOCUME~1\admin\LOCALS~1\Temp

上面的这个短路径,用VBS,如何还原成原来的长路径.

ArdentMan

为什么要还原成长路径，如下这样取的不行吗？

Dim Path
Path = CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2)
MsgBox Path
复制代码

好像短路径是无法被还原成长路径的
个人猜测原因如下：
ArdentMan Bat--->Ardent~1
ArdentMan Vbs--->Ardent~1

powerbat

ShortPath = "C:\DOCUME~1\admin\LOCALS~1\Temp"
FullPath = CreateObject("Shell.Application").NameSpace(ShortPath).Self.Path
MsgBox FullPath
复制代码

ArdentMan

厉害！学习了，但好像只能还原实际获取的路径吧（自己设定的不行）

Dim SpecialPath
SpecialPath = CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2)
FullPath =  CreateObject("Shell.Application").NameSpace(SpecialPath).Self.Path
MsgBox FullPath
复制代码

powerbat

实际不存在的路径当然不能扩展啦，系统又猜不到你想怎么扩展。

zhangop9

文本中是短路径，如何转为长路径了！！

haokeyy

谢谢，问题解决了。