let content$ = file_readalltext$("missing.txt")
if ioerror() <> 0 then
    println "Error: "; iostrerror$()
endif

' Read UTF-8 (default)
let content$ = file_readalltext$("data.txt")
if ioerror() <> 0 then
    println "Read error: "; iostrerror$()
endif

' Read with specific encoding
let latin$ = file_readalltext$("latin.txt", "ansi")

' Read binary file
let stream# = file_readallbytes#("image.png")

' Write text file
let result = file_writealltext("output.txt", "Hello, World!")

' Append to log
let logline$ = formatdatetime$("yyyy-mm-dd hh:nn:ss", now()) + " - Event"
let result = file_appendalltext("log.txt", logline$ + chr$(13) + chr$(10))

' Write with specific encoding
let result = file_writealltext("data.csv", "Name;Value", "ansi")

' Copy with overwrite
if file_exists("source.txt") <> 0 then
    let result = file_copy("source.txt", "backup.txt", 1)
endif

' Move / rename
let result = file_move("old.txt", "new.txt")

' Delete
let result = file_delete("temp.txt")
if ioerror() <> 0 then
    println "Could not delete: "; iostrerror$()
endif

' Get size
let size = file_getsize("document.pdf")
println "Size: "; size; " bytes"

' Get modification time
let modified = file_getlastwritetime("document.txt")
println "Modified: "; formatdatetime$("yyyy-mm-dd hh:nn:ss", modified)

' Update modification time to now
let result = file_setlastwritetime("document.txt", now())

' Create directory
let result = dir_create("myproject")

' Check existence before creating
if dir_exists("backup") = 0 then
    let result = dir_create("backup")
endif

' Delete directory tree (1 = recursive)
let result = dir_delete("temp", 1)

' Copy entire directory
let result = dir_copy("project", "project_backup")

' List all files
let files$ = dir_getfiles$(documentspath$())
let linecount = count(files$)
for i = 0 to linecount - 1
    println line$(files$, i)
next

' Find .txt files recursively
let txtfiles$ = dir_getfiles$(homepath$(), "*.txt", 1)

' List subdirectories
let subdirs$ = dir_getdirectories$(homepath$())

' Save and change directory
let original$ = dir_getcurrent$()
let result = dir_setcurrent(documentspath$())
println "Working in: "; dir_getcurrent$()

' Restore
let result = dir_setcurrent(original$)

' Get parent
let parent$ = dir_getparent$(homepath$())
println "Parent: "; parent$

let fullpath$ = path_combine$(homepath$(), "Documents", "report.txt")
println fullpath$
' Windows: C:\Users\John\Documents\report.txt
' Linux:   /home/john/Documents/report.txt

let filepath$ = path_combine$(documentspath$(), "report.pdf")

println "Directory: "; path_getdirectoryname$(filepath$)
println "Filename:  "; path_getfilename$(filepath$)
println "Name only: "; path_getfilenamenoext$(filepath$)
println "Extension: "; path_getextension$(filepath$)
println "As backup: "; path_changeextension$(filepath$, ".bak")

' Convert relative to absolute
let rel$ = "data/config.ini"
println "Full: "; path_getfullpath$(rel$)

' Validate user input
let userpath$ = "myfile.txt"
if path_hasvalidfilenamechars(userpath$) = 0 then
    println "Invalid filename!"
endif

' Pattern matching
if path_matchespattern("report_2024.pdf", "report_*.pdf") <> 0 then
    println "Matches pattern!"
endif

' Check absolute vs relative
println path_ispathrooted("/home/user")  ' 1
println path_isrelativepath("data/file.txt")  ' 1

' Simple file manager
println "=== File Manager ==="

let currentdir$ = dir_getcurrent$()
println "Directory: "; currentdir$
println ""

' List subdirectories
let dirs$ = dir_getdirectories$(currentdir$)
if len(dirs$) > 0 then
    let dircount = count(dirs$)
    for i = 0 to dircount - 1
        let dirname$ = path_getfilename$(line$(dirs$, i))
        println "[DIR]  "; dirname$
    next
endif

' List files with size
let files$ = dir_getfiles$(currentdir$)
if len(files$) > 0 then
    let filecount = count(files$)
    for i = 0 to filecount - 1
        let filepath$ = line$(files$, i)
        let filename$ = path_getfilename$(filepath$)
        let filesize = file_getsize(filepath$)
        println "       "; filename$; " ("; stri$(filesize); " bytes)"
    next
endif

' Back up all .txt files from Documents to backup folder
println "=== Backup Utility ==="

let srcdir$ = documentspath$()
let bkdir$ = path_combine$(srcdir$, "backup")

if dir_exists(bkdir$) = 0 then
    let result = dir_create(bkdir$)
endif

let files$ = dir_getfiles$(srcdir$, "*.txt")
let copied = 0

if len(files$) > 0 then
    let n = count(files$)
    for i = 0 to n - 1
        let src$ = line$(files$, i)
        let fname$ = path_getfilename$(src$)
        let dst$ = path_combine$(bkdir$, fname$)
        if file_copy(src$, dst$, 1) <> 0 then
            println "OK: "; fname$
            copied = copied + 1
        else
            println "FAIL: "; fname$; " - "; iostrerror$()
        endif
    next
endif

println ""
println "Backed up "; copied; " files"

' Persistent log writer
function logwrite(msg$) local logpath$, logline$, result
    logpath$ = path_combine$(documentspath$(), "app.log")
    logline$ = formatdatetime$("yyyy-mm-dd hh:nn:ss", now())
    logline$ = logline$ + " - " + msg$ + chr$(13) + chr$(10)
    result = file_appendalltext(logpath$, logline$)
    return result
endfunction

logwrite("Application started")
logwrite("Processing data...")
logwrite("Done")

' Read log
let log$ = file_readalltext$(path_combine$(documentspath$(), "app.log"))
println log$