use better api to delete test file when checking for write access + attempt to reset dir metadata

This commit is contained in:
Chris
2025-07-28 16:49:13 -06:00
parent f570944944
commit 493e2e336b

View File

@ -339,9 +339,10 @@ module FileIO =
let hasWriteAccess directory =
try
let temp = Path.Combine(directory, "deleteme.txt")
File.WriteAllText(temp, "")
File.Delete(temp)
let originalWriteTime = Directory.GetLastWriteTimeUtc(directory);
use _ = File.Create(Path.Combine(directory, Path.GetRandomFileName()), 1, FileOptions.DeleteOnClose)
// Restore original write time
Directory.SetLastWriteTimeUtc(directory, originalWriteTime)
true
with
| :? UnauthorizedAccessException -> false