[String] Hjælp til check af fil-endelse

fandt ud af det selv =)

Hvad fandt du frem til hvis evt. andre skulle bruge det?

jow..asso.. noget i stil med:


Dim strRequest As String = Request.QueryString("file")
    Dim fileExt As String = Right(strRequest,len(strRequest)-InStrRev(strRequest,"."))
    Dim messageTxt As String = "Please provide a file to download."
    select case fileExt
        case "jpg","bmp","png","wav","mp3","flv","html","htm","mp4","avi","mpeg","mpg","mov","wmv","pdf","txt","doc","rtf","xls","zip","rar"
        case Else
        messageTxt = "Not Allowed"
        strRequest = ""
    end select

hele scriptet:


<%@ Page language="vb" runat="server" explicit="true" strict="true" %>
<script language="vb" runat="server">
Sub Page_Load(Sender As Object, E As EventArgs)
    Dim strRequest As String = Request.QueryString("file")
    '-- Copy this file to the specific folder --
    '-- if something was passed to the file querystring
    Dim fileExt As String = Right(strRequest,len(strRequest)-InStrRev(strRequest,"."))
    Dim messageTxt As String = "Please provide a file to download."
    select case fileExt
        case "jpg","bmp","png","wav","mp3","flv","html","htm","mp4","avi","mpeg","mpg","mov","wmv","pdf","txt","doc","rtf","xls","zip","rar"
        case Else
        messageTxt = "Not Allowed"
        strRequest = ""
    end select
   
    If strRequest <> "" Then
        'get absolute path of the file
        Dim path As String = Server.MapPath(strRequest)
        'get file object as FileInfo
        Dim file As System.IO.FileInfo = New System.IO.FileInfo(path)
        '-- if the file exists on the server
        If file.Exists Then
            'set appropriate headers
            Response.Clear()
            Response.AddHeader("Content-Disposition", "attachment; filename=" & file.Name)
            Response.AddHeader("Content-Length", file.Length.ToString())
            Response.ContentType = "application/octet-stream"
            Response.WriteFile(file.FullName)
            Response.End
        'if file does not exist
        Else
           
            Response.Write("This file does not exist.")
        End If
    'nothing in the URL as HTTP GET
    Else
        Response.Write(messageTxt)
    End If
End Sub
</script>