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).

7/17追記
ファイル名の日本語出力に対応しました。
io:format("filename:~s~n",[Filename]),
を
io:format("filename:~ts~n",[Filename]),
に変更。

参考：
Erlang | へびにっき : http://wp.serpere.info/archives/category/programing/erlang-programing

本ソースはファイル名およびディレクトリ名を取得するものだと判明。