Vb. net hogyan hasznaljam ezt a kodot? Ftp multiline upload files

For Each File As String In My.Computer.FileSystem.GetFiles( _

path, _

FileIO.SearchOption.SearchAllSubDirectories, _

"*.jpg")

Dim fileInf As IO.FileInfo = New IO.FileInfo(File)

Dim uri As String = serveruri

Dim reqFTP As Net.FtpWebRequest

reqFTP = Net.FtpWebRequest.Create(New Uri(uri))

reqFTP.Credentials = New Net.NetworkCredential(user, pass)

reqFTP.KeepAlive = False

reqFTP.Method = Net.WebRequestMethods.Ftp.UploadFile

reqFTP.UseBinary = True

reqFTP.ContentLength = fileInf.Length

Dim buffLength As Integer = 2048

Dim buff(buffLength) As Byte

Dim contentLen As Integer

Dim fs As IO.FileStream = fileInf.OpenRead()

Dim strm As IO.Stream = reqFTP.GetRequestStream()

contentLen = fs.Read(buff, 0, buffLength)

While Not (contentLen = 0)

strm.Write(buff, 0, contentLen)

contentLen = fs.Read(buff, 0, buffLength)

End While

strm.Close()

fs.Close()

Next

Sziasztok ezt akodot szeretnem beilleszteni a progamomba, amit tudok hogy az

(uri)-ftp host

user,pass-ez a nev jelszo az ftp hez

Amit nem tudok :D

Hova irjam h melyik fajlokat szeretnem feltolteni ?

ugyebár ott az elejen ahol van a *.jpeg-oda kene de en 10 fájlt akarok akkor hogyan ? Köszi olore is