mirror of
https://github.com/gnustep/libs-steptalk.git
synced 2025-02-23 03:20:57 +00:00
18 lines
357 B
Smalltalk
18 lines
357 B
Smalltalk
|
| fileManager fileName data |
|
||
|
|
|
||
|
|
fileManager := NSFileManager defaultManager.
|
||
|
|
|
||
|
|
fileName := '/tmp/TestFile.text'.
|
||
|
|
|
||
|
|
('This is some file' writeToFile:fileName atomically:NO)
|
||
|
|
ifTrue:
|
||
|
|
[
|
||
|
|
Transcript showLine:'File was succesfully created.'
|
||
|
|
]
|
||
|
|
ifFalse:
|
||
|
|
[
|
||
|
|
Transcript showLine:'File was not created.'
|
||
|
|
]
|
||
|
|
|
||
|
|
|