将邮件项目拖放到vb.net桌面保存为指定文件夹的文件

Question

求助：

邮件系统中，可以将邮件项目拖放到桌面，自动保存为文件。

问题：

通过vb.net，也实现同样的操作:
将邮件项目拖放到winform桌面（开发程序窗体），自动保存为指定目录下面的文件。

试了一下，代码如下，问题出在ms对象为nothing，无法获取对象。

对如何处理流数据，不太懂。

请高手帮忙、指导一下？[玫瑰][玫瑰]

Private Sub 文件名称_DragDrop(sender As Object, e As DragEventArgs) Handles Me.DragDrop

    If e.Data.GetDataPresent("FileGroupDescriptor") Then



        Dim theStream As Stream = DirectCast(e.Data.GetData("FileGroupDescriptor"), Stream)

        Dim fileGroupDescriptor As Byte() = New Byte(512) {}

        theStream.Read(fileGroupDescriptor, 0, 512)



        Dim objFileName As New StringBuilder()



        Dim i As Integer = 76

        While fileGroupDescriptor(i) <> 0

            objFileName.Append(Convert.ToChar(fileGroupDescriptor(i)))

            i += 1

        End While



        Dim strSaveFileName As String = "D:\" + objFileName.ToString()



        Dim ms As System.IO.MemoryStream

        ms = e.Data.GetData("FileContents", True)

        Dim fs As FileStream

        fs = New FileStream(strSaveFileName, FileMode.Create)



        fs.CopyTo(ms)



        fs.Close()

        theStream.Close()



    End If



End Sub

Answer 1

题主有否试过获取拖拽文件所在路径，直接拷贝这个路径的文件就行，我这里测试用Foxmail直接拖到textbox上Foxmail会生成临时文件。没outlook，题主可以自己试试outlook

using System;
using System.IO;
using System.Windows.Forms;

namespace WindowsFormsApp7
{
    public partial class Form1 : Form
    {
        public Form1()
        {
            InitializeComponent();
        }

        private void evt_DragDrop(object sender, DragEventArgs e)
        {
            if (e.Data.GetDataPresent(DataFormats.FileDrop))
            {
                var filePaths = (string[])(e.Data.GetData(DataFormats.FileDrop));
                textBox1.Text+= string.Join("\r\n", filePaths);

                foreach (var f in filePaths)
                    File.Copy(f, @"F:\Temp\" + Path.GetFileName(f),true);
            }
        }

        private void evt_DragEnter(object sender, DragEventArgs e)
        {
            e.Effect = DragDropEffects.All;
        }
    }
}