Question

I have the following code in child window which is working but what I want to do is instead of using response.write I want to use label control or to display all the filename like this:

music.pdf, inventory.doc

My Ultimate goal is to pass the values in string (e.g.: “music.pdf, inventory.pdf” ) to the parent window.

How do I do it?

Protected Sub btnUpload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpload.Click
    Try
        '' Get the HttpFileCollection
        Dim hfc As HttpFileCollection = Request.Files
        For i As Integer = 0 To hfc.Count - 1
            Dim hpf As HttpPostedFile = hfc(i)
            If hpf.ContentLength > 0 Then
                hpf.SaveAs(Server.MapPath("/ServerName/DirectoryName") & "\"" & System.IO.Path.GetFileName(hpf.FileName))
                Response.Write("<b>File: </b>" & hpf.FileName & " <b>Size:</b> " & hpf.ContentLength & " <b>Type:</b> " & hpf.ContentType & " Uploaded Successfully! <br/>")
            Else
                Response.Write("Please select a file to upload.")
            End If
        Next i

    Catch ex As Exception

    End Try

End Sub

Answer 1

This is not the way I would do it but you asked for your code to work with a Label.

ASPX:

<asp:Label id="lblUploadMsg" runat="server" visible="false"></asp:Label>

Code:

Protected Sub btnUpload_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpload.Click
    Try
        '' Get the HttpFileCollection
        Dim hfc As HttpFileCollection = Request.Files

        lblUploadMsg.Text = String.empty
        For i As Integer = 0 To hfc.Count - 1
            Dim hpf As HttpPostedFile = hfc(i)
            If hpf.ContentLength > 0 Then
                hpf.SaveAs(Server.MapPath("/ServerName/DirectoryName") & "\"" & System.IO.Path.GetFileName(hpf.FileName))
                lblUploadMsg.Visible = True;                   
                lblUploadMsg.Text +="<b>File: </b>" & hpf.FileName & " <b>Size:</b> " & hpf.ContentLength & " <b>Type:</b> " & hpf.ContentType & " Uploaded Successfully! <br/>"


            Else
                lblUploadMsg.Text="Please select a file to upload."
            End If
        Next i

        ''HTML Encode lblUploadingMsg.Text after

    Catch ex As Exception

    End Try

End Sub