使用RESTWeb服务从XML文档获取文件夹和文件

我目前正在尝试构建一个web界面，该界面将接收销售订单，并调用REST web服务来连接我们的数据库并获取一个Sharepoint对象，该对象将被序列化为XML。我是Web服务新手，所以我不确定到底要做什么，尤其是因为我看到的大多数示例都是检索字符串，我甚至不确定您是否可以检索文件或文件夹。再一次，这是新的

有没有办法从XML中获取文件夹和文件？我把这个项目作为一个Windows窗体应用程序来做，希望能把这些信息放到一个树状视图中，但没有成功。将其作为WCF应用程序是否更好？任何建议都会有帮助

Imports System.Data.SqlClient
Imports MagnetExchangeUtilities
Imports System.IO
Imports System.Xml
Imports System.Xml.Serialization
Imports MagnetExchangeUtilities.Sharepoint

Public Class Form1
Dim ex As Sharepoint = Nothing
Const connectionString As String = "Server=SQL1;Database=MGNET;Trusted_Connection=True;Connection Timeout=120"
Dim retValue As ReturnVal
'Dim email As EmailItem
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


    If tbOrderRef.Text = "" Then
        MsgBox("Please enter Order Ref")
        Exit Sub
    End If
    Dim Ref = tbOrderRef.Text
    retValue = GetOrderInformation(Ref)


    ex = New Sharepoint()



    Dim t = ex.GetOrderContent(retValue.Year, retValue.SONumber)

    Dim myT = New SPFolderOver()
    myT = SPFolderOver.LoadFolder(t)
    myT.Name = t.Name

    SerializeObjectToFile(myT, "C:\Users\apearson\Documents\Works.xml")





End Sub

Public Sub SerializeObjectToFile(Of T)(serializableObject As T, fileName As String)
    'Throws exception if the object is null
    If serializableObject Is Nothing Then
        Throw New Exception("The value of the passed object does not contain a value.")
    End If

    Try
        'instantiate xmlDocument
        Dim xmlDocument As New XmlDocument()
        'Create serializer with the type of the the serializableObject passed as a parameter
        Dim serializer As New XmlSerializer(serializableObject.[GetType]())
        'Create MemoryStream to write the serialized data to memory
        Using stream As New MemoryStream()
            'Pass the serialized data to the writer
            serializer.Serialize(stream, serializableObject)
            'Double check that the memory stream position is zero
            stream.Position = 0
            'Load string held in writer into the XMLDocument
            xmlDocument.Load(stream)
            'Save populated XMLDocument to the file path passed as a parameter
            xmlDocument.Save(fileName)
            stream.Close()
        End Using
        'Log exception here
    Catch ex As Exception
        Throw New Exception(ex.ToString)
    End Try
End Sub

Private Function GetOrderInformation(ByVal OrderRef As String) As ReturnVal
    Dim SONumber As String = ""
    Dim OrderYear As String = ""
    Dim SQlText As String = "SELECT top 1 msoh.SONumber,  year(soorderdate)" & Environment.NewLine & _
"  FROM [MGNET].[dbo].[MagSalesOrderCommitedItems] msoci" & Environment.NewLine & _
"  inner join MagSalesOrderHeader msoh on msoh.sonumber = msoci.SONumber" & Environment.NewLine & _
"  where msoh.SONumber = '" & OrderRef & "'" & Environment.NewLine & _
"union all" & Environment.NewLine & _
"SELECT top 1 msoh.SONumber,  year(soorderdate)" & Environment.NewLine & _
"  FROM [MGNET].[dbo].[MagSalesOrderCommitedItems] msoci" & Environment.NewLine & _
"  inner join MagSalesOrderHeader msoh on msoh.sonumber = msoci.SONumber" & Environment.NewLine & _
"  where msoci.SOQuoteNumber = '" & OrderRef & "'"


    Using con = New SqlConnection(connectionString)

        Using cmd = New SqlCommand(SQlText, con)

            Try
                con.Open()
            Catch ex As Exception
                Throw New Exception("Error opening connection")
            End Try

            Using rdr = cmd.ExecuteReader

                If rdr.HasRows Then
                    While rdr.Read()
                        SONumber = rdr(0)
                        OrderYear = rdr(1)
                    End While
                End If
            End Using
        End Using
    End Using
    Dim ret = New ReturnVal

    ret.SONumber = SONumber
    ret.Year = OrderYear
    Return ret
End Function

Private Sub tvInfo_NodeMouseClick(sender As Object, e As TreeNodeMouseClickEventArgs) Handles tvInfo.NodeMouseClick

End Sub

Private Sub tvInfo_NodeMouseDoubleClick(sender As Object, e As TreeNodeMouseClickEventArgs) Handles tvInfo.NodeMouseDoubleClick
    Dim node = tvInfo.SelectedNode
    Dim subFolder As String = node.Parent.Text
    Dim fileName = ex.GetFileContent(retValue.Year, retValue.SONumber, subFolder, node.Text.Split(";").First.Trim)
    Process.Start(fileName)
End Sub
End Class

Public Class ReturnVal
Public Property SONumber As String
Public Property Year As String
End Class



Public Class SPFolderOver
Private _files As List(Of SPFile)
Private _folders As List(Of SPFolderOver)
Private _name As String
Private _fullPath As String

'Private _folderObj As Object
'Private _ctx As SP.ClientContext
Private _sp As Sharepoint



Public Shared Function LoadFolder(ByVal t As SPFolder) As SPFolderOver
    Dim spFolder = New SPFolderOver
    spFolder.SPFolders = New List(Of SPFolderOver)
    For Each f In t.SPFolders
        Dim spFold = New SPFolderOver
        spFold.FullPath = f.FullPath
        spFold.SPFiles.AddRange(f.SPFiles)
        If t.SPFolders.Count > 0 Then
            spFold.SPFolders = New List(Of SPFolderOver)

            For Each nf In f.SPFolders

                spFold.SPFolders.Add(LoadFolder(nf))
            Next
        End If
        spFolder.SPFolders.Add(spFold)
    Next
    Return spFolder
End Function
Public Property SPFiles() As List(Of SPFile)
    Get
        Return _files
    End Get
    Set(ByVal value As List(Of SPFile))
        _files = value
    End Set
End Property
Public Property SPFolders() As List(Of SPFolderOver)
    Get
        Return _folders
    End Get
    Set(ByVal value As List(Of SPFolderOver))
        _folders = value
    End Set
End Property
Public Property Name() As String
    Get
        Return _name
    End Get
    Set(ByVal value As String)
        _name = value
    End Set
End Property

Public Property Folder() As Object
    Get
        'Return _folderObj
        Return Nothing
    End Get
    Set(ByVal value As Object)
        '_folderObj = value
    End Set
End Property
'Public Property SPContext() As SP.ClientContext
'    Get
'        'Return _ctx
'        Return Nothing
'    End Get
'    Set(ByVal value As SP.ClientContext)
'        '_ctx = value
'    End Set
'End Property
Public Property FullPath() As String
    Get
        Return _fullPath
    End Get
    Set(ByVal value As String)
        _fullPath = value
    End Set
End Property
Public Property SP() As Sharepoint
    Get
        Return _sp
    End Get
    Set(ByVal value As Sharepoint)
        _sp = value
    End Set
End Property


Public Sub New()
    _files = New List(Of SPFile)
    _folders = New List(Of SPFolderOver)

    '_folderObj = Nothing
    _sp = Nothing
End Sub
Public Sub Delete()
    'If _folderObj Is Nothing Then
    'Return
    'End If
    'Try
    '    _folderObj.DeleteObject()
    '    _ctx.ExecuteQuery()
    'Catch ex As Exception
    '    Throw New Exception("Unable to delete folder! Message: " & ex.Message, ex)
    'End Try
    Try
        '_sp.Impersonation.Impersonate(_sp.Credentials)
        Directory.Delete(_fullPath, True)
    Catch ex As Exception
        Throw New Exception("Unable to delete folder! Message: " & ex.Message, ex)
        'Finally
        '_sp.Impersonation.Undo()
    End Try
End Sub
End Class

---

你的要求有点混乱。下面的代码提取文件和文件夹的名称，并将结果放入xml文件中。也许这会有帮助：

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Xml;
using System.Xml.Linq;
using System.IO;

namespace SAveDirectoriesXml
{
    class Program
    {
        const string FILENAME = @"c:\temp\test.xml";
        const string FOLDER = @"c:\temp";
        static XmlWriter writer = null;
        static void Main(string[] args)
        {
            XmlWriterSettings settings = new XmlWriterSettings();
            settings.Indent = true;

            writer = XmlWriter.Create(FILENAME, settings);
            writer.WriteStartDocument(true);

            DirectoryInfo info = new DirectoryInfo(FOLDER);
            WriteTree(info);

            writer.WriteEndDocument();
            writer.Flush();
            writer.Close();
            Console.WriteLine("Enter Return");
            Console.ReadLine();

        }
        static long WriteTree(DirectoryInfo info)
        {
            long size = 0;
            writer.WriteStartElement("Folder");
            try
            {
                writer.WriteAttributeString("name", info.Name);
                writer.WriteAttributeString("numberSubFolders", info.GetDirectories().Count().ToString());
                writer.WriteAttributeString("numberFiles", info.GetFiles().Count().ToString());
                writer.WriteAttributeString("date", info.LastWriteTime.ToString());


                foreach (DirectoryInfo childInfo in info.GetDirectories())
                {
                    size += WriteTree(childInfo);
                }

            }
            catch (Exception ex)
            {
                string errorMsg = string.Format("Exception Folder : {0}, Error : {1}", info.FullName, ex.Message);
                Console.WriteLine(errorMsg);
                writer.WriteElementString("Error", errorMsg);
            }

            FileInfo[] fileInfo = null;
            try
            {
                fileInfo = info.GetFiles();
            }
            catch (Exception ex)
            {
                string errorMsg = string.Format("Exception FileInfo : {0}, Error : {1}", info.FullName, ex.Message);
                Console.WriteLine(errorMsg);
                writer.WriteElementString("Error",errorMsg);
            }

            if (fileInfo != null)
            {
                foreach (FileInfo finfo in fileInfo)
                {
                    try
                    {
                        writer.WriteStartElement("File");
                        writer.WriteAttributeString("name", finfo.Name);
                        writer.WriteAttributeString("size", finfo.Length.ToString());
                        writer.WriteAttributeString("date", info.LastWriteTime.ToString());
                        writer.WriteEndElement();
                        size += finfo.Length;
                    }
                    catch (Exception ex)
                    {
                        string errorMsg = string.Format("Exception File : {0}, Error : {1}", finfo.FullName, ex.Message);
                        Console.WriteLine(errorMsg);
                        writer.WriteElementString("Error", errorMsg);
                    }
                }
            }

            writer.WriteElementString("size", size.ToString());
            writer.WriteEndElement();
            return size;

        }
    }
}

---

XML表示数据结构，因此您可以使用它来表示您的数据结构，而不管它们是文件还是文件夹。很抱歉，问题到处都是。我在这方面没有得到很好的指导，我向老板提出了问题，但没有得到明确的答案。web服务的总体功能是接受订单并检索与其相关的文件夹和文件。客户应该能够查看它们，然后将文件添加到随身携带的artwork文件夹中。我想我要解决的问题是，如果有意义的话，我是否真的可以从返回的XML中访问这些文件。你说：“接受订单，并检索与之相关的文件夹和文件”。那么这是否意味着你只是在做一个返回文件的目录，或者你正在打开文件并读取文件？听起来至少有一个返回的文件中有文件名。应该允许客户打开和读取文件，是的。我的老板希望它显示为目录或树视图。始终将人员重新引用到此帖子：