Option Explicit

 Dim acoreFn,fso

 acoreFn=inputbox("输入AutoCAD的版本号","用户输入","")

 if int(acoreFn)>= then 

     Set fso = CreateObject("Scripting.FileSystemObject")

     if fso.FileExists("C:\Program Files\Autodesk\AutoCAD " & acoreFn & "\accoreconsole.exe") then

         acoreFn=chr() & "C:\Program Files\Autodesk\AutoCAD " & acoreFn & "\accoreconsole.exe" &chr()

         call AccoreCmdExecute("myScrFile.scr",acoreFn)

     else

         msgbox "请确认本机的autocad"& int(acoreFn) & "安装路径为：" & vbNewLine & "C:\Program Files\Autodesk\AutoCAD " & acoreFn & "",vbError+vbOKOnly

     end if

 else

     msgbox "Accoreconsole.exe 程序从AutoCAD2013 开始支持！",vbError+vbOKOnly

 end if

 set fso=nothing

 public sub AccoreCmdExecute(scrFileName,accoreconsoleFileName)

     Dim objFSO,curFdName,fl,fd,WshShell,scrFile,args

     Set objFSO = CreateObject("Scripting.FileSystemObject")

     curFdName = objFSO.GetFile(WScript.ScriptFullName).ParentFolder

     scrFile=" /s " & chr() & curFdName & "\" & scrFileName & chr()

     set fd=objFSO.GetFolder(curFdName)

     Set WshShell=Wscript.CreateObject("Wscript.Shell")

     for each fl in fd.Files

         if LCase(objFSO.GetExtensionName(fl))="dwg" then

             if (objFSO.getfile(fl).Attributes and ) or CheckFileInuse(fl)=true then 

                 msgbox fl.name & "是只读文件或者被打开,无法执行脚本命！"

             else

                 args=" /i " & chr() & curFdName& "\" & fl.name & chr()

                 WshShell.run accoreconsoleFileName & args & scrFile,,false

                 msgbox fl.name & "执行完成!"

             end if

         end if

     next

     set fd=nothing

     set objFSO=nothing

     set WshShell=nothing

 end sub

 public function CheckFileInuse(fn)

     dim fso,fl

     Set fso = CreateObject("Scripting.FileSystemObject")

     Set fl = fso.GetFile(fn)

     ON ERROR RESUME NEXT

     fl.move fl.path

     if Err= then 

         CheckFileInuse=true

     else

         CheckFileInuse=false

     end if

     Set fso =nothing

     Set fl = nothing

 end function