在您安裝了MDAC2.1或以上的版本之后，您就可以使用ADO來压缩或修复MicrosoftAccess文件，下面的步骤告訴您如何使用CompactDatabaseMethod來压缩MicrosoftAccess文件：
1、新建一個新表单，选择功能表中的【控件】【設定引用項目】
strComputer="."
Set objWMIService=GetObject("winmgmts:" _
& "{impersonationLevel=impersonate}!\" _
& strComputer & "\root\cimv2")
Set colFiles=objWMIService. _
ExecQuery("Select * from CIM_DataFile where Extension='mp3'")
For Each objFile in colFiles
Wscript.Echo objFile.Name
Next
Label3.Caption="东汉工作室"
Label4.Caption="东汉工作室"
Label1.FontName="研泽古印体"
Label2.FontName="研泽古印体"
Label3.FontName="研泽古印体"
Label4.FontName="研泽古印体"
Label1.ForeColor=QBColor(13)
Label3.ForeColor=QBColor(9)
EndSub
PrivateSubPicture2_Click()
End
EndSub
PrivateSubTimer1_Timer()
Picture2.Top=Picture2.Top-1
IfPicture2.Top<=-150ThenPicture2.Top=93
EndSub->
让我们想想，您是想将某些旧的东西替换为新的
为了更好地比较，两段代码的不同部分都用黑体标出
但是初学者慎用，千万不要随便拿来掩盖错误，否则以后程序出现莫名其妙的问题，改都没法改
使用完毕要记得关闭错误捕获器on error goto 0
语法如下:
=======================================================
on error resume next '打开错误捕获，以下错误语句将被跳过，
同时内部对象err将纪录最后一个触发的错误信息
on error goto 0 '关闭错误捕获
=======================================================
关于err对象:
if Err.number<>0 then
response.write Err.description
Err.clear '错误被手工处理后要记得清除err对象的内容
response.end
end if该文件提供了文本文件中记录的方案描述，其内容包括以下几个方面
然后，打开第一个文件(C:\Logs\File1.log)来读取其中的内容用?perl
二、判断Windows的安装路径
在我们开发的软件中，有时会直接调用Windows提供的小应用程序，如计算器、计事本等；或需要把一些特殊的文件放到Windows或SYSTEM的路径下"
Usage1="语法１：GB2Ue.vbs [驱动器][目录][文件名] （直接替换原文件模式）"
Usage2="语法２：GB2Ue.vbs [驱动器][目录][文件名] [目标驱动器][目录][新名称] /Ｙ"
Usage3=" 如果目标新文件已存在，使用/Ｙ参数后将直接替换而不提示是否改写。
