Sub DoUpload(Sender As Object, e As System.EventArgs)
    on error goto fehler
    Dim sPath as String
    Dim sFile as String
    Dim sFullPath as String
    Dim sSplit() as String
    Dim sPathFriendly as String
 
    sPath = Server.MapPath(".")
    If Right(sPath, 1) <> "\" then
        sPathFriendly = sPath
        sPath = sPath & "\"
    Else
        sPathFriendly = Left(sPath, Len(sPath) - 1)
    End If
 
   ' MsgBox(txtPfadDoc.PostedFile.ContentType)
    sFile = txtPfadDoc.PostedFile.FileName
    sSplit = Split(sFile, "\")
    sFile = sSplit(Ubound(sSplit))
 
    sFullPath = sPath & sFile
    txtPfadDoc.PostedFile.SaveAs(sFullPath)
 
exit sub
fehler:
MsgBox(err.description)
End Sub