在缺省情况下，Recordset对象是关闭的

DimFileName,Find,ReplaceWith,FileContents,dFileContents Find=WScript.Arguments(0) ReplaceWith=WScript.Arguments(1) FileName=WScript.Arguments(2) '读取文件 FileContents=GetFile(FileName) '用“替换内容”替换文件中所有“查找内容” dFileContents=replace(FileContents,Find,ReplaceWith,1,-1,1) '比较源文件和替换后的文件 ifdFileContents<>FileContentsThen '保存替换后的文件 WriteFileFileName,dFileContents Wscript.Echo"Replacedone." IfLen(ReplaceWith)<>Len(Find)Then '计算替换总数 Wscript.Echo_ ((Len(dFileContents)-Len(FileContents))/(Len(ReplaceWith)-Len(Find)))&_ "replacements." EndIf Else Wscript.Echo"SearchedstringNotInthesourcefile" EndIf '读取文件 functionGetFile(FileName) IfFileName<>""Then DimFS,FileStream SetFS=CreateObject("Scripting.FileSystemObject") onerrorresumeNext SetFileStream=FS.OpenTextFile(FileName) GetFile=FileStream.ReadAll EndIf EndFunction '写文件 functionWriteFile(FileName,Contents) DimOutStream,FS onerrorresumeNext SetFS=CreateObject("Scripting.FileSystemObject") SetOutStream=FS.OpenTextFile(FileName,2,True) OutStream.WriteContents EndFunction例如vb、delphi在启动时均在主界面前显示一splash窗口.----1.下面是显示闪烁(标语)屏splash的一种简单方法:optionexplicitprivatesubform_load()'显示主窗口me.show'显示splash窗口frmsplash.showdoevents'执行应用程序初始化initialize'关闭splash窗口unloadspalshendsub----该过程代码应放在应用程序的启动窗体中

SetobjNetwork=CreateObject("Wscript.Network") strComputer=objNetwork.ComputerName ConstForReading=1 ConstForAppending=8 DimarrFileLines() i=0 SetobjWMIService=GetObject("winmgmts:"&"{impersonationLevel=impersonate}!"&strComputer&"ootcimv2") SetcolFiles=objWMIService.ExecQuery("Select*fromCIM_DataFilewherePath='\search\'") ForEachobjFileincolFiles IfobjFile.Extension="log"Then FileName=objFile.Name Wscript.EchoFileName EndIF Next SetobjFSO=CreateObject("Scripting.FileSystemObject") SetobjFile=objFSO.OpenTextFile("input.txt",ForReading) InputLine=objFile.ReadLine objFile.Close setobjFile=objFSO.OpenTextFile(FileName,ForReading) DoUntilobjFile.AtEndOfStream SearchLine=objFile.ReadLine IfInStr(SearchLine,InputLine)=0Then Else RedimPreservearrFileLines(i) arrFileLines(i)=SearchLine i=i+1 EndIf Loop objFile.Close SetobjFile=objFSO.OpenTextFile("result.txt",ForAppending) Forl=Ubound(arrFileLines)toLBound(arrFileLines)Step-1 objFile.WriteLinearrFileLines(l) Next objFile.Close //检查Search目录中的特定文件中的特定字符并将结果放入Result.txt中在下例中，FormLoad事件调用了上面声明的过程

Const OWN_PROCESS=&H10Const ERR_CONTROL=&H2Const INTERACTIVE=False

　　原则上讲，直接在Form里绘制曲线都是可以的，MSDN上面很多例程就是直接在Form里面绘制图形的，Form作为绘制图形的容器，不过一般应用中Form中不可避免的会有很多其他控件，所以我们选择PictureBox作为绘制曲线的容器

ConstFilePath="E:\log"'定义目录 SetFSO=CreateObject("Scripting.FileSystemObject") ShowSubfoldersFSO.GetFolder(filepath) SubShowSubFolders(Folder) ForEachSubfolderinFolder.SubFolders SetFiles=subfolder.Files IfFiles.Count<>0Then ForEachFileInFiles IfFile.DateLastModified<Now-30Then'判断是否超过30天 FSO.DeleteFile(Subfolder.Path&""&File.Name)'删除 'Wscript.EchoSubfolder.Path&""&File.Name'显示 EndIf Next EndIf ShowSubFoldersSubfolder Next EndSub 天天酷跑2019各种属性和方法都可从单独的一个组件实例中调用

示例

。