求助，我在用visual web developer制作一个网站，想做个有文件上传功能的页面

http://www.sjtvu.com/dreamnetstudio/ArticleView.aspx?id=14，都是按照这个地址来的，可是里面有段代码是C语言，我想知道用VB语言应该怎么写，就是这段
protected void Button1_Click(object sender, EventArgs e)
  {
  if (FileUpload1.PostedFile != null)
  {
  string strDir = FileUpload1.PostedFile.FileName;
  int myPos = strDir.LastIndexOf("\\");
  string strFileName = strDir.Substring(myPos);
  string strPath = Server.MapPath(".") + strFileName;
  this.Label1.Text = "保存路径：";
  this.Label1.Text += strPath;
  FileUpload1.PostedFile.SaveAs(strPath);
  this.Label1.Text += "文件名称：";
  this.Label1.Text += FileUpload1.PostedFile.FileName;
  this.Label1.Text += "文件类型：";
  this.Label1.Text += FileUpload1.PostedFile.ContentType;
  this.Label1.Text += "文件大小：";
  this.Label1.Text += FileUpload1.PostedFile.ContentLength.ToString();
  }
  }

解决方案 »

  1.   

    Protected Sub Button1_Click(sender As Object, e As EventArgs)
    If FileUpload1.PostedFile <> Nothing Then
    Dim strDir As String = FileUpload1.PostedFile.FileName
    Dim myPos As Integer = strDir.LastIndexOf("\")
    Dim strFileName As String = strDir.Substring(myPos)
    Dim strPath As String = Server.MapPath(".") + strFileName
    Me.Label1.Text = "保存路径："
    Me.Label1.Text += strPath
    FileUpload1.PostedFile.SaveAs(strPath)
    Me.Label1.Text += "文件名称："
    Me.Label1.Text += FileUpload1.PostedFile.FileName
    Me.Label1.Text += "文件类型："
    Me.Label1.Text += FileUpload1.PostedFile.ContentType
    Me.Label1.Text += "文件大小："
    Me.Label1.Text += FileUpload1.PostedFile.ContentLength.ToString()
    End If
    End Sub
      

  2.   

    楼上的那个代码，我双击BUTTON以后输入，还是有错误呀
      

  3.   

    我把你的IF语句去掉了以后，页面可以运行了，但是选择完文件点BUTTON以后，就在这一行：
     Dim strFileName As String = strDir.Substring(myPos)出现 StartIndex 不能小于 0。 参数名: startIndex
      

  4.   

    那段是从你贴的C#转过来的，找了个完整脚本给你<%@ Import Namespace="System" %>
    <%@ Import Namespace="System.Web.HttpPostedFile" %>
    <%@ Import Namespace="System.Web.UI.HtmlControls.HtmlInputFile" %>
    <script language="VB" runat="server">
    Sub UpLoad(Src As Object, E As EventArgs)
         If UploadFile.PostedFile.ContentLength=0 then
           ShowUpLoadFile.innerText="上传失败或文件不存在！"
      Else
          '获取文件名
       dim Temp() as String=Split(UploadFile.PostedFile.FileName,"\")
       dim FileName as String=Temp(Temp.Length-1)
       '保存文件
      UploadFile.PostedFile.SaveAs(Server.MapPath(".") & "\Files\" & FileName)
       '显示上传结果
       ShowUpLoadFile.InnerHtml="文件上传成功！<br>上传文件名：" & FileName
         End If
    End Sub
    </script>
    <html>
    <body>
        <form runat="server" enctype="multipart/form-data">
           <input type="file" id="UploadFile" runat="server" size="50"><br>
           <asp:button runat="server" Text="立即上传" onClick="Upload" />
        </form>
     <hr><br>
     <span id="ShowUpLoadFile" runat="server"></span>
    </body>
    </html>