RosettaCodeData/Task/Delete-a-file/Fortran/delete-a-file-2.f
2023-07-01 13:44:08 -04:00

8 lines
223 B
Fortran

program DeleteFileExample
use kernel32
implicit none
print *, DeleteFile("input.txt")
print *, DeleteFile("\input.txt")
print *, RemoveDirectory("docs")
print *, RemoveDirectory("\docs")
end program