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