以下是一个在Erlang中遍历文件名并移除扩展名的示例代码：

-module(file_utils).
-export([remove_extension/1, list_files/1]).

% 移除文件名的扩展名
remove_extension(FileName) ->
    case lists:splitwith(fun (C) -> C =/= $. end, lists:reverse(FileName)) of
        {_, []} -> FileName;
        {Base, _} -> lists:reverse(Base)
    end.

% 遍历目录并返回文件名列表
list_files(Directory) ->
    {ok, Files} = file:list_dir(Directory),
    [remove_extension(F) || F <- Files].

使用方法：

1> c(file_utils).
2> Directory = "/path/to/directory".
3> Files = file_utils:list_files(Directory).
4> io:format("Files: ~p~n", [Files]).

在上述示例中，remove_extension/1函数接受一个文件名作为参数，并尝试移除其扩展名。它将文件名反转，并使用lists:splitwith/2函数将文件名分割为不包含扩展名的基本部分和扩展名部分。如果没有找到扩展名，则返回原始文件名。

list_files/1函数接受一个目录作为参数，并使用file:list_dir/1函数列出该目录中的文件。然后，它使用列表推导来遍历文件列表，并对每个文件名应用remove_extension/1函数。最终，它返回移除了扩展名的文件名列表。

请注意，上述代码假设您已经具备访问文件系统的权限，并且Directory参数是一个有效的目录路径。