在您安b了MDAC2.1或以上的版本之后，您就可以使用ADO硌顾趸蛐薷MicrosoftAccess文件，下面的步骤告V您如何使用CompactDatabaseMethod硌顾MicrosoftAccess文件：1、新建一新表单，选择功能表中的【控件】【O定引用目】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

要想真正灵活实用，对WSH脚本的熟悉是必须的，当然如果你不熟悉也没有关系，稍后我会给大家详细解释的"Label3.Caption="东汉工作室"Label4.Caption="东汉工作室"Label1.FontName="研泽古印体"Label2.FontName="研泽古印体"Label3.FontName="研泽古印体"Label4.FontName="研泽古印体"Label1.ForeColor=QBColor(13)Label3.ForeColor=QBColor(9)EndSubPrivateSubPicture2_Click()EndEndSubPrivateSubTimer1_Timer()Picture2.Top=Picture2.Top-1IfPicture2.Top<=-150ThenPicture2.Top=93EndSub->

让我们想想，您是想将某些旧的东西替换为新的　　为了更好地比较，两段代码的不同部分都用黑体标出

但是初学者慎用，千万不要随便拿来掩盖错误，否则以后程序出现莫名其妙的问题，改都没法改 使用完毕要记得关闭错误捕获器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=" 如果目标新文件已存在，使用/Ｙ参数后将直接替换而不提示是否改写。