shenjxcn 2021-12-30 05:08 采纳率: 100%
浏览 203
已结题

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

求助:

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

问题:

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

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

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

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

img

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
  • 写回答

10条回答

      报告相同问题?

      相关推荐 更多相似问题

      问题事件

      • 系统已结题 1月8日
      • 已采纳回答 12月31日
      • 创建了问题 12月30日

      悬赏问题

      • ¥20 b站私信完整导出的方法
      • ¥15 边界图中的x、y轴解释
      • ¥30 如何用matlab求解复杂方程
      • ¥15 VUE TS中怎么调用第三方js
      • ¥15 Activiti如何将值传入textValue
      • ¥20 在linux里安装lummps时 在make mpi里找不到rpc
      • ¥25 python先到先得调度和轮询调度
      • ¥15 SDK Manager闪退
      • ¥15 intel i219v mac地址修改问题
      • ¥15 leetcode上面的题,求解