WINCC VBS脚本 文件操作

WINCCVBS脚本文件操作对于文件的操作，例如：生成一个或者打开一个或者删除一个.txt格式文件。虽然官方的FILE插件提供了一些基本功能，但功能不多。你并不需要理解什么是fso模版，什么是vbs语句，直接套用下面的语句吧！红色字为自己定义的部分，蓝色字为任意选一部分如果你看不懂，请参考下面的例子！操作同一个文件红色部分必须相同请认真看括号内的解释内容定义一个名为fso的关系文件问题的对象，对于一个文件的操作只需写一次，此句必须写VBSSetfso=CreateObject(Scripting.FileSystemObject)0.判断一个文件或文件夹是否存在(yn是返回值，文件存在返回1，不存在返回0)VBSyn=fso.FileExists(判断文件的目录)1.创建一个文件(蓝字定义该文本文件是否可以被下次写入覆盖，省略默认为ture)VBSsetttfile=fso.createtextfile(创建的文件目录,ture|false)2.打开一个已存在的文件(蓝字定义文件写入方式，分别为a.只读b.可读写,但每打开一次文件重写c.在文件末尾写)VBSconstforreading=1VBSconstforwriting=2VBSconstforappending=8注意：要想更改打开方式必须关闭文件重新打开VBSsetttfile=fso.opentextfile(打开文件的目录,forreading|forwriting|forappending)3.关闭一个打开的文件(红色部分要于已经打开的文件红色部分相同)VBSttfile.close4.读取打开文件的一行并回车(红色部分ttfile要于已经打开的文件红色部分相同)VBSread=ttfile.ReadLine5.读取所有文件内容(红色部分ttfile要于已经打开的文件红色部分相同)VBSread=ttfile.ReadAll6.写入一行并回车(红色部分要于已经打开的文件红色部分相同)VBSttfile.writeline(自己要写入的内容)7.删除指定文件(若已定义过ttfile则不需要第一句)VBSsetttfile=fso.GetFile(要删的文件目录)VBSttfile.delete8.判断输入标记是否在末尾(是返回-1，否则返回0)VBSyn=ttfile.atendofstream以下是一些文件夹的操作8.判断是否为根目录(yn是返回值，文件存在返回1，不存在返回0)VBSyn=fso.IsRootFolder9.读取文件夹VBSsetttfile=fso.GetFolder(文件夹目录)10.创建一个文件夹VBSsetttfile=fso.creaFolder(创建的文件夹目录)11.删除指定文件夹(若已定义过ttfile则不需要第一句)VBSsetttfile=fso.GetFolder(要删的文件目录)VBSttfile.deletefolder下面是其他一些经常用到的文件操作(注意：可用于所有格式的文件。红字是你的上文脚本已经定义过的)VBSttfile.size返回文件大小VBSttfile.type返回文件类型VBSttfile.DateCreated返回文件创建时间VBSttfile.DatelastAccessed返回文件最近访问时间VBSttfile.DateLastModified返回文件最后修改时间VBSttfile.name返回文件名称VBSttfile.ShortPath返回文件短路径名VBSttfile.path返回文件物理地址VBSSetfso=CreateObject(Scripting.FileSystemObject)//判断d盘下是否有文件1.txtVBSpd1=fso.FileExists(d:\1.txt)if0=pd1//没有的话，在d盘下创建一个不可覆盖的文件1.txtVBSsettxtfile=fso.createtextfile(d:\1.txt,false)//以在末尾写入的方式打开1.txtVBSsettxtfile=fso.opentextfile(d:\1.txt,forappending)//写入一行“1234567890”VBStxtfile.writeline(1234567890)//关闭1.txtVBStxtfile.closeendif//以只读方式打开1.txtVBSsettxtfile=fso.opentextfile(d:\1.txt,forreading)//读取第一行，并将其赋予变量readVBSread=txtfile.ReadLine//关闭1.txtVBStxtfile.closevbFSO操作文件1、创建文件：DimfsoAsNewFileSystemObjectDimtxtfileAsTextStreamSetfso=CreateObject(scripting.filesystemobject)Settxtfile=fso.CreateTextFile(c:\windows\th.ini,True)txtfile.Writetianhetxtfile.WriteBlankLines(1)txtfile.Write1234567txtfile.WriteBlankLines(1)txtfile.Close2、读取文件内容DimfsoAsNewFileSystemObjectDimtxtfileAsTextStreamDimmyleirongDimmyleirong1Setfso=CreateObject(scripting.filesystemobject)Iffso.FileExists(c:\windows\th.ini)ThenSettxtfile=fso.OpenTextFile(c:\windows\th.ini)'myleirong=txtfile.ReadLinetxtfile.SkipLinemyleirong1=txtfile.ReadLine'MsgBoxmyleirongMsgBoxmyleirong1txtfile.CloseElseMsgBox对不起，配置文件不存在！endif3、删除文件DimfsoAsNewFileSystemObjectDimtxtfileAsFileSetfso=CreateObject(scripting.filesystemobject)Iffso.FileExists(c:\windows\th.ini)ThenSettxtfile=fso.GetFile(c:\windows\th.ini)fso.DeleteFile(c:\windows\th.ini)MsgBox文件删除成功ElseMsgBox对不起，要删除的文件不存在！EndIfvbs文件操作vbs文件操作例如:1.我怎么用代码打开c:\\setup.exe?(我只知道vb里用Shell()函数!*_*)2.如果我要打开的不是.exe而是.vbs文件,又该怎么办呢?请高手赐教!感激ing~问题点数：10、回复次数：41楼superdullwolf（超级大笨狼,每天要自强,MVP）脚本运行时库处理文件语言JScriptVBScript显示所有语言有两种主要的文件处理类型：创建、添加或删除数据，以及读取文件移动、复制和删除文件创建文件创建空文本文件（有时被叫做“文本流”）有三种方法。第一种方法是用CreateTextFile方法。下面的示例示范了如何用CreateTextFile方法创建文本文件：[VBScript]Dimfso,f1Setfso=CreateObject(Scripting.FileSystemObject)Setf1=fso.CreateTextFile(c:\\testfile.txt,True)[JScript]varfso,f1;fso=newActiveXObject(Scripting.FileSystemObject);f1=fso.CreateTextFile(c:\\\\testfile.txt,true);创建文本文件的第二种方法是，使用FileSystemObject对象的OpenTextFile方法，并设置ForWriting标志。[VBScript]Dimfso,tsConstForWriting=2Setfso=CreateObject(Scripting.FileSystemObject)Setts=fso.OpenTextFile(c:\\test.txt,ForWriting,True)[JScript]varfso,ts;varForWriting=2;fso=newActiveXObject(Scripting.FileSystemObject);ts=fso.OpenTextFile(c:\\\\test.txt,ForWriting,true);创建文本文件的第三种方法是，使用OpenAsTextStream方法，并设置ForWriting标志。要使用这种方法，使用下面的代码：[VBScript]Dimfso,f1,tsConstForWriting=2Setfso=CreateObject(Scripting.FileSystemObject)fso.CreateTextFile(c:\\test1.txt)Setf1=fso.GetFile(c:\\test1.txt)Setts=f1.OpenAsTextStream(ForWriting,True)[JScript]varfso,f1,ts;varForWriting=2;fso=newActiveXObject(Scripting.FileSystemObject);fso.CreateTextFile(c:\\\\test1.txt);f1=fso.GetFile(c:\\\\test1.txt);ts=f1.OpenAsTextStream(ForWriting,true);添加数据到文件中一旦创建了文本文件，使用下面的三个步骤向文件添加数据：打开文本文件。写入数据。关闭文件。要打开现有的文件，则使用FileSystemObject对象的OpenTextFile方法或File对象的OpenAsTextStream方法。要写数据到打开的文本文件，则根据下表所述任务使用TextStream对象的Write、WriteLine或WriteBlankLines方法。任务方法向打开的文本文件写数据，不用后续一个新行字符。Write向打开的文本文件写数据，后续一个新行字符。WriteLine向打开的文本文件写一个或多个空白行。WriteBlankLines要关闭一个打开的文件，则使用TextStream对象的Close方法。注意新行字符包含一个或几个字符（取决于操作系统），以把光标移动到下一行的开始位置（回车/换行）。注意某些字符串末尾可能已经有这个非打印字符了。下面的例子示范了如何打开文件，和同时使用三种写方法来向文件添加数据，然后关闭文件：[VBScript]SubCreateFile()Dimfso,tfSetfso=CreateObject(Scripting.FileSystemObject)Settf=fso.CreateTextFile(c:\\testfile.txt,True)\'写一行，并带有一个新行字符。tf.WriteLine(Testing1,2,3.)\'向文件写三个新行字符。tf.WriteBlankLines(3)\'写一行。tf.Write(Thisisatest.)tf.CloseEndSub[JScript]functionCreateFile(){varfso,tf;fso=newActiveXObject(Scripting.FileSystemObject);tf=fso.CreateTextFile(c:\\\\testfile.txt,true);//写一行，并带有一个新行字