Contar arquivos no FTP

[Morpheus#2005 1]

Eu estou apanhando com esse pequeno script ?? Alguem me ajuda ??

 

Preciso contar arquivos dentro de um ftp especifico / pasta.

 

Valew

<%
'***************** File
Dim ftp 
set ftp = [url="ftp://pasta.dominio/pasta"]ftp://pasta.dominio/pasta[/url]
Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(Server.Mappath("ftp"))
Set files = folder.Files
response.write "<h3>Numero de Registros Encontrados: " & files.count & "</h3>"
response.write "<u>File List:</u><br />"
For Each file in Files
Response.Write file.Name & "<br />"
Next

Set folder = Nothing
Set files = Nothing
Set fso = Nothing
Set ftp = Nothing
%>

 

Good Luck !!!

[hargon 64]

Nunca vi algo parecido com o que quer fazer. Mas creio que para acessar um FTP no mínimo você precisará informar usuário e senha. Então esse código não funcionaria.

 

Os arquivos que quer contar estão em seu servidor ou servidor alheio?

[Mário Monteiro 179]

Voce tem acesso a esse FTP ?