RosettaCodeData/Task/Delete-a-file/F-Sharp/delete-a-file.fs

11 lines
261 B
Forth
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
open System.IO
[<EntryPoint>]
let main argv =
let fileName = "input.txt"
let dirName = "docs"
for path in ["."; "/"] do
ignore (File.Delete(Path.Combine(path, fileName)))
ignore (Directory.Delete(Path.Combine(path, dirName)))
0