Need some help with a SLOWWWWW group of FTP subs i wrote.

See more:

VB

Ive been working on a program that syncs its data via SQL and FTP to our company server. I wrote the following subs and placed them in a module for easy FTP coding and they work fine but are incredibly slow for only uploading a couple Mb of data and i think the problem lays in there not large files but rather a large amount of files and thus making more FTP connections than necessary. I tried to cut the fat off this as much as possible but it always seems to slow on the deeper recursive directories....

Imports System.IO 

Public Module Sync

    Public Sub UploadFile(ByVal Game As String, ByVal Path As String, ByVal FileName As String, ByVal Source As String, ByVal User As String)

        Path = Path.Trim("/")

        If Not Path = "" Then

            MakeDir(Game, Path, User)

        End If

        Dim sr = New StreamReader(Source, System.Text.Encoding.Default)

        Dim RawFile As String = sr.ReadToEnd

        sr.Close()

        For i = 1 To 5

            Try

                Dim clsRequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://server.net/" + User + "/Profiles/" + Game + "/GameData/" + Path + "/" + FileName), System.Net.FtpWebRequest)

                clsRequest.Credentials = New System.Net.NetworkCredential("user", "pass")

                clsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile

                Dim bFile = System.Text.Encoding.Default.GetBytes(RawFile)

                Dim clsStream = _

                    clsRequest.GetRequestStream()

                clsStream.Write(bFile, 0, bFile.Length)

                clsStream.Close()

                clsStream.Dispose()

                Exit For

            Catch err As Exception

                If i = 5 Then

                    MsgBox("Unable to upload """ & Source & """ to """ & "ftp://dsdcomputers.net/" + User + "/Profiles/" + Game + "/GameData/" + Path + "/" + FileName & """ after 5 attempts because of the following error:" & vbCrLf & vbCrLf & err.ToString)

                End If

            End Try

        Next

    End Sub

    Public Sub MakeDir(ByVal Game As String, ByVal Path As String, ByVal User As String)

        Path = Path.Trim("/")

        If Path = Nothing Then

            Exit Sub

        End If

        If Path.Contains("/") Then

            Dim PathArray As String() = Path.Split("/")

            Path = ""

            For Each folder In PathArray

                Path = Path & "/" & folder

                Try

                    Path = Path.Trim("/")

                    Dim clsRequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://server.net/" + User + "/Profiles/" + Game + "/GameData/" + Path), System.Net.FtpWebRequest)

                    clsRequest.Credentials = New System.Net.NetworkCredential("user", "pass")

                    clsRequest.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory

                    Dim response = clsRequest.GetResponse()

                Catch err As Exception

                End Try

            Next

        Else

            Try

                Dim clsRequest As System.Net.FtpWebRequest = DirectCast(System.Net.WebRequest.Create("ftp://server.net/" + User + "/Profiles/" + Game + "/GameData/" + Path), System.Net.FtpWebRequest)

                clsRequest.Credentials = New System.Net.NetworkCredential("user", "pass")

                clsRequest.Method = System.Net.WebRequestMethods.Ftp.MakeDirectory

                Dim response = clsRequest.GetResponse()

            Catch err As Exception

            End Try

        End If

    End Sub

    Public Sub UploadDir(ByVal Game As String, ByVal Path As String, ByVal SourceDir As String, ByVal User As String)

        MakeDir(Game, Path, User)

        SourceDir = SourceDir.Trim()

        For Each File In System.IO.Directory.GetFiles(SourceDir)

            UploadFile(Game, Path, File.Substring(File.LastIndexOf("\") + 1, File.Length - (File.LastIndexOf("\") + 1)), File, User)

        Next

        For Each Directory In System.IO.Directory.GetDirectories(SourceDir)

            UploadDir(Game, Path & "/" & Directory.Substring(Directory.LastIndexOf("\") + 1, Directory.Length - (Directory.LastIndexOf("\") + 1)), Directory, User)

        Next

    End Sub

End Module