VBS念出自身文件名,不包含后缀。 - 洛阳翼展电脑


VBS念出自身文件名,不包含后缀。

2020-5-25 乱云飞

on error resume next
'本程序的功能是念出自身文件名,不含后缀。
'想让电脑念什么,就把文件名改成什么。
'翼展电脑服务中心 www.80c.cc
set shell = createobject("WScript.Shell")
set shuo = createobject("sapi.spvoice")
shuo.rate=2
shuo.Volume=80
Set fso = CreateObject("Scripting.FileSystemObject")
str = fso.GetFile(Wscript.scriptfullname).name
shuo.speak left(str,len(str)-4),1
'msgbox left(str,len(str)-4)
shell.popup left(str,len(str)-4),10,"翼展电脑服务中心",vbOKOnly

本文链接:http://80c.cc/ez/315.html

发表评论:

预ICP备10086-001号 © 翼展网/80C.CC 技术支持/洛阳翼展科技
TEL / 13213610060 QQ / 345794501
Powered by emlog