Breadcrumbs

[MoDy kareem]

Hi,
I'm looking for a way to count files on an ftp server cryer;
Please Help me cryer; cryer; cryer; cryer; cryer;

[Agust1337]

Hello MoDy Kareem,
Why do you have two threads about this?

[MoDy kareem]

Sorry Wrong dunnno;

[mandai]

Try:

Code: Select all

        Dim req As FtpWebRequest = FtpWebRequest.Create("ftp://localhost/directory")
        req.Credentials = New NetworkCredential("user", "password")
        req.Method = WebRequestMethods.Ftp.ListDirectory

        Dim resp As FtpWebResponse = req.GetResponse()
        Dim sr As StreamReader = New StreamReader(resp.GetResponseStream())

        Dim filelist As String = sr.ReadToEnd()
        sr.Close()
        resp.Close()

        Dim filecount As Integer = 0
        For i As Integer = 0 To filelist.Length - 1
            If filelist(i) = vbLf Then filecount += 1
        Next
        MsgBox(filecount)

[MoDy kareem]

Try:

Code: Select all

        Dim req As FtpWebRequest = FtpWebRequest.Create("ftp://localhost/directory")
        req.Credentials = New NetworkCredential("user", "password")
        req.Method = WebRequestMethods.Ftp.ListDirectory

        Dim resp As FtpWebResponse = req.GetResponse()
        Dim sr As StreamReader = New StreamReader(resp.GetResponseStream())

        Dim filelist As String = sr.ReadToEnd()
        sr.Close()
        resp.Close()

        Dim filecount As Integer = 0
        For i As Integer = 0 To filelist.Length - 1
            If filelist(i) = vbLf Then filecount += 1
        Next
        MsgBox(filecount)

Thanks thats work cooll; cooll; cooll;

[Usman55]

If you got what you wanted, then please lock the topic so this doesn't gets bumped whenever a member posts a post.

[Axel]

If you got what you wanted, then please lock the topic so this doesn't gets bumped whenever a member posts a post.

like yesterday , there was a post on a topic that wasn't used for like 10/11 months