or better: DIM sFormName AS String FOR EACH sFormName IN Dir(Application.Path, "*.form").Sort() PRINT file.BaseName(sFormName) NEXT Stefano