ASP VB.NET 客户端上传文件到服务器端

  Dim strPath As String = Server.MapPath("~\文件夹")
        '判断保存文件路径是否存在 不存在则创建
        If Not Directory.Exists(strPath) Then
            Directory.CreateDirectory(strPath)
        End If
        Dim PATH As String = Server.MapPath((FileUpload1.FileName))
        '如果文件存在 则上传
        If (FileUpload1.HasFile) Then
            FileUpload1.PostedFile.SaveAs(PATH)
        End If
        '一:先把EXCEL导入dateView
        '二:然后将dateView里的数据导入到数据库里面
        'EXCEL 的连接串
        Dim sConnectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                                          "Data Source=" + PATH + ";" & _
                                          "Extended Properties=Excel 8.0;"
        '建立EXCEL的连接
        Dim objConn As New OleDbConnection(sConnectionString)
        objConn.Open()
        Dim objCmdSelect As OleDbCommand = New OleDbCommand("SELECT