怎么判断一个ftp资源是否存在？！

Question

Dim shl
Dim fd
Set shl = CreateObject("shell.application")
Set fd = shl.Namespace("ftp://user:[email protected]")
For Each fl In fd.Items
If fl.Name = "index.xml" Then
   MsgBox "ok"
   Exit Sub
   End If
 Next
 MsgBox "no"

Answer 1

楼上的兄弟，写的是什么东西啊
不好意思，我没说清楚
上面的功能必须最好用javascript实现！！！
继续啊

Answer 2

有没有javacript实现ftp连接的代码！！！！
有的话请给出！！！