毎晩 1500 枚の jpg 画像をアップロードする必要があります。以下のコードは何度も接続を開いたり閉じたりします。もっと良い方法はないかと考えています。
...これはコード スニペットなので、他の場所で定義されている変数がここにあります
Dim picClsRequest = DirectCast(System.Net.WebRequest.Create(ftpImagePath), System.Net.FtpWebRequest)
Dim picClsStream As System.IO.Stream
Dim picCount As Integer = 0
For i = 1 To picPath.Count - 1
picCount = picCount + 1
log("Sending picture (" & picCount & " of " & picPath.Count & "):" & picDir & "/" & picPath(i))
picClsRequest = DirectCast(System.Net.WebRequest.Create(ftpImagePath & "/" & picPath(i)), System.Net.FtpWebRequest)
picClsRequest.Credentials = New System.Net.NetworkCredential(ftpUsername, ftpPassword)
picClsRequest.Method = System.Net.WebRequestMethods.Ftp.UploadFile
picClsRequest.UseBinary = True
picClsStream = picClsRequest.GetRequestStream()
bFile = System.IO.File.ReadAllBytes(picDir & "/" & picPath(i))
picClsStream.Write(bFile, 0, bFile.Length)
picClsStream.Close()
Next
いくつかのコメント:
はい、picCountが冗長であることは知っています...夜遅くでした。
ftpImagePath、picDir、ftpUsername、ftpPassword はすべて変数です
はい、これは暗号化されていません
このコードは正常に動作します。最適化を検討しています