Modern Fs Overwrite

Home › Filesystem › Filesystem Library › CopyOptions.Overwrite

CopyOptions.Overwrite

Chooses whether CopyDir replaces files already at the destination; false by default.

Syntax

CopyOptions.Overwrite

Examples

#import "std/fs"
using fs

'' Everything below happens inside a temp directory of its own, and is
'' removed at the end
dim td as FsResultUStr = CreateTempDir( "fbdoc" )
dim as ustring dir_ = td.Value( )

'' A field of CopyOptions, DEFAULT FALSE: an existing destination file
'' stops the copy instead of being replaced
CreateDir( PathJoin( dir_, "src" ) )
CreateDir( PathJoin( dir_, "dst" ) )
WriteAllText( PathJoin( dir_, "src", "f.txt" ), "new" )
WriteAllText( PathJoin( dir_, "dst", "f.txt" ), "old" )

dim opts as CopyOptions
print opts.Overwrite         '' false

print CopyDir( PathJoin( dir_, "src" ), PathJoin( dir_, "dst" ), opts ).IsOk( )
print ReadAllText( PathJoin( dir_, "dst", "f.txt" ) ).Value( )       '' old

opts.Overwrite = true
CopyDir( PathJoin( dir_, "src" ), PathJoin( dir_, "dst" ), opts )
print ReadAllText( PathJoin( dir_, "dst", "f.txt" ) ).Value( )       '' new

RemoveDirAll( dir_ )

---

Library: Filesystem Library
Category: Filesystem
Documented under: File Operations