Есть ли в dotNet асинхронная версия DirectoryInfo.GetFiles / Directory.GetDirectories?

Нет, не думаю. Подход с использованием потоков пула, вероятно, является наиболее прагматичным. В качестве альтернативы, я думаю, вы могли бы перейти к P / Invoke, но это потребовало бы намного дополнительной работы.

Я не нашел асинхронной версии GetFiles, однако, если вы посмотрите исходный код для других операций Async, они определены следующим образом:

module FileExtensions =

        let UnblockViaNewThread f =
            async { //let ctxt = System.Threading.SynchronizationContext.Current
                    do! Async.SwitchToNewThread ()
                    let res = f()
                    do! Async.SwitchToThreadPool ()
                    //do! Async.SwitchTo ctxt
                    return res }

        type System.IO.File with
            static member AsyncOpenText(path)   = UnblockViaNewThread (fun () -> System.IO.File.OpenText(path))
            static member AsyncAppendText(path) = UnblockViaNewThread (fun () -> System.IO.File.AppendText(path))
            static member AsyncOpenRead(path)   = UnblockViaNewThread (fun () -> System.IO.File.OpenRead(path))
            static member AsyncOpenWrite(path)  = UnblockViaNewThread (fun () -> System.IO.File.OpenWrite(path))
            static member AsyncOpen(path,mode,?access,?share) =
                let access = match access with Some v -> v | None -> System.IO.FileAccess.ReadWrite
                let share = match share with Some v -> v | None -> System.IO.FileShare.None
                UnblockViaNewThread (fun () -> System.IO.File.Open(path,mode,access,share))

            static member OpenTextAsync(path)   = System.IO.File.AsyncOpenText(path)
            static member AppendTextAsync(path) = System.IO.File.AsyncAppendText(path)
            static member OpenReadAsync(path)   = System.IO.File.AsyncOpenRead(path)
            static member OpenWriteAsync(path)  = System.IO.File.AsyncOpenWrite(path)
            static member OpenAsync(path,mode,?access,?share) = System.IO.File.AsyncOpen(path, mode, ?access=access, ?share=share)

Другими словами, операции Async file, streamreader и WebClient - это просто оболочки для синхронных операций, поэтому вы должны иметь возможность написать свою собственную оболочку для GetFiles / GetDirectories следующим образом:

module IOExtensions =
    type System.IO.Directory with
        static member AsyncGetFiles(directory) = async { return System.IO.Directory.GetFiles(directory) }
        static member AsyncGetDirectories(path) = async { return System.IO.Directory.GetDirectories(path) }

Это можно считать чем-то вроде взлома, но вы можете подумать об использовании UWP StorageFolder API.

Пример C # (хотя F #, вероятно, так же прост):

using Windows.Storage;

...

var folder = await StorageFolder.GetFolderFromPathAsync(path);
var files = await folder.GetFilesAsync();
var folders = await folder.GetFoldersAsync();

Вы можете легко использовать их из традиционных настольных и консольных приложений .NET с помощью библиотеки UWP for Desktop, Люсьен Вишик (из Microsoft).

Install-Package UwpDesktop

Я несколько раз использовал этот подход для получения объектов Async из функций / процедур, и он всегда отлично работал:

let AsyncGetDirectories path = 
    let fn = new Func<_, _>(System.IO.Directory.GetDirectories)
    Async.BuildPrimitive(path, fn.BeginInvoke, fn.EndInvoke)

Собственно, согласно справке для _1 _, Directory.EnumerateFiles немедленно вернет первый результат (это IEnumerable), а не дождется всего списка перед возвратом. Я считаю, что это, вероятно, то, что вы ищете.

Я не программист на F #, но сделал бы это на C #:

static IEnumerable<string> IterateFiles(string path, string pattern) {
    var entryQueue = new Queue<string>();
    entryQueue.Enqueue(path);

    while (entryQueue.Count > 0) {
        var subdirs = Directory.GetDirectories(entryQueue.Peek());
        var files = Directory.GetFiles(entryQueue.Peek(), pattern, SearchOption.TopDirectoryOnly);
        foreach (var file in files)
            yield return file;
        entryQueue.Dequeue();

        foreach(var subdir in subdirs)
            entryQueue.Enqueue(subdir);
    }
}

Я предполагаю, что в F # есть конструкция, аналогичная итераторам.

Ответ принцессы - это способ добавить гранулярности между задачами, поэтому такие вещи позволят другим игрокам использовать пул потоков:

let! x = OpenTextAsync("whatever");
// opening for something else to run
let! x = OpenTextAsync("whatever");
// opening for something else to run
let! x = OpenTextAsync("whatever");

Это не так сильно помогает, когда каждый из этих блокирующих вызовов является тяжелым, а GetFiles через SMB в значительной степени является определением тяжелого.

Я надеялся, что существует какой-то эквивалент для _2 _ / _ 3_ для каталогов, и этот _4 _ / _ 5_ был просто хорошей оболочкой для вызовов нижнего уровня, которая раскрывала некоторые варианты асинхронности. Что-то вроде _6 _ / _ 7_.