添加附件异常 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

            For q As Integer = 1 To latestMailItem.Attachments.Count
            Dim files As String
            Dim FileName As String
            FileName = latestMailItem.Attachments(q).FileName
            Dim fmat As String = Filename
            Dim pathfile As String
            pathfile = ProjectPath & "Attachments\" & "files" & "\" & fmat
            If FileSys.DirectoryExists(ProjectPath & "Attachments\" & "files") = False Then
                FileSys.CreateDirectory(ProjectPath & "Attachments\" & "files")
            End If
            lst.Add(pathfile)
            latestMailItem.Attachments(q).SaveAsFile(pathfile)

此主题相关图片如下：屏幕截图 2024-09-26 160106.png

点打开邮件会弹出这个信息

附件列添加异常，写入绝对路径，文件夹里面的问题打不开，请教什么问题呢

[此贴子已经被作者于2024/9/26 16:07:53编辑过]

主题：添加附件异常