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

haokeyy

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

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

ArdentMan

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

1. 
   
2. Dim Path
   
3. Path = CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2)
   
4. MsgBox Path
   

复制代码

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

powerbat

1. 
   
2. ShortPath = "C:\DOCUME~1\admin\LOCALS~1\Temp"
   
3. FullPath = CreateObject("Shell.Application").NameSpace(ShortPath).Self.Path
   
4. MsgBox FullPath
   

复制代码

ArdentMan

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

1. 
   
2. Dim SpecialPath
   
3. SpecialPath = CreateObject("Scripting.FileSystemObject").GetSpecialFolder(2)
   
4. FullPath =  CreateObject("Shell.Application").NameSpace(SpecialPath).Self.Path
   
5. MsgBox FullPath
   

复制代码

powerbat

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

zhangop9

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

haokeyy

谢谢，问题解决了。