VBS脚本如何用纯粹的字符串处理方式来获取上层文件夹？[已解决]

daols

想用纯粹的字符串处理方式来获取上层文件夹...理论上parDir获得的值貌似应该结尾带"\"的, 但是不知道为什么我现在得到的thisDir不带...求合理解释...要求不要取消thisvbs()函数...因为手工输入wscript.scriptfullname很麻烦不美观...还有就是只用字符串处理方法...不用fso...不用正则...

xargs-install.vbs 如下:

1. Private Function thisvbs()
   
2. thisvbs=wscript.scriptfullname
   
3. End Function
   
4. 
   
5. Private Function parDir(FileOrFolder, delLen)
   
6. if delLen="" then : delLen=0 : end if ' "-0" end with ""
   
7. FileOrFolder=join(split(FileOrFolder, "/"), "")
   
8. if Right(FileOrFolder, 1)="" then : FileOrFolder=Left(FileOrFolder, Len(FileOrFolder)-1) : end if
   
9. parDir=Left(FileOrFolder,InstrRev(FileOrFolder,"")-delLen)
   
10. End Function
    
11. 
    
12. thisDir=parDir(thisvbs(), 0) '这里有问题, 得到的字符串结尾不带"", 但是直接引用wscript.scriptfullname的话就带""
    
13. upDir=parDir(thisDir, 0)
    
14. 
    
15. msgbox parDir("B:\shellreg\xargs-vbs\xargs-install.vbs", 0)
    
16. msgbox thisDir
    
17. msgbox parDir(wscript.scriptfullname, 0)
    
18. msgbox upDir
    
19. msgbox parDir(parDir(wscript.scriptfullname, 0), 0)
    

复制代码

Demon

舍近求远

applba

你检测最后一个字符，看看是否为“\”，如果不是就自动加上～

daols

谢谢楼上两位...
csdn有人告我说是变量声明混乱造成的...已解决
Private Function parDir(FileOrFolder, delLen)
Dim ArgStr : ArgStr=FileOrFolder
if delLen="" then : delLen=0 : end if ' "-0" end with "\"
ArgStr=join(split(ArgStr, "/"), "\")
if Right(ArgStr, 1)="\" then : ArgStr=Left(ArgStr, Len(ArgStr)-1) : end if
parDir=Left(ArgStr,InstrRev(ArgStr,"\")-delLen)
End Function