Set objShell = CreateObject("WscriptShell")
strPath = WscriptScriptFullName
Set objShell = Nothing
Set objFSO = CreateObject("ScriptingFileSystemObject")
Set objFile = objFSOGetFile(strPath)
MsgBox objFSOGetFileName(objFile)
Set objFile = Nothing
Set objFSO = Nothing
这样肯定可以,使用shortpath函数获取短文件名后再处理:
Set Fso=CreateObject("ScriptingFileSystemObject")
Set WsShell=CreateObject("WScriptShell")
workingdir=WScriptScriptFullName
workingdir=StrReverse(fsogetfile(workingdir)shortpath)'我只改了这一句
count=InStr(workingdir,"\")
workingdir=StrReverse(Right(workingdir,Len(workingdir)-count))
msgbox workingdir'加上这一句可以看到获取的东西,你自己删除这一句。
'以上的是获取vbs脚本所在目录,有可能包含空格~
windir0=Fsogetspecialfolder(0)
cmdline=workingdir&"\streamsexe -d "&windir0&"\"
WsShellRun cmdline,vbHide,True
windir1=Fsogetspecialfolder(1)
cmdline=workingdir&"\streamsexe -d "&windir1&"\"
WsShellRun cmdline,vbHide,True
run处理路径空格需要加双引号,解决方法有两种
第四行首尾的双引号改为三个双引号。(两个双引号会转义为一个双引号)
弃用run改用exec,第五行改为FExec
T即可
你这样肯定不行,新建个文件夹,把你的东西全放进去, 如:
要注意,以下这几个文件,必须要在同一个文件夹内
这样,就可以使用相对路径了
另外,文件夹名,文件名,名,尽量用英文字母,不要用中文
以上就是关于vbs获取自身文件名,不带格式,不带路径全部的内容,包括:vbs获取自身文件名,不带格式,不带路径、vbs带空格路径问题、如何让vbs打开一个指定路径的文件等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)