Hi There
I use the following code to save an outlook message when the message is dropped on a Janus (Janus 4.xx) grid
VB.net Target is 64 bit and frame work 4
Unfortunately args1 is always nothing
Any Ideas on what im doing wrong?
Private Sub DocGrid_DragDrop(ByVal sender As Object, ByVal e As System.Windows.Forms.DragEventArgs) Handles DocGrid.DragDrop
If e.Data.GetDataPresent(“FileGroupDescriptor”)
Dim args1 As Aspose.Windows.Forms.FileDragEventArgs = TryCast(e, Aspose.Windows.Forms.FileDragEventArgs)
If (args1 IsNot Nothing) Then
If ((args1.Files IsNot Nothing) AndAlso (args1.Files.Count > 0)) Then
Dim saveDialog As New SaveFileDialog
saveDialog.FileName = args1.Files(0).FileName
saveDialog.ShowDialog(
Me)
Try
Dim fs As System.IO.FileStream = New System.IO.FileStream(saveDialog.FileName, FileMode.CreateNew)
args1.Files(0).Save(fs)
MessageBox.Show("Save Success.")
Catch ex As Exception
MessageBox.Show("Save Failed:" + ex.Message)
End Try
End If
End If
end if
end sub