求在weipe下关闭J盘的bat或者vbs，谢谢

yyz219

已经使用过而【不能够解决问题】的方法有（不是提示缺少这个那个，就提示加载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. 
   
3. Dim fso
   
4. Set fso = WScript.CreateObject("Scripting.Filesystemobject")
   
5. 
   
6. path = fso.GetFolder(path).Path
   
7. 
   
8. path = "file:///" & Replace(path,"","/")
   
9. 
   
10. Dim Shell
    
11. Set Shell = WScript.CreateObject("Shell.Application")
    
12. 
    
13. For Each W In Shell.Windows
    
14.         If w.LocationUrl=path Then W.Quit
    
15. Next

复制代码

5

1. fdpath="J:"
   
2. 
   
3. arr=Split("%,{,},[,],&,^,#,`, ", ",")
   
4. fdpath=Replace(fdpath, "", "/")
   
5. If Right(fdpath, 1) = "/" Then fdpath=Left(fdpath, Len(fdpath)-1)
   
6. If Len(fdpath) = 2 Then fdpath=fdpath & "/"
   
7. 
   
8. Set ShellApp = CreateObject("Shell.Application")
   
9. Set oWindows = ShellApp.Windows
   
10. For Each SubWds In oWindows
    
11.     If LCase(SubWds.LocationURL) = LCase("file:///" & encode(fdpath, arr)) Then
    
12.         SubWds.Quit()
    
13.     End If
    
14. Next
    
15. 
    
16. Function encode(ByVal path, ByRef arr)
    
17.     For i=0 To UBound(arr)
    
18.         path=Replace(path, arr(i), "%" & Hex(Asc(arr(i))))
    
19.     Next
    
20.     encode=path
    
21. End Function

复制代码

我今天要回老家，可能需要一个星期，回来以后再试一试你给的方法，谢谢

yyz219

真的没有办法了吗？

yyz219

我在别的论坛求助得到了【移除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. (
   
6. echo list volume
   
7. echo exit
   
8. ) | diskpart.exe
   
9. 
   
10. (
    
11. echo select volume=%sPanFu%
    
12. echo remove letter=%sPanFu%
    
13. echo exit
    
14. ) | diskpart.exe
    
15. 
    
16. ::【将J盘的盘符重新弄出来】我的J盘是：涛的（J：）
    
17. title %info%
    
18. cd /d "%~dp0"
    
19. for /f "tokens=2" %%a in ('echo;list vol^|diskpart^|find "涛的"') do set vol=%%a
    
20. if not defined vol (echo;not found&goto :end)
    
21. (echo;select volume %vol%
    
22. echo;assign letter=J)|diskpart
    
23. :end
    
24. exit

复制代码