主题：图片拖放如何放到指定文件夹内？

具体一点你的问题。

如果要保存，你就去修改【全局代码】

Public Sub picture_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs)
Dim paths As object() = e.Data.GetData(Windows.Forms.DataFormats.FileDrop)
For Each path As object In paths
    FileSys.CopyFile(path, "c:\" & FileSys.GetName(path), True)
Next
sender.Cursor = System.Windows.Forms.Cursors.IBeam
End Sub

Public Sub picture_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs)
Dim paths As object() = e.Data.GetData(Windows.Forms.DataFormats.FileDrop)

Dim dr As Row = Tables("工程图片").Current

Dim pth As String = ProjectPath & "Attachments\用户工程\" & dr("工程名称") & "\" & dr("工程部位") & "\"

Dim ls = dr.DataRow.Lines("图片列")
For Each path As object In paths
    FileSys.CopyFile(path, pth & format(dr("施工日期"), "yyyyMMdd") & "-" & dr("图片内容") & FileSys.GetName(path), True)
    ls.Add("用户工程\" & dr("工程名称") & "\" & dr("工程部位") & "\" & format(dr("施工日期"), "yyyyMMdd") & "-" & dr("图片内容")  & FileSys.GetName(path))
Next

dr.DataRow.Lines("图片列") = ls
sender.Cursor = System.Windows.Forms.Cursors.IBeam
End Sub

Public Sub picture_DragEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs)
If (e.Data.GetDataPresent(Windows.Forms.DataFormats.FileDrop)) Then
    e.Effect = Windows.Forms.DragDropEffects.Link
    sender.Cursor = System.Windows.Forms.Cursors.Arrow
Else
    e.Effect = Windows.Forms.DragDropEffects.None
End If
End Sub

1、不可以；

2、

For Each path As object In paths
    FileSys.CopyFile(path, pth & format(dr("施工日期"), "yyyyMMdd") & "-" & dr("图片内容") & ls.count & right(path,4), True)
    ls.Add("用户工程\" & dr("工程名称") & "\" & dr("工程部位") & "\" & format(dr("施工日期"), "yyyyMMdd") & "-" & dr("图片内容") & ls.count & right(path,4))
Next