Synclock для создания уникальных каталогов в многопоточной среде

Question

В моем приложении я создаю отчеты. Отчеты создаются работами, которые выполняются параллельно. Отчеты должны храниться в уникальных каталогах.

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

Edit: DirectoryLock определяется как Private DirectoryLock As Object = New Object

'Create a non existant path 
Dim ID As String 'Unique ID, that is added to the path 
Dim RandomReportName As String 'The resulting directory name 
SyncLock DirectoryLock 'Lock the creation of the directory, to avoid the same names 
    Dim number As Integer = 0 
    Do 
     number += 1 
     ID = Format(number, "000") 'Create ID from a counter 
     RandomReportName = "Report_" & Format(Date.Now, "yyyy_MM_dd-HH_mm_ss.fff") & "_(" & ID & ")" 'Generate the path 
     opts.OutputPath = IO.Path.Combine(opts.OutputPath, RandomReportName) 
    Loop Until IO.Directory.Exists(opts.OutputPath) = False 'Increase the counter, until a non existant path is found 
    IO.Directory.CreateDirectory(opts.OutputPath) 'Create the directory in the synclock, so other threads will need to find a new name (higher counter) 
End SyncLock 'Free the code 

Насколько я понял это, он должен Работа. Однако, когда я запускаю это, используя 10 заданий параллельно, часто случается, что несколько потоков получают одинаковое имя пути, и я не понимаю, почему.

Что мне не хватает (как должно быть что-то :-)) и как можно избежать такой проблемы?

Ответы как на VB.NET, так и на C# очень приветствуются.

Answer 1

Я искал совершенно неправильный конец ошибки.

Я думал, что замок не работает, однако простая ошибка была

opts.OutputPath = IO.Path.Combine(opts.OutputPath, RandomReportName) 

повторно использовать ту же переменную для конкатенации. Таким образом, на последующих итерациях цикла новое RandomReportName добавляется к уже существующему.

Решение, конечно, является использование временной переменной

'Create a non existant path 
Dim ID As String 
Dim RandomReportName As String 
Dim ResultPath As String = "" 'Stores the unique path name 
SyncLock DirectoryLock 
    Dim number As Integer = 0 
    Do 
     number += 1 
     ID = Format(number, "000") 'Create ID from a counter 
     RandomReportName = "Report_" & Format(Date.Now, "yyyy_MM_dd-HH_mm_ss.fff") & "_(" & ID & ")" 'Generate the path 
     ResultPath = IO.Path.Combine(opts.OutputPath, RandomReportName) 'Assign the result path with the combined base path and unique name 
    Loop Until IO.Directory.Exists(ResultPath) = False 
    IO.Directory.CreateDirectory(ResultPath) 
    opts.OutputPath = ResultPath 'Store the temporary variable for further use 
End SyncLock 'Free the code