代码搜索：VbScript
找到约 10,000 项符合「VbScript」的源代码
代码结果 10,000
www.eeworm.com/read/426641/9007695
html web31.html
Dim fso,myfolder,msg
Set fso=CreateObject("scripting.filesystemobject")
myfolder="d:/java"
If fso.folderexists(myfolder)Then
msg=myfolder+"exists"
Else
msg=myfolder
www.eeworm.com/read/426641/9007707
html web30.html
the page is very good
Sub button1_onclick()
Dim a,b,c
a="C\user\program\web.html"
b=InstrRev(a,"\")
c=Mid(a,b+1)
Msg
www.eeworm.com/read/426641/9007722
html web35.html
Dim fso,myfile
Set fso=CreateObject("Scripting.fileSystemobject")
myfile="D:\java.text"
fso.deletefile(myfile)
Set fso=Nothing
www.eeworm.com/read/184116/9121124
htm ss_select.htm
On Error Resume Next
Dim ss
Set ss=CreateObject("SSReader.SSAPI")
if err0 then
Alert ("创建对象失败!")
else
ss.GetDoc external.menuArguments.document,1,0 '选中
www.eeworm.com/read/184116/9121268
htm ss_all.htm
On Error Resume Next
Dim ss
Set ss=CreateObject("SSReader.SSAPI")
if err0 then
Alert ("创建对象失败!")
else
ss.GetDoc external.menuArguments.document,0,0 '整个