欢迎光临南池岸边
        找回密码

VBS制作的虚拟磁盘代码

dim a,run,b
set run=wscript.createobject(“wscript.shell”)

call test(bb)

sub test(bb)

b=inputbox (“请输入要生成的虚拟盘符”+chr(13)+chr(13)+”例如:z:”,”虚拟目录生成器”,”Z:”)

a=inputbox (“请输入要生成虚拟目录所在的路径”+chr(13)+chr(13)+”例如:d:\虚拟目录”,”虚拟目录生成器”)
if b<>”” then
if a <>”” or b<>”” then
run.run “cmd.exe /k SUBST “+ b + ” ” + a,0
run.run “taskkill /im cmd.exe /f”,0
ELSE
call test(bb)
MSGBOX “内容不能为空”,65,”错误”

end if

else
MSGBOX “内容不能为空”,65,”错误”

call test(bb)

end if
end sub

扫码支持
未经允许不得转载:南池岸边 » VBS制作的虚拟磁盘代码

评论 抢沙发

评论前必须登录!

 

您的支持是我更新下去的动力

支付宝扫一扫打赏

微信扫一扫打赏