Determinar quantos arquivos estão em um diretório via FTP

[Matuzalém Teles 1]

Acho que fica bem claro o tópico mais andei pesquisando e não achei muito sobre o assunto.

Achei este tópico mais tem que ser na hospedagem então sera via ftp ou outra forma.

Dim counter = My.Computer.FileSystem.GetFiles("C:\TestDir")
MsgBox("number of files is " & CStr(counter.Count))

 

Deste já agradeço pela atenção !

[KhaosDoctor 242]

Para ter um FTP você precisa de hospedagem...

[Matuzalém Teles 1]

Sim amigo eu sei eu tenho a hospedagem mais como faço para pegar este numero de arquivos ? para saber a quantidade de pastas que tem na minha hospedagem?

[KhaosDoctor 242]

http://www.example-code.com/vb/ftp_numFiles.asp

http://social.msdn.microsoft.com/Forums/vstudio/en-US/08b1e3ad-e9d1-4b80-9f92-11dcced1f0b8/visual-basic-2010-search-for-files-in-ftp?forum=vbgeneral

http://www.codeproject.com/Questions/570076/Howplusdoplusipluscountplusfilesplusinplusftpplusr

http://stackoverflow.com/questions/15866808/how-to-correctly-count-the-number-of-files-in-a-folder

 

No caso o mais correto é usar a classe FTPWebRequest para poder fazer uma requisição de contagem do modo como está descrito nos links.

[Matuzalém Teles 1]

O único problema e que no Chilkat FTP2 aparece mensagens por não tem a licença isto iria atrapalhar .

tem outra forma com o FTPWebRequest, estou pesquisando e não acho nada.

 

Achei assim só que e para lista os arquivos:

Public Function GetFileList(ByVal host As String, ByVal username As String, ByVal password As String, ByVal currentdirectory As String) As List(Of String)
        Dim oFTP As FtpWebRequest = CType(FtpWebRequest.Create(host & currentdirectory), FtpWebRequest)
        oFTP.Credentials = New NetworkCredential(username, password)
        oFTP.KeepAlive = True
        oFTP.Method = WebRequestMethods.Ftp.ListDirectory
        Dim response As FtpWebResponse = CType(oFTP.GetResponse, FtpWebResponse)
        Dim sr As StreamReader = New StreamReader(response.GetResponseStream)
        Dim str As String = sr.ReadLine
        Dim oList As New List(Of String)
        While str IsNot Nothing
            If str.StartsWith(My.Resources.MerchantID) Then
                oList.Add(str)
            End If
            str = sr.ReadLine
        End While
 

        sr.Close()
        response.Close()
        oFTP = Nothing
        Return oList
    End Function

[KhaosDoctor 242]

Não entendi, mensagem?

[Matuzalém Teles 1]

Por que assim cara eu quero um exemplo no meu programa ele ira contar quantas pastas tem na hospedagem na url que indicar. e mostra em uma label.

[KhaosDoctor 242]

Ah sim, então cara, você pode fazer via FTPWebRequest, é o unico modo que consigo pensar, talvez listar os nomes de todas as pastas e arquivos em um array e contar a quantidade de linha deste array.

[Matuzalém Teles 1]

Amigo você poderia me ajudar a fazer isto?

[KhaosDoctor 242]

Em um dos links que eu passei acima existe um tutorial que mostra como listar o nome de todos os arquivos em um array. Ai é só dar um .Count neste array.

[Matuzalém Teles 1]

Este? http://social.msdn.microsoft.com/Forums/vstudio/en-US/08b1e3ad-e9d1-4b80-9f92-11dcced1f0b8/visual-basic-2010-search-for-files-in-ftp?forum=vbgeneral

 

Esta bagunçando e difícil de entender .

[Gustavo Emygdio Barboza 24]

tenho uma dica para simplificar.... como vc tem hospedagem faça uma página asp coloque lá nessa página você pode escolher um tipo de retorno json ou xml ou texto mesmo nos valores que quer com o FSO e assim no Visual Basic busque com xmlhttp...

 

qualquer dúvida só postar..

 

Sucesso!

[Matuzalém Teles 1]

Vlw Obrigado pela dica, mais não seria mais fácil fazer com o FTPWeb no VB.NET?

Ou fazer um script em PHP com que conta quantas pastas e joga em um arquivo ?

Mais o problema e que no meu sistema nem sempre estas pastas vão estar lá eles são criadas pelos clientes estão teria que ser pelo FTPWebRequest.

[Gustavo Emygdio Barboza 24]

Mas desde criar um arquivo o script php pode retornar seus valores direto e VC pescaria como webservice...

[Matuzalém Teles 1]

Alguém poderia min ajudar com isto ai. Por Favor, to tentando de tudo e nada.

Pesquisando e nada acho.

[Gustavo Emygdio Barboza 24]

Matuzalém você trabalha com qual linguagem? PHP ou VB? seu hospedeiro é Windows ou Linux?

[Matuzalém Teles 1]

Olá trabalho com os dois sei um pouco de cada to adquirindo experiencia, Meu hospedeiro e Linux.

[Gustavo Emygdio Barboza 24]

Que pena se fosse windows te fazia um exemplo com FSO no ASP mas pesquise isso no php e publique e no .NET pesquise sobre HTTP Client

[KhaosDoctor 242]

Você está mexendo com ASP ou Windows Forms? Porque como eu já disse é só você contar o array dos nomes e você vai saber quantos arquivos você tem.

 

Não há necessidade de fazer algo em várias linguagens e complicar uma coisa simples

[Gustavo Emygdio Barboza 24]

a questão dele é chegar nesse array...