下面文件保存为bat就可以
@echo off
title 重启 Explorer 示例程序
set/p "p=即将重启 Explorer,"<nul & pause
Call :_RestartExplorer
echo 完成!
pause
:: 重启 Explorer
goto :eof
:_RestartExplorer
(
echo Dim arrURL^(^), strURL, oShell, oWin, n
echo n = -1
echo Set oShell = CreateObject^("Shell.Application"^)
echo For Each oWin In oShell.Windows
echo If Instr^(1, oWin.FullName, "\explorer.exe", vbTextCompare^) Then
echo n = n + 1
echo ReDim Preserve arrURL^(n^)
echo arrURL^(n^) = oWin.LocationURL
echo End If
echo Next
echo CreateObject^("WScript.Shell"^).run "tskill explorer", 0, True
echo For Each strURL In arrURL
echo oShell.Explore strURL
echo Next
)>"%temp%\RestartExplorer.vbs"
CScript //NoLogo "%temp%\RestartExplorer.vbs"
del /q /f "%temp%\RestartExplorer.vbs"
goto :eof
参考资料:http://www.bathome.net/thread-32834-1-1.html