超精华的asp代码大全第1/2页(14)

Set oDrive = oFS.GetDrive(strRoot) 
Set oRootDir = oDrive.RootFolder 
Else 
Set oRootDir = oFS.GetFolder(strRoot) 
End IF 
Else 
EchoB("<B>Folder ( " & strRoot & " ) Not Found.") 
Exit Sub 
End IF 
setRoot = oRootDir 

Echo("<SELECT NAME=" & Chr(34) & "frmDllPath" & Chr(34) & ">") 
Call getAllDlls(oRootDir) 
EchoB("</SELECT>") 
BuildOptions 
End Sub 

Sub getAllDlls(oParentFolder) 
Dim oSubFolders, oFile, oFiles 
Set oSubFolders = oParentFolder.SubFolders 
Set opFiles = oParentFolder.Files 

For Each oFile in opFiles 
IF Right(lCase(oFile.Name), 4) = ".dll" OR Right(lCase(oFile.Name), 4) = ".ocx" Then 
Echo("<OPTION VALUE=" & Chr(34) & oFile.Path & Chr(34) & ">" _ 
& oFile.Name & "</Option>") 
End IF 
Next 

On Error Resume Next 
For Each oFolder In oSubFolders 'Iterate All Folders in Drive 
Set oFiles = oFolder.Files 
For Each oFile in oFiles 
IF Right(lCase(oFile.Name), 4) = ".dll" OR Right(lCase(oFile.Name), 4) = ".ocx" Then 
Echo("<OPTION VALUE=" & Chr(34) & oFile.Path & Chr(34) & ">" _ 
& oFile.Name & "</Option>") 
End IF 
Next 
Call getAllDlls(oFolder) 
Next 
On Error GoTo 0 
End Sub 

Sub Register(strFilePath, regMethod) 
Dim theFile, strFile, oShell, exitcode 
Set theFile = oFS.GetFile(strFilePath) 
strFile = theFile.Path 

Set oShell = CreateObject ("WScript.Shell") 

IF regMethod = "REG" Then 'Register 
oShell.Run "c:\WINNT\system32\regsvr32.exe /s " & strFile, 0, False 
exitcode = oShell.Run("c:\WINNT\system32\regsvr32.exe /s " & strFile, 0, False) 
EchoB("regsvr32.exe exitcode = " & exitcode) 
Else 'unRegister 
oShell.Run "c:\WINNT\system32\regsvr32.exe /u/s " & strFile, 0, False