Private Sub Submit1_ServerClick(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Submit1.ServerClick
        If Not File1.PostedFile Is Nothing And File1.PostedFile.ContentLength _
        > 0 Then
            Dim fn As String = System.IO.Path.GetFileName( _
            File1.PostedFile.FileName)
            Dim SaveLocation As String = Server.MapPath("files") & "\" & fn
            Try
                File1.PostedFile.SaveAs(SaveLocation)
                Response.Write("The file has been uploaded.")
            Catch Exc As Exception
                Response.Write("Error: " & Exc.Message)
            End Try
        Else
            Response.Write("Please select a file to upload.")
        End If
    End Sub

Liebe Gr?sse,
Simon