GetDailyWindows10Picture.fsx

// source: https://www.tekrevue.com/tip/find-windows-spotlight-lock-screen-images-windows-10/
let (</>) path1 path2 = System.IO.Path.Combine (path1, path2)
let toJpg x = x + ".jpg" 
let copyTo dest from = System.IO.File.Copy(from, dest) |> ignore

// let assetPath = """.\%LocalAppData%\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets"""
let localAppData = System.Environment.GetFolderPath(System.Environment.SpecialFolder.LocalApplicationData)
let pathToAssets = localAppData </> """Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets"""

let myPictures = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyPictures)
let pathToBing =  myPictures </> "LockScreenPictures"

pathToBing |> System.IO.Directory.CreateDirectory |> ignore

System.IO.DirectoryInfo(pathToAssets).GetFiles "*"
|> Array.filter (fun x -> x.Length > int64 10000) // |> Array.sortByDescending(fun x -> x.Length)
|> Array.iter (fun x -> x.FullName |> copyTo (pathToBing </> (toJpg x.Name)))