mirror of
https://github.com/rfvgyhn/min-ed-launcher.git
synced 2026-02-04 10:45:34 +00:00
use better api to delete test file when checking for write access + attempt to reset dir metadata
This commit is contained in:
@ -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
|
||||
|
||||
Reference in New Issue
Block a user