如果把导出的数据表备份一份到服务器上？

    Dim dlg As New SaveFileDialog \'定义一个新的OpenFileDialog
    dlg.Filter= "Excel文件|*.xlsx" \'设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
       
        Dim ex1 As New Exporter
        ex1.SourceTableName = "装机工单清单表" \'指定导出表
        ex1.NewTableName = "装机工单清单表" 把导出来的这个数据表存一份在服务器上做为备份
        ex1.FilePath = dlg.FileName
        ex1.Format = "Excel2007" \'导出格式为Excel
        ex1.Export() \'开始导出
       
        MessageBox.show("完成【装机工单清单表】数据导出工作!!!", "非常关键提醒")
       
    End If

如何把当前要导出的数据表、直接上传到服务器上？ 

目前是把存在本地电脑上的“c:\\data\\Desert.jpg”上传上去、但是我想实现把我准备导出的文件直接上传；该怎么改？

Dim dr1 As DataRow = DataTables("岗位执行操作维护表").sqlFind("表名 = \'装机工单清单表\' And  工作岗位 = \'内线导单组\'  And  执行类型 = \'导出数据权限\'   ")
Dim dt  As DataRow = DataTables("岗位执行操作维护表").sqlFind("表名 = \'装机工单清单表\' And  工作岗位 = \'内线导单组\'  And  执行类型 = \'导出数据字段\'   ")

If  User.Name = "开发者" Or  dr1("列表项目1")  Like  "*"& User.Name &"*"   Then
    Dim str = dt("列表项目1")
    Dim dlg As New SaveFileDialog \'定义一个新的OpenFileDialog
    dlg.Filter= "Excel文件|*.xlsx" \'设置筛选器
    If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮
        Dim ex1 As New Exporter
        ex1.SourceTableName = "装机工单清单表" \'指定导出表
        ex1.NewTableName = "装机工单清单表"
        ex1.FilePath = dlg.FileName
        ex1.Format = "Excel2007" \'导出格式为Excel
        ex1.Fields = ""& str &"" \'指定导出字段
        ex1.Export() \'开始导出
        
       

Dim  ftp1 As  New  FtpClient
 ftp1.Host="196.128.143.28"
 ftp1.Account =  "foxuser"
 ftp1.Password =  "138238110"
 If  ftp1.Upload("c:\\data\\Desert.jpg","\\update\\Desert.jpg") = True Then
      Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
 Else
      Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
 End If
        
               
        
        MessageBox.show("完成【装机工单清单表】数据导出工作!!!", "非常关键提醒")
    End If
   
Else
    MessageBox.show("您无权进行该操作,请与管理员联系!!!", "非常关键提醒")
End If

1、想要实现文件名为：yyyy年MM月dd日HH:mm:ss  提示错误；命令该怎么改？  如果【Format(dt1,"F")】改为【Format(dt1,"yyyy年MM月dd日")】就能正常上传。

2、如果上传服务器备份失败、就不允许导出数据（把导出的数据表删除掉）；命令该怎么加？

Dim cmd As New SQLCommand
Dim dt1 As Date
cmd.C
cmd.CommandText = "Select GetDate()"
dt1 = cmd.ExecuteScalar()

            删除本地以及导出的对应数据表，命令该怎么写？
            Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If
        

        
        MessageBox.show("完成【装机工单清单表】数据导出工作!!!", "非常关键提醒")
    End If
   
Else
    MessageBox.show("您无权进行该操作,请与管理员联系!!!", "非常关键提醒")
End If

            FileSys.DeleteFile(dlg.FileName,2,2)

            Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
        End If