求助如何用BAT关闭远程FTP目录

wangxw · 发表于 2019-1-1 20:57:08

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)

Batcher · 发表于 2019-1-1 21:06:35

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

Blitz · 发表于 2019-1-2 08:13:47

试试这样，这样是只要打开的文件夹路径包含 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

复制代码

wangxw · 发表于 2019-1-2 11:08:14

回复 2# Batcher

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

wangxw · 发表于 2019-1-2 11:17:13

本帖最后由 wangxw 于 2019-1-2 11:25 编辑

回复 3# Blitz

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

Blitz · 发表于 2019-1-2 12:34:33

回复 5# wangxw

保存成bat运行

wangxw · 发表于 2019-1-2 19:43:43

回复 6# Blitz

还是不行。。没有反应

Blitz · 发表于 2019-1-2 20:22:58

回复 7# wangxw

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

wangxw · 发表于 2019-1-2 20:31:03

回复 8# Blitz

是呀，请帮忙改下吧。。

Blitz · 发表于 2019-1-2 20:52:11

回复 9# wangxw

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

		自动登录	找回密码
密码			注册

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

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