主题：文件容量

 ftp？这个上传功能不能设置限制图片的大小，你可以直接在ftp那里设置限制。

Dim dr As DataRow = e.DataRow
If dr.IsNull("产品名称")  Then
    MessageBox.Show("请先输入产品名称!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
    e.Cancel = True
Else
    Dim ss As String = e.filename
    Dim finfo As new FileInfo(ss)
    If finfo.Length > 1 * 1024 * 1024 Then
        msgbox("不能大于1M")
        e.cancel = True
    Else
        Dim Index As Integer = ss.LastIndexOf(".")
        Dim hz As String = ss.SubString(Index,ss.length-Index)
        ss = dr("产品名称")
        e.filename = ss & hz
        If e.DataRow(e.DataCol.name).Contains(ss) Then
            Dim max As Integer = 0
            For Each s As String In e.DataRow.Lines(e.DataCol.name)
                If s Like "*" & ss & "*" Then
                    Dim fni1 As Integer=s.LastIndexOf("-")
                    If fni1 > -1 Then
                        Dim fni2 As Integer = s.LastIndexOf(".")
                        fni1 = s.SubString(fni1+1, fni2 - fni1 - 1)
                        If fni1 > max Then
                            max = fni1
                        End If
                    End If
                End If
            Next
            e.filename = ss & "-" & (max+1) & hz
        End If
    End If
End If

 我测试没问题。

 

 如果你的读不到，就加入完整路径

  你msgbox看一下路径是什么啊，我测试没有问题。

 

 msgbox(e.FileName)

 那你就加入来源目录，拼凑出路径。

 

SourceFolder： 要添加文件的来源目录