module XLinq.Utils
open System.Xml.Linq
open System.IO
open System.Xml.Schema

let xName n = XName.Get ("{http://namespace/here}" + n)

// IO(or WebRequest in your case) stuff
let dirs ns = // seq<DirectoryInfo>
    try seq { for d in ns -> new DirectoryInfo(d) } 
    with e -> failwith ("ioUtils.dirs: " +  e.Message)
     
let files dirNames p o = // FileInfo[] in 'dirs' with 'searchPattern'
    try seq { for dir in dirs dirNames -> dir.GetFiles(p, o) } |> Array.concat
    with e -> failwith ("ioUtils.files: " +  e.Message)

// Schema validation
let xValidate (xDoc:XDocument) =
    try
        let schemaSet = new XmlSchemaSet()
        schemaSet.Add(null, xsd) |> ignore
        xDoc.Validate(schemaSet, null)
        true
    with e -> false

// Get XML Document and do some thing
let xDocuments (dirNames:seq<string>, pattern:string, opt:SearchOption) = // 
    try // Generate sequence of XDocument and validate it with wss.xsd
        seq { for f in files dirNames pattern opt -> XDocument.Load(f.FullName) } 
        |> Seq.filter xValidate 
    with e -> failwith ("xUtils.xDocuments: " +  e.Message)