剪贴板输出文本 set fso=createobject("scripting.filesystemobject") : name=1 Dim na 'na=Inputbox("请输入拓展名:","拓展名","txt") na="txt" while fso.fileexists(name&"."&na)=tr ...
fff.gif (187.54 KB, 下载次数: 79)
下载附件
2018-6-4 19:43 上传
小黑屋|手机版|Archiver|捐助支持|无忧启动 ( 闽ICP备05002490号-1 )
闽公网安备 35020302032614号
GMT+8, 2024-11-27 15:55
Powered by Discuz! X3.3
© 2001-2017 Comsenz Inc.