[系统相关] 求助如何用BAT关闭远程FTP目录

wangxw

RT，我用资源管理器打开了ftp://bbs.ssh.bank，这个FTP服务器根目录下还包含不同的日期文件夹，内含若干文件。现在我想用BAT使用MSHTA直接调用VBS的方式关闭我打开的目录，也许是FTP服务器根目录，也许是根目录下的文件夹，如ftp://bbs.ssh.bank/20181122/。另下面这个可以关闭根目录窗口，但是关不了根目录下文件夹窗口，求原因！
mshta vbscript:execute("For Each w In CreateObject(""Shell.Application"").Windows:If w.LocationName=""bbs.ssh.bank"" Then:w.Quit:End If:Next")(close)

Blitz

回复 9# wangxw


    你试试这个
http://www.bathome.net/viewthread.php?tid=47722

wangxw

回复 8# Blitz


    是呀，请帮忙改下吧。。

Blitz

回复 7# wangxw


    嗯。。。刚刚试了下确实不行，好像ftp的窗口没法用你那句命令关掉

wangxw

回复 6# Blitz


    还是不行。。没有反应

Blitz

回复 5# wangxw


    保存成bat运行

wangxw

回复 3# Blitz


    不行，保存为VBS文件执行后没有效果。而且，我是想用MSHTA调VBS的方式来实现 ！

wangxw

回复 2# Batcher

FTP下文件夹窗口的名字，也是文件夹的名字，并不会是FTP://bbs.ssh.bank/文件夹名字，而且，这种文件夹窗口和普通文件夹窗口不一样。

Blitz

试试这样，这样是只要打开的文件夹路径包含 bbs.ssh.bank 就会关闭

' 2>nul&cls&@echo off
' 2>nul&for /f "tokens=1* delims=/" %%a in ('cscript -nologo -e:vbscript "%~f0"^|find "bbs.ssh.bank"') do set a=%%~nxb
' 2>nul&mshta vbscript:execute("For Each w In CreateObject(""Shell.Application"").Windows:If w.LocationName=""%a%"" Then:w.Quit:End If:Next")(close)
' 2>nul&pause
' 2>nul&exit

Dim arrURL(), strURL, oShell, oWin, n
n = -1
Set oShell = CreateObject("Shell.Application")
For Each oWin In oShell.Windows
  If Instr(1, oWin.FullName, "\explorer.exe", vbTextCompare) Then
    n = n + 1
    ReDim Preserve arrURL(n)
    arrURL(n) = oWin.LocationURL
  End If
Next
For Each strURL In arrURL
  wscript.echo strURL
Next
复制代码

Batcher

我猜原因是文件夹窗口不满足 If w.LocationName=""bbs.ssh.bank"" 这个条件判断