代码搜索：FileSystemObject
找到约 1,189 项符合「FileSystemObject」的源代码
代码结果 1,189
www.eeworm.com/read/388532/8603322
html 18.5.1. line属性.html
打开文件
function readFile()
{
var oFso=new ActiveXObject("Scripting.FileS
www.eeworm.com/read/388532/8603325
html 18.1.1 filesystem属性.html
var objDrv,objFso;
var errMsg="";
objFso=new ActiveXObject("Scripting.FileSystemObject");
var strdrv=prompt("请输入驱动器盘符：","");
try
{
objDrv=objFso.GetDrive(strdrv);
www.eeworm.com/read/388532/8603330
html 18.5.1. readline方法.html
指定文件
function toRead()
{
var oFso=new ActiveXObject("Scripting.FileSystemObject");
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/388532/8603337
html drives.html
var objFso=new ActiveXObject("Scripting.FileSystemObject");
var objDrvs=objFso.Drives
var drvs = new Enumerator(objDrvs);
with (document)
{
write("当前计算机上共与可用磁盘"+objDrvs.Co
www.eeworm.com/read/388532/8603339
html 18.1.1 isready属性.html
var objFso=new ActiveXObject("Scripting.FileSystemObject");
//获取Drives结合
var objDrvs=objFso.Drives
//创建一个结合枚举对象
var drvs = new Enumerator(objDrvs);
with (document)
{
w
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/385978/8774247
vbs fso.vbs
'替换文本字符，每行第一个是c的话替换成!
'文件名设置
filename="1.txt"
'-----------------------------------
Dim fso,f,strs(),count,i
Set fso = CreateObject("Scripting.FileSystemObject")
'读取文件行数
Set f=fso.OpenTextFi
www.eeworm.com/read/385959/8775222
frm frmmain.frm
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{67397AA1-7FB1-11D0-B148-00A0C922E820}#6.0#0"; "MSADODC.OCX"
Begin VB.Form form_Main
Caption