mirror of
https://github.com/gnustep/libs-steptalk.git
synced 2025-02-23 03:20:57 +00:00
c2c2d22254
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/steptalk/trunk@13642 72102866-910b-0410-8b05-ffd578937521
26 lines
745 B
Smalltalk
26 lines
745 B
Smalltalk
| fileManager path files dict |
|
|
|
|
fileManager := NSFileManager defaultManager.
|
|
|
|
path := fileManager currentDirectoryPath.
|
|
|
|
Transcript showLine:( 'Listing of directory: ', path ).
|
|
|
|
files := fileManager directoryContentsAtPath:path.
|
|
|
|
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:''
|
|
]
|
|
|
|
|