拷貝程式檔案夾并注冊執行批處理的代碼

'********************************************************

'編寫人：王浩

'編寫時間：2013.9.8

'編寫目的：通過選擇軟體版本，自動拷貝相應版本軟體的控件到c:\MedEx目錄，并進行注冊

'********************************************************

Dim i,m,fs,x

i=0

'*********************************************************

'選擇拷貝的軟體版本，如果輸入的非0-4中的Do While Do While Do While  <condition>

'*********************************************************

Do

 m=inputbox("請輸入要拷貝的版本："&Chr(13) & Chr(10)&"1. 6.2.3"&Chr(13) & Chr(10)&"2. 6.2.2"&Chr(13) & Chr(10)&"3. 6.2.1"&Chr(13) & Chr(10)&"4. 6.2.0","提示")

 if m="1" Or m="2" or m="3" Or m="4"  Then

  Exit Do

 ElseIf m="" Then

  wscript.Quit

 Else

  m=msgbox("隻能輸入數字0-4中的一個,是否重新輸入",1,"提示")

  If m=1 Then

   i=0

  Else

   wscript.Quit

  End If

 End If

Loop While i=0

Set fs=createobject("scripting.filesystemobject")

'**********************************************************

'判斷是否存在C:\MedEx目錄，如果存在，是否執行删除操作：删除程式繼續執行，不删除，停止執行

'**********************************************************

If fs.folderexists("C:\MedEx") Then

 i=MsgBox("C:\MedEx目錄已存在,是否删除",1,"提示")

 If i=1 Then

  fs.deletefolder("C:\MedEx")

 Else

  MsgBox "c:\MedEx目錄未删除,拷貝失敗"

  wscript.Quit

 end If

End If

'**********************************************************

'如果版本檔案夾存在，則拷貝；如果不存在，提示并停止執行

'**********************************************************

Select Case m

 case 1

  If fs.folderexists("D:\MedExSoft\MedEx6.2.3")  Then

   fs.copyfolder "D:\MedExSoft\MedEx6.2.3","C:\MedEx"

  Else

   MsgBox "D:\MedExSoft\MedEx6.2.3目錄不存在，請先備份！！！"

   wscript.Quit

  end If

 case 2

  If fs.folderexists("D:\MedExSoft\MedEx6.2.2")  Then

   fs.copyfolder "D:\MedExSoft\MedEx6.2.2","C:\MedEx"

  Else

   MsgBox "D:\MedExSoft\MedEx6.2.2目錄不存在，請先備份！！！"

   wscript.Quit

  end If

 case 3

  If fs.folderexists("D:\MedExSoft\MedEx6.2.1")  Then

   fs.copyfolder "D:\MedExSoft\MedEx6.2.1","C:\MedEx"

  Else

   MsgBox "D:\MedExSoft\MedEx6.2.1目錄不存在，請先備份！！！"

   wscript.Quit

  end If

 case Else

    If fs.folderexists("D:\MedExSoft\MedEx6.2.0")  Then

   fs.copyfolder "D:\MedExSoft\MedEx6.2.0","C:\MedEx"

  Else

   MsgBox "D:\MedExSoft\MedEx6.2.0目錄不存在，請先備份！！！"

   wscript.Quit

  end If

End Select

'**********************************************************

'注冊c:\MedEx目錄下的ocx  dll控件

'執行c:\MedEx目錄下的批處理

'**********************************************************

Set ws=createobject("wscript.shell")

Set fs_1=fs.getfolder("C:\MEdEx").files

for each x In fs_1

 If LCase(fso.getextensionName(x))="dll"  Or  LCase(fso.getextensionName(x))="ocx"  Then

  ws.Run "C:\windows\system32\regsvr32.exe """&x&""""

 ElseIf LCase(fso.getextensionName(x))="bat"  Then

  ws.Run """"&x&""""

 End if

Next