vbs 截取字符串

C:\1\2\3\4\1.txt我想要得到的值是C:\1\2\3\4\谢谢...

2026年09月24日 10:34

有3个网友回答

网友（1）：

dim s
s="C:\1\2\3\4\1.txt"
msgbox left(s,instrrev(s,"\"))

网友（2）：

Dim fso
Set fso = CreateObject("scripting.filesystemobject")
a="C:\1\2\3\4\1.txt"
WScript.Echo fso.GetFile(a).ParentFolder

'ps:内置函数是运行最快的。

网友（3）：

a="C:\1\2\3\4\1.txt"
b= StrReverse(split(StrReverse(a),"\",2)(1))&"\"
msgbox b