ファイルフィルタリング（ASP.Net、VB.Net）

Question

ユーザーが選択したファイルに対してフィルタリングを行っています。私が現在ボタンアップロードのクリックイベントに使用しているコードです。

Dim validFileTypes As String() = {"jpg", "JPG", "jpeg", "JPEG", "png", "PNG"} 
Dim ext As String = Path.GetExtension(fileUpload.PostedFile.FileName) 
Dim isValidFile As Boolean = False 

If fileUpload.HasFile Then 
    For i As Integer = 0 To validFileTypes.Length - 1 
     If ext = "." & validFileTypes(i) Then 'if selected url got extension like listed above 
      isValidFile = True 'file is valid 
      Dim hfc As HttpFileCollection = Request.Files 
      For j As Integer = 0 To hfc.Count - 1 
       Dim hpf As HttpPostedFile = hfc(j) 
       If hpf.ContentLength > 0 Then 
        hpf.SaveAs(Server.MapPath("source") & "\" & Path.GetFileName(hpf.FileName)) 
       End If 
      Next 
     Else 
      Alert("Failed to upload! Please select file with valid extension.") 
     End If 
    Next 
Else 
    Alert("Please select image!") 
End If 

したがって、誤った拡張子のファイルを選択した場合、ファイルは一時ファイルにアップロードされません。 validFileTypesは6種類で構成されているため、Alert("Failed to upload! Please select file with valid extension.")は選択したファイルが1であっても6回表示されます。私は修正しようとしましたが、あなたからのガイダンスが必要です。ありがとうございました。

Answer 1

私はあなたのコードを改善し、あなたの欠点をいくつか修正しました。

Dim validExtensions As String() = {"jpg", "JPG", "jpeg", "JPEG", "png", "PNG"} 

' Check if request has no file 
If Request.Files.Count = 0 Then 
    Alert("Please select image!") 
Else 
    'Otherwise get files from request 
    Dim files As HttpFileCollection = Request.Files 
    'Loop through file names 
    For Each fileName as String In files.AllKeys 
     'Get file from posted files 
     Dim file As HttpPostedFile = files(fileName) 
     'Check content length of file 
     If file.ContentLength > 0 Then 
      'Get file extension of file 
      Dim extension As String = Path.GetExtension(file.FileName) 
      'Check if file extension is valid 
      If validFileTypes.Contains(extension) Then 
       'Save file 
       file.SaveAs(Server.MapPath("source") & "\" & Path.GetFileName(file.FileName)) 
      Else 
       Alert("Failed to upload! Please select file with valid extension.") 
       Exit For 'Break loop 
      End If 
     End If 
    Next 
End If