Question

vbs获取自身文件名，不带格式，不带路径

vbs获取自身文件名，不带格式，不带路径。

Answer 1

Set objShell = CreateObject("Wscript.Shell")
strPath = Wscript.ScriptFullName
Set objShell = Nothing
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPath)
MsgBox objFSO.GetFileName(objFile)
Set objFile = Nothing
Set objFSO = Nothing

追问

能说一下哪个是输出，还有多解说一下么，

追答

Set objShell = CreateObject("Wscript.Shell")
strPath = Wscript.ScriptFullName '获取脚本文件全路径 
Set objShell = Nothing
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPath) '获取此文件对象用于后续文件操作 
MsgBox objFSO.GetFileName(objFile) '获取不含路径的文件名称,这就是输出
Set objFile = Nothing
Set objFSO = Nothing

追问

也没有后缀名？

追答

有后缀名的。运行一下就知道了啊，会有弹框显示结果的。
你是要后缀名还是不要？

追问

不要后缀名的

能写出来么

追答

如果不要后缀名，将代码中的 GetFileName 改为 GetBaseName 就行了。

Set objShell = CreateObject("Wscript.Shell")
strPath = Wscript.ScriptFullName '获取脚本文件全路径
Set objShell = Nothing
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPath) '获取此文件对象用于后续文件操作
MsgBox objFSO.GetBaseName(objFile) '获取并显示不含路径和文件后缀的文件名称
Set objFile = Nothing
Set objFSO = Nothing

追问

Set fso = CreateObject("Scripting.FileSystemObject")
f = fso.GetFile(Wscript.scriptfullname).name
msgbox f
这个呢

追答

既然你喜欢这样的风格，那我就改改。

Set objFSO = CreateObject("Scripting.FileSystemObject")
f = Split(objFSO.GetFile(Wscript.ScriptFullName).Name, ".")
MsgBox f(0)

这样代码虽然简洁，但可读性不如下面这样：

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(Wscript.ScriptFullName)
MsgBox objFSO.GetBaseName(objFile)
Set objFile = Nothing
Set objFSO = Nothing

放着现成的GetBaseName函数不用，而去自己用split做字符串分割，有点浪费。

最后建议还是要set to Nothing释放对象，不该省的别省，养成良好的编程习惯。