ディレクトリの内容を一覧表示 2

dir := FileDirectory on: 'D:\test'.
dir entries do: [:each|
  Transcript show: each printString; cr.
]

すっきりした。