lha("c:\aaa\", "c:\aaa.lzh") function lha(in, out)//入力はフォルダ専用 DEF_DLL Unlha(Long, String, String, Long) :Long :UNLHA32.DLL dim hWnd in = "<#DBL>" + in + "<#DBL>" out = "<#DBL>" + out + "<#DBL>" commandline = "a -drn "+ out +" "+ in result = Unlha(hWnd, commandline) fend