VB.net - リモートファイルが存在するかどうかを確認する

Question

URLを渡した後にリモートファイルが存在するかどうかを確認する機能があります。それが存在しないと仮定すると、関数は0を返し、別のサブで使用されます。ここでは、私が持っているものです。

Public Function RemoteFileExists(ByVal fileurl As String) As Integer 
    Dim request As FtpWebRequest = DirectCast(WebRequest.Create(fileurl), FtpWebRequest) 
    request.Method = WebRequestMethods.Ftp.GetFileSize 
    Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse) 
    If response.StatusCode = FtpStatusCode.ActionNotTakenFileUnavailable Then 
     RemoteFileExists = 0 
     Exit Function 
    End If 
    Dim fileSize As Long = response.ContentLength 
    MsgBox(fileSize) 
    If fileSize > 0 Then 
     RemoteFileExists = 1 
    Else 
     RemoteFileExists = 0 
    End If 
End Function 

私はアプリを実行して、意図的にVisual StudioがSystem.Net.WebExceptionが未処理だった私を与える存在しないURLを指定した場合。メッセージ=リモートサーバーからエラーが返されました：（550）ファイルが使用できません（ファイルが見つかりません、アクセス不可など）。

"if response.StatusCode ..."がプログラムをシャットダウンするのではなく、それを処理すると仮定しました。

助けてください。

DWM

Answer 1

あなただけとにかく1または0を返すので、あなたはBooleanにIntegerから切り替える必要がまず第一。 BooleanはTrueまたはFalseのいずれかになります。

第2に、発生する可能性のあるエラーを処理するには、Try/Catchブロックのすべてをラップする必要があります。 Try/Catchのコードをラップすると、ほとんどのエラー（最も極端なエラーを除く）を捕らえることができ、エラーを投げる可能性があるコードの周りに置くと、より単純なエラーのためにアプリケーションがクラッシュすることがなくなります。

RemoteFileExists = <value>の代わりにReturn <value>を使用する必要があります。Returnは必要な値を返して機能を終了するためです。

実装例：Catchブロック内

Public Function RemoteFileExists(ByVal fileurl As String) As Boolean 
    Try 
     Dim request As FtpWebRequest = DirectCast(WebRequest.Create(fileurl), FtpWebRequest) 
     request.Method = WebRequestMethods.Ftp.GetFileSize 
     Dim response As FtpWebResponse = DirectCast(request.GetResponse(), FtpWebResponse) 
     If response.StatusCode = FtpStatusCode.ActionNotTakenFileUnavailable Then 
      Return False 'Return instead of Exit Function 
     End If 
     Dim fileSize As Long = response.ContentLength 
     MsgBox(fileSize) 
     If fileSize > 0 Then 
      Return True 
     Else 
      Return False 
     End If 
    Catch ex As Exception 'Catch all errors 
     'Log the error if you'd like, you can find the error message and location in "ex.Message" and "ex.StackTrace". 
     MessageBox.Show("An error occurred:" & Environment.NewLine & ex.Message & Environment.NewLine & ex.StackTrace, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error) 
     Return False 'Return False since the checking failed. 
    End Try 
End Function 

、ex.Messageはエラーメッセージであり、コードにエラーが発生した場所ex.StackTraceです。