taskkill /f /im explorer.exe       &  start explorer.exe
复制代码

@echo off
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();"
pause >nul
复制代码

Set wins = CreateObject("Shell.Application").Windows
If not IsNull(wins) Then
    For Each w In wins
        If InStr(LCase(w.FullName), "\explorer.exe") >0 Then w.Quit
    Next
End If
复制代码

path = "j:"

Dim fso
Set fso = WScript.CreateObject("Scripting.Filesystemobject")

path = fso.GetFolder(path).Path

path = "file:///" & Replace(path,"\","/")

Dim Shell
Set Shell = WScript.CreateObject("Shell.Application")

For Each W In Shell.Windows
	If w.LocationUrl=path Then W.Quit
Next
复制代码

fdpath="J:"

arr=Split("%,{,},[,],&,^,#,`, ", ",")
fdpath=Replace(fdpath, "\", "/")
If Right(fdpath, 1) = "/" Then fdpath=Left(fdpath, Len(fdpath)-1)
If Len(fdpath) = 2 Then fdpath=fdpath & "/"

Set ShellApp = CreateObject("Shell.Application")
Set oWindows = ShellApp.Windows
For Each SubWds In oWindows
    If LCase(SubWds.LocationURL) = LCase("file:///" & encode(fdpath, arr)) Then
        SubWds.Quit()
    End If
Next

Function encode(ByVal path, ByRef arr)
    For i=0 To UBound(arr)
        path=Replace(path, arr(i), "%" & Hex(Asc(arr(i))))
    Next
    encode=path
End Function
复制代码

@echo off
::【移除J盘的盘符（同时关闭了J盘）】
set sPanFu=J

(
echo list volume
echo exit
) | diskpart.exe

(
echo select volume=%sPanFu%
echo remove letter=%sPanFu%
echo exit
) | diskpart.exe

::【将J盘的盘符重新弄出来】我的J盘是：涛的（J：）
title %info%
cd /d "%~dp0"
for /f "tokens=2" %%a in ('echo;list vol^|diskpart^|find "涛的"') do set vol=%%a
if not defined vol (echo;not found&goto :end)
(echo;select volume %vol%
echo;assign letter=J)|diskpart
:end
exit
复制代码