ようやく仕事が落ち着いた。 dir := 'D:\test\smalltalk'. contents := dir asFilename directoryContents. contents do: [:each| "Transcript show: each." entry := (dir, '\', each). Transcript show: entry. entry asFilename isDirectory ifTrue: [Tra…