Cisse
Legacy Member
Ik probeer vanop mijn site naar mijn hdd te gaan en vandaaruit een file te uppen naar mijn site maar ik krijg de fout
'GetFileName' is not a member of 'String'.
Weet er iemand wat ik precies fout doe ?
<%@ Page Language="VB" debug="true" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<%@ import Namespace="System.Data.SqlClient.SqlConnection" %>
<%@ import Namespace="System.Data.SqlClient.SqlCommand" %>
<%@ Import Namespace="System.IO" %>
<script runat="server">
Dim strconn As String = "server='localhost';uid='sa';pwd=;database='immo'"
Dim strSQL As String = "SELECT * FROM Foto"
Sub Page_Load(Sender As Object, E As EventArgs)
if not Page.IsPostBack then
if session("Geb_ID") = 0 then
response.redirect("Session1.aspx")
end if
end if
end sub
Dim Path As String = "C:\Inetpub\wwwroot\Kris\eigendompics\"
Sub Upload_Click(source As Object, e As EventArgs)
If Not (uploadedFile.PostedFile Is Nothing) Then
Try
Dim postedFile = uploadedFile.PostedFile
HIERONDER ZIT DE FOUT!!!!
Dim filename As String = Path.GetFileName(postedFile.FileName)
Dim contentType As String = postedFile.ContentType
Dim contentLength As Integer = postedFile.ContentLength
postedFile.SaveAs(Path & filename)
message.Text = postedFile.Filename & " uploaded" & _
"<br>content type: " & contentType & _
"<br>content length: " & contentLength.ToString()
Catch exc As Exception
message.Text = "<font color=red>Foto kan niet geupload worden.</font>"
End Try
End If
End Sub
</script>
'GetFileName' is not a member of 'String'.
Weet er iemand wat ik precies fout doe ?
<%@ Page Language="VB" debug="true" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.SqlClient" %>
<%@ import Namespace="System.Data.SqlClient.SqlConnection" %>
<%@ import Namespace="System.Data.SqlClient.SqlCommand" %>
<%@ Import Namespace="System.IO" %>
<script runat="server">
Dim strconn As String = "server='localhost';uid='sa';pwd=;database='immo'"
Dim strSQL As String = "SELECT * FROM Foto"
Sub Page_Load(Sender As Object, E As EventArgs)
if not Page.IsPostBack then
if session("Geb_ID") = 0 then
response.redirect("Session1.aspx")
end if
end if
end sub
Dim Path As String = "C:\Inetpub\wwwroot\Kris\eigendompics\"
Sub Upload_Click(source As Object, e As EventArgs)
If Not (uploadedFile.PostedFile Is Nothing) Then
Try
Dim postedFile = uploadedFile.PostedFile
HIERONDER ZIT DE FOUT!!!!
Dim filename As String = Path.GetFileName(postedFile.FileName)
Dim contentType As String = postedFile.ContentType
Dim contentLength As Integer = postedFile.ContentLength
postedFile.SaveAs(Path & filename)
message.Text = postedFile.Filename & " uploaded" & _
"<br>content type: " & contentType & _
"<br>content length: " & contentLength.ToString()
Catch exc As Exception
message.Text = "<font color=red>Foto kan niet geupload worden.</font>"
End Try
End If
End Sub
</script>