Dim dlg As New OpenFileDialog
dlg.MultiSelect = True
dlg.InitialDirectory ="E:\图片库\" & CurrentTable.Current("产品编码")
If FileSys.DirectoryExists(dlg.InitialDirectory) AndAlso dlg.ShowDialog = DialogResult.OK Then
Dim dr As DataRow = Tables("数据库").Current.DataRow
Dim fs As String = ProjectPath & "attachment\photo\" & CurrentTable.Current("产品编码")
Dim fn As String = dlg.FileName
If FileSys.DirectoryExists(fs) Then
For Each f As String In dlg.FileNames
FileSys.CopyFile(f, fs & FileSys.GetName(f), True)
dr.SQLInsertFile("照片",fs)
Next
Else
FileSys.CreateDirectory(fs)
For Each f As String In dlg.FileNames
FileSys.CopyFile(f, fs & FileSys.GetName(f), True)
dr.SQLInsertFile("照片",fs)
Next
End If
End If
还是不行,越看越不懂了