Delphi Drawers

フォルダを作成

フォルダを作成します。

function fnCreateFolder(strFolderPath:string):boolean;
begin
  if fnFolderExists(strFolderPath) then begin
    fnCreateFolder := True;
  end else begin
    fnCreateFolder := ForceDirectories(strFolderPath);
  end;
end;
Copyright © 2006 Hikijishi All Rights Reserved.
[] [delphi][0.00116395950317383]