- 帖子
- 2
- 积分
- 14
- 技术
- 0
- 捐助
- 0
- 注册时间
- 2012-8-8
|
本帖最后由 cwll444 于 2012-8-8 21:38 编辑
一个vbs文件如何转成BAT文件同样实现VBS文件实现的功能。
以下是VBS文件内容
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
Dim oShell
Set oShell = CreateObject("WScript.Shell")
Dim arrPath
arrPath = ""
If oFSO.FolderExists("C:\Drs") Then
FolderTree("C:\Drs")
Else
WScript.Quit
End If
Dim sDevicePath
sDevicePath = "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\DevicePath"
oShell.RegWrite sDevicePath,"%SystemRoot%\inf;" & arrPath,"REG_EXPAND_SZ"
' 递归查询文件夹函数
Function FolderTree(sPath)
Dim oFolder,oSubFolder
Set oFolder = oFSO.GetFolder(sPath)
For Each oSubFolder In oFolder.SubFolders
arrPath = arrPath & oSubFolder.Path & ";"
FolderTree(oSubFolder.Path)
Next
End Function |
|