1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
|
" List contents of current directory "
" Script variables "
| fileManager path files dict |
" Get default file manager "
fileManager := NSFileManager defaultManager.
" Get current path "
path := fileManager currentDirectoryPath.
" Write label on Transcript (for shell it is standard output) "
Transcript showLine:( 'Listing of directory: ', path ).
" Get files from 'path' "
files := fileManager directoryContentsAtPath:path.
" For each file from files do the following ..."
files do:
[ :file |
dict := fileManager fileAttributesAtPath: (path / file)
traverseLink:NO.
Transcript showLine:file.
Transcript showLine: (' Type: ', (dict @ NSFileType)).
Transcript showLine: (' Size: ', ((dict @ NSFileSize) stringValue)).
Transcript showLine: (' Date: ', ((dict @ NSFileModificationDate)
description)).
Transcript showLine:''
]
|
