Erlang filename dirname 取得する

ソース内に直書きしたディレクトリ名の配下にあるファイル名およびディレクトリ名を表示するプログラムを書いた。
ファイル名に日本語があると落ちるけど。

ソース：

-module(filelibTest).
-include_lib("wx.hrl").

-export([start/0]).

start() ->
    % get file name
    Files = filelib:wildcard("C:/Users/andre/erlwork/*"),
    % print file name
    print(Files).

print([]) ->
    io:format("ok~n");
print([File|Files]) ->
    Filename = filename:basename(File),
    io:format("filename:~ts~n",[Filename]),
    print(Files).