Board logo

标题: [其他] 求在weipe下关闭J盘的bat或者vbs,谢谢 [打印本页]

作者: yyz219    时间: 2022-3-3 12:48     标题: 求在weipe下关闭J盘的bat或者vbs,谢谢

本帖最后由 yyz219 于 2022-3-3 14:06 编辑

已经使用过而【不能够解决问题】的方法有(不是提示缺少这个那个,就提示加载dll出错)
1
  1. taskkill /f /im explorer.exe       &  start explorer.exe
复制代码
2
  1. @echo off
  2. mshta "javascript:wnds=new ActiveXObject('Shell.Application').windows(); for (i=0; i<wnds.Count; i++) {w=wnds(i); w && w.document && w.document.folder && 'j:'==w.document.folder.title && w.quit();} close();"
  3. pause >nul
复制代码
3
  1. Set wins = CreateObject("Shell.Application").Windows
  2. If not IsNull(wins) Then
  3.     For Each w In wins
  4.         If InStr(LCase(w.FullName), "\explorer.exe") >0 Then w.Quit
  5.     Next
  6. End If
复制代码
4
  1. path = "j:"
  2. Dim fso
  3. Set fso = WScript.CreateObject("Scripting.Filesystemobject")
  4. path = fso.GetFolder(path).Path
  5. path = "file:///" & Replace(path,"\","/")
  6. Dim Shell
  7. Set Shell = WScript.CreateObject("Shell.Application")
  8. For Each W In Shell.Windows
  9. If w.LocationUrl=path Then W.Quit
  10. Next
复制代码
5
  1. fdpath="J:"
  2. arr=Split("%,{,},[,],&,^,#,`, ", ",")
  3. fdpath=Replace(fdpath, "\", "/")
  4. If Right(fdpath, 1) = "/" Then fdpath=Left(fdpath, Len(fdpath)-1)
  5. If Len(fdpath) = 2 Then fdpath=fdpath & "/"
  6. Set ShellApp = CreateObject("Shell.Application")
  7. Set oWindows = ShellApp.Windows
  8. For Each SubWds In oWindows
  9.     If LCase(SubWds.LocationURL) = LCase("file:///" & encode(fdpath, arr)) Then
  10.         SubWds.Quit()
  11.     End If
  12. Next
  13. Function encode(ByVal path, ByRef arr)
  14.     For i=0 To UBound(arr)
  15.         path=Replace(path, arr(i), "%" & Hex(Asc(arr(i))))
  16.     Next
  17.     encode=path
  18. End Function
复制代码
我今天要回老家,可能需要一个星期,回来以后再试一试你给的方法,谢谢
作者: yyz219    时间: 2022-3-5 18:56

真的没有办法了吗?
作者: yyz219    时间: 2022-3-17 21:00

我在别的论坛求助得到了【移除J盘的盘符(同时关闭J盘).bat】
在本论坛搜索到了【根据卷边名称分配一个指定盘符.bat】
http://www.bathome.net/thread-54407-1-1.html   【2楼】

我将两个批处理合二为一,达到了我的目的。
现在有一个问题是:处理速度不是很快
帮我看看能不能加快速度?谢谢!
*********************************
  1. @echo off
  2. ::【移除J盘的盘符(同时关闭了J盘)】
  3. set sPanFu=J
  4. (
  5. echo list volume
  6. echo exit
  7. ) | diskpart.exe
  8. (
  9. echo select volume=%sPanFu%
  10. echo remove letter=%sPanFu%
  11. echo exit
  12. ) | diskpart.exe
  13. ::【将J盘的盘符重新弄出来】我的J盘是:涛的(J:)
  14. title %info%
  15. cd /d "%~dp0"
  16. for /f "tokens=2" %%a in ('echo;list vol^|diskpart^|find "涛的"') do set vol=%%a
  17. if not defined vol (echo;not found&goto :end)
  18. (echo;select volume %vol%
  19. echo;assign letter=J)|diskpart
  20. :end
  21. exit
复制代码





欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2