Web Development

20-Feb-07 8:18

I am working on a simple page (first one), intention is to allow operator to select several file names from a list and download them. My files are listed in lstLogFiles. Without the loop a selected log file can be downloaded, with this code the first selected log file can be downloaded, but only the first. I may be not understanding something (obviously) any idea why or what I need to do?

   Private Sub btnDownLoad_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDownLoad.Click<br />
        Dim fullpath As String<br />
        Dim i As Integer<br />
<br />
        For i = 0 To lstLogFiles.Items.Count<br />
            If lstLogFiles.Items.Item(i).Selected Then<br />
                fullpath = lblCurrentPath.Text & lstLogFiles.SelectedItem.Text<br />
                DownloadFile(fullpath, True)<br />
            End If<br />
        Next<br />
    End Sub

Thanks in advance

Kschuler20-Feb-07 8:24

Kschuler

20-Feb-07 8:24

I haven't tested this or played with it...but just looking at the code you supplied it seems like this line:
fullpath = lblCurrentPath.Text & lstLogFiles.SelectedItem.Text
should be something more like this
fullpath = lblCurrentPath.Text & lstLogFiles.Items.Item(i).ToString

No-e20-Feb-07 8:29

Re: Multi File Downloads [modified]

20-Feb-07 8:29

Interesting, did not know about ToString, but it does not seem to make a difference
any other ideas? It seems like after file is downloaded the procedure exits...

Kschuler20-Feb-07 8:39

Kschuler

20-Feb-07 8:39

Hmmm. I don't do a lot with List objects, so I'm not sure what is going on. You said "It seems like after file is downloaded the procedure exits"...did you debug and actually see this happen?

If that is the case then perhaps the For statement is off somehow. What does the list.count show when you debug?
You could try doing a
For Each str as String In lst.SelectedItems If the List object has that option...Other than that, perhaps there is something within the DownloadFile method that is causing a problem. Can you supply us with that code?

-- modified at 14:45 Tuesday 20th February, 2007

No-e20-Feb-07 8:48

20-Feb-07 8:48

Not sure the loop is getting messed up, I jsut verified that. I call the download function below, when the .Writefile is called the user is presented with a dialogue box to save the file, as soon as "OK" is clicked the file is saved and the debugger does not allow any stepping, step out of procedure or anything.

I just placed a break point on the "Page Load" event and found that it is called as soon as I click the button, but it does not appear that impacts the selections.

    Private Sub DownloadFile(ByVal fname As String, ByVal forceDownload As Boolean)<br />
        Dim path As Path<br />
        Dim fullpath = path.GetFullPath(fname)<br />
        Dim name = path.GetFileName(fullpath)<br />
        Dim ext = path.GetExtension(fullpath)<br />
        Dim type As String = ""<br />
<br />
        If Not IsDBNull(ext) Then<br />
            ext = LCase(ext)<br />
        End If<br />
<br />
        Select Case ext<br />
            Case ".htm", ".html"<br />
                type = "text/HTML"<br />
            Case ".txt"<br />
                type = "text/plain"<br />
            Case ".doc", ".rtf"<br />
                type = "Application/msword"<br />
            Case ".csv", ".xls"<br />
                type = "Application/x-msexcel"<br />
            Case Else<br />
                type = "text/plain"<br />
        End Select<br />
<br />
        If (forceDownload) Then<br />
            Response.AppendHeader("content-disposition", _<br />
            "attachment; filename=" + name)<br />
        End If<br />
        If type <> "" Then<br />
            Response.ContentType = type<br />
        End If<br />
<br />
        Response.WriteFile(fullpath)<br />
        Response.End()<br />
<br />
    End Sub

Kschuler20-Feb-07 9:00

Kschuler

20-Feb-07 9:00

Okay. I think your problem is the Response.End statement. That statement is going to finish all processing and push the page out with whatever information it currently has. I haven't done a file download exactly like this, so I'm not sure if just removing the statement will work or if you need to replace it with something else, but you can give it a shot and see what happens.

Hope this helps.

No-e20-Feb-07 10:30

20-Feb-07 10:30

I am afraid removing the .End does not help, nor does moving the essence of the subroutine back into the original button click event. If you have any other ideas I am willing to listen. Confused | :confused:

badgrs21-Feb-07 0:46

badgrs

21-Feb-07 0:46

As far as I'm aware you can't push multiple files to a browser - in other words what you're trying to do just isn't possible.

vbs file include

Sachin Pimpale19-Feb-07 22:53

Sachin Pimpale

19-Feb-07 22:53

hi all
can any body tell me how to include file in vbs file

SP
--
Bugs can neither be created nor be removed from software by a developer. They can only be converted from one form to another. The total number of bugs in the software always remain constant.

Christian Graus19-Feb-07 22:56

Christian Graus

19-Feb-07 22:56

How do you mean ?

Christian Graus - Microsoft MVP - C++
Metal Musings - Rex and my new metal blog
"I am working on a project that will convert a FORTRAN code to corresponding C++ code.I am not aware of FORTRAN syntax" ( spotted in the C++/CLI forum )

Sachin Pimpale19-Feb-07 22:58

Sachin Pimpale

19-Feb-07 22:58

hi i want to include JAVASCRIPT FILE in VBscript is it possible ? & how?

SP
--
Bugs can neither be created nor be removed from software by a developer. They can only be converted from one form to another. The total number of bugs in the software always remain constant.

Christian Graus19-Feb-07 23:03

Christian Graus

19-Feb-07 23:03

You're using ASP ? When I did ASP, we used VB script for the server side code. AFAIK, only javascript can run on the client. I don't believe you can mix them, for that reason. Why do you want to ?

andyharman20-Feb-07 0:31

andyharman

20-Feb-07 0:31

Looks like you can combine them for IE6:

<html>
<body>
hello
<script language="javascript">
var1 = 'Wibble' ;
</script>
<script language="vbscript">
call msgbox(var1)
</script>
</body>
</html>

Of course, that doesn't mean that you should.
Regards
Andy

andyharman20-Feb-07 0:26

andyharman

20-Feb-07 0:26

If you need to include a VBScript file into your web page (to run in your browser then use:

<script src="Inc/global.vbs" language="VbScript"> </script>

However, you should really be using JavaScript if you want users to use anything other than IE. If you need to include a VBScript file into your ASP page (to run on your web server) then use:

<!--#include file="Inc/GenScreen.asp" -->

If you are using CScript.exe to run VBS on your desktop then use:

<?xml version="1.0" standalone="yes"?>
<?job error="false" debug="false"?>
<package>
<job id="main">
<reference guid="00000205-0000-0010-8000-00AA006D2EA4"/>
<reference object="Scripting.FileSystemObject" />
<script language="vbscript" src="Utils.vbs"/>
<script language="vbscript">
<![CDATA[

'Your script goes here.

]]>
</script>
</job>
</package>

If you want to get reeeeeeally frisky then you can use VBScript to create WSC COM components!!! VBScript rocks Cool | :cool:

Hope that helps.
Andy

Data grid!

nclauder19-Feb-07 22:50

nclauder

19-Feb-07 22:50

hi,
I'm having problem with seeing my datagrid? Yet I set Property visible to true and I'm caling the DataBind() what could be the Problem. I mayed be forgetting something.. Could you please help?
Thanks?

Christian Graus19-Feb-07 23:02

Christian Graus

19-Feb-07 23:02

Check in the debugger - if your data source is empty, you won't see anything.

sathesh pandian20-Feb-07 19:34

sathesh pandian

20-Feb-07 19:34

i think your datasource may be empty otherwise if you are using dataset, the dataset.tables(0) may be empty.

Check the datasource

Sathesh Pandian

nclauder20-Feb-07 19:51

nclauder

20-Feb-07 19:51

Hi,
How would I be sure to know if data source is empty or not?
Thanks.