Et antal filer i en ListBox skal uploades

Naturligvis er det ....... _FROM_ Session("clientPath")(i)

Har fundet en udemærket tutorial i det, men den er skrevet i C#, og jeg kan ikke oversætte det så godt... Nogen der kan det?..
http://www.codeproject.com/aspnet/multiuploads.asp
- drejer sig kun om "public void Upload_ServerClick(object sender, System.EventArgs e){....}"-delen..

Hej basementjack :o)
Der findes flere oversættere der tager C# ind, og spytter VB ud... Du kan finde en onlinemodel her :
http://www.developerfusion.com/utilities/convertcsharptovb.aspx

Prøvede Upload_ServerClick() i online oversætteren... Den returnerer :

Public Sub Upload_ServerClick(ByVal sender As Object, ByVal e As System.EventArgs)
Dim baseLocation As String = "C:\temp\"
Dim status As String = ""
If (ListBox1.Items.Count = 0) AndAlso (filesUploaded = 0) Then
  Label1.Text = "Error - a file name must be specified."
  Return
Else
  For Each HIF As System.Web.UI.HtmlControls.HtmlInputFile In hif
    Try
      Dim fn As String = System.IO.Path.GetFileName(HIF.PostedFile.FileName)
      HIF.PostedFile.SaveAs(baseLocation + fn)
      filesUploaded += 1
      status += fn + "<br>"
    Catch err As Exception
      Label1.Text = "Error saving file " + baseLocation + "<br>" + err.ToString()
    End Try
  Next
  If filesUploaded = hif.Count Then
    Label1.Text = "These " + filesUploaded + " file(s) were " + "uploaded:<br>" + status
  End If
  hif.Clear()
  ListBox1.Items.Clear()
End If
End Sub

Jamen god tidlig morgen Snepnet.. :)
Det ser jo faktisk ud som om at den oversætter rigtigt!.. Selvom jeg ikke lige kender AndAlso og mener at .ToString kun findes i C#.. Men det er uhyggeligt tæt på..
Så prøver jeg lige at fedte lidt mere rundt med den kode og se om jeg kan komme nogen vegne med det...

Ok - jeps... jeg var lidt tidligt på færde idag :o)

Okay.. Jeg fejler et eller andet sted i min removeFile, så jeg har testet og fundet ud af at mit array arFilesFromClient er tomt... På min AddFile har flg. kode:
    Sub btnAddFile_Click(sender As Object, e As EventArgs)

        If not inputFile.Value = "" and not txtNick.Text = "" Then
            arFilesFromClient.Add(inputFile.Value)
            Dim filePath As array
            Dim input As String = inputFile.Value
            filePath = input.Split("/")
            Dim fileName As String
            Dim i As Integer
            i = filePath.Length - 1
            fileName = filePath(i)
            Dim fullFilePath As String
            fullFilePath = "path/" & txtNick.Text & "/" & fileName
            lbFileHolder.Items.Add(fullFilePath)
        End If

    End Sub
Efter at have addet en fil er arFilesFromClient stadig tomt, hvorfor det?..
Jeg kan ikke se det, eller også er jeg morgentræt.. :)

Det var fordi at arFilesFromClient blev kaldt som new ArrayList() ved hvert postback.. Så jeg lavede en session i stedet....

Det tog sin tid at få søvnen ud af øjene.. :P

Okay.. Jeg er kommet okay sikkert igennem den oversatte kode, så du må gerne lægge et svar snepnet..

ok :o)