你知道ADO控件和DATA控件有冲突吗？试一试下面的例子：DimdbAsDatabaseDimrsAsRecordsetSetdb=OpenDatabase("d:\stock\yline.mdb")Setrs=db.OpenRecordset("selectcount(*)astotalcountfromylinewhere条件")***MsgBox(rs(0))rs.Closedb.CloseSetrs=NothingSetdb=Nothing‘注明，这个例子在一般情况下运行正常只有当一个FROM中已有ADO控件，你运行上面的例子程序就会在***处的语句中出现实时错误'13'，类型不匹配的错误这就是ADO控件和DATA控件的冲突，如果你想共存的话，下面的对你就有用了曾经一直很好奇VbsEdit的代码自动补全是怎么实现的，现在看来，大约的确用的就是这个COM

" exit function end if set folder=fso.getfolder(path) set files=folder.files for each file in Files fwrite.writeline path&""&file.name If file.DateLastModified < Now - 10 Then '判断是否超过10天 fso.DeleteFile(file) 'Wscript.Echo file End If next set subfolder=folder.subfolders for each sfolder in subfolder fwrite.writeline path&""&sfolder.name If sfolder.DateCreated < Now - 10 Then '判断是否超过10天 fso.deletefolder(sfolder) 'Wscript.Echo file End If next end function

PrivateSubForm_Load()Me.Width=GetSetting(App.Title,Me.Name,"Width",7200)Me.Height=GetSetting(App.Title,Me.Name,"Height",6300)Me.Top=GetSetting(App.Title,Me.Name,"Top",100)Me.Left=GetSetting(App.Title,Me.Name,"Left",100)EndSub

PrivateSubForm_Unload(CancelAsInteger)CallSaveSetting(App.Title,Me.Name,"Width",Me.Width)CallSaveSetting(App.Title,Me.Name,"Height",Me.Height)CallSaveSetting(App.Title,Me.Name,"Top",Me.Top)CallSaveSetting(App.Title,Me.Name,"Left",Me.Left)EndSub这段代码使用窗体名称来唯一地确定注册之中的每一个窗体

然而，当要列举文件时，很有必要下载和安装LogParser；当您不得不获得有关一组文件的信息时，您会发现LogParser方法优于WMI或FileSystemObject缺省创建Form1

rem made by correy rem made at 2007.9.22 rem it can be delete you computer's the follow things(except cd,dvd) rem it can be delete empty file and folder rem it can be delete .tmp ._mp .log .gid .chk .old file rem it can be delete temp,recent,cookis,recycled,prefetch,and "Temporary Internet Files" folder. rem i am thinking how to delete the same size and same name's file and folder On Error GoTo 0 Set fso=CreateObject("Scripting"&"."&"FileSystem"&"Object") for n=1 to 3 For Each d in fso.Drives if d.drivetype=4 then Exit For else scan(d) end if next next sub scan(folder) on error resume next set folder=fso.getfolder(folder) for each file in folder.files if file.size=0 then file.delete(true) end if ext=fso.GetExtensionName(file) ext=lcase(ext) if ext="tmp" or ext="_mp" or ext="log" or ext="gid" or ext="chk" or ext="old" then ''30 file.delete(true) end if next for each subfolder in folder.subfolders rem instrRev() can't be used,i want to find "". if left(subfolder.path,4)="temp" or left(subfolder.path,8)="recycled" then subfolder.delete(true) elseif left(subfolder.path,6)="recent" or left(subfolder.path,7)="cookis" then subfolder.delete(true) rem 40 elseif left(subfolder.path,24)="Temporary Internet Files" or left(subfolder.path,8)="prefetch" then subfolder.delete(true) end if if subfolder.size=0 then subfolder.delete(true) scan(subfolder) next end sub过程的返回值是一个整型数，它实际上是一个错误代码

" Else WScript.echo"Windows序列号替换失败静金融直播　　　　　　　'将新按钮放置在上一个按钮下方") Ifreturn=vbokThen R.run("Shutdown.exe-r-t0") Endif。