代码搜索：Scripting
找到约 2,777 项符合「Scripting」的源代码
代码结果 2,777
www.eeworm.com/read/388532/8603271
html 18.4.1 buildpath方法.html
var oFso=new ActiveXObject("Scripting.FileSystemObject");
with (document)
{
var oldPath="this is a path";
var toadd="addPath";
var newPath=oFso.BuildPath(oldPath,to
www.eeworm.com/read/388532/8603313
html 18.4.1 deletefile方法.html
var oFso=new ActiveXObject("scripting.FileSystemObject");
try
{
oFso.DeleteFile("C:\\*.txt");
}
catch(err)
{
alert(err.description);
}
finally
www.eeworm.com/read/388532/8603319
html 18.4.1 getspecialfolder方法.html
var oFso=new ActiveXObject("Scripting.FileSystemObject");
with (document)
{
write("本计算机上的系统文件夹路径如下：");
write("Windows路径："+oFso.GetSpecialFolder(0));
write("
www.eeworm.com/read/388532/8603334
html getspecialfolder方法.html
var oFso=new ActiveXObject("Scripting.FileSystemObject");
with (document)
{
write("本计算机上的系统文件夹路径如下：");
write("Windows路径："+oFso.GetSpecialFolder(0));
write("
www.eeworm.com/read/430396/8750665
bas fs.bas
Attribute VB_Name = "modFs"
'Returns a boolean - True if the file exists
Public Function FExists(OrigFile As String)
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
FExists
www.eeworm.com/read/426641/9007634
html web33.html
Set fso=CreateObject("Scripting.FileSystemObject")
Set dc=fso.drives
list=""
For Each d In dc
list=list+d.driveLetter+"-"
If d.drivetype=3 Then
list=list+d.sharenam
www.eeworm.com/read/426641/9007689
html web37.html
Dim fso,myfile,msg
Set fso=CreateObject("scripting.filesystemobject")
myfile="d:/java"
If fso.fileexists(myfile)Then
msg=myfile+"exits"
Else
msg=myfile+"not exits"
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