1

vb.net(Vs 2003,framework 1.1) を使用してサーバー上の FTP 経由でファイルを送信したいのですが、例外がスローされます。

WebCLIENT 要求中に例外が発生しました

同じコードが .Net 2008 で正常に動作しています。例外がスローされる理由がわかりません。

Imports System.Data.SqlClient
Imports System.Text
Imports Microsoft.VisualBasic
Imports System.Net.WebRequest
Imports System.Net.WebClient
Imports System.Net
Imports System.IO


If (Directory.Exists(directoryPath)) Then
    arrFileList = Directory.GetFiles(directoryPath) '''Getting All files 
Else
    MessageBox.Show("Directory not Exist")
End If

    For i As Integer = 0 To i < arrFileList.Length - 1

            Try
                Dim fileName As String = arrFileList.GetValue(i)
                Dim toUpload As New FileInfo(fileName)
                Dim client As New WebClient

                Dim nc As New NetworkCredential("xxxx", "xxxx") 

                Dim addy As Uri
                addy = New Uri("ftp://1xx.xx.xxx.xxx/HYPOSII_FTP/Test/" & toUpload.Name.ToString())               


                client.Credentials = nc
                Dim arrReturn As Byte() = client.UploadFile(addy.ToString(), fileName) //This Line Throwing error
                MessageBox.Show("File Uploaded Sucessfully")
                FLAG = True                
            Catch ex As Exception
                MessageBox.Show(ex.Message)
            End Try
        Next
4

0 に答える 0