- @echo off
- set "fd=D:\Test"
- start "" "%fd%\"
- mshta vbscript:execute("set a=createobject(""Shell.Application""):do:s="""":for each w in a.windows:s=s+w.locationURL+vblf:next:loop while instr(lcase(s),replace(lcase(""%fd:\=/%""),"" "",chr(37)+""20"")+vblf):close")
- echo,OK
- pause
复制代码
|