フォルダを作成
フォルダを作成します。
function fnCreateFolder(strFolderPath:string):boolean;
begin
if fnFolderExists(strFolderPath) then begin
fnCreateFolder := True;
end else begin
fnCreateFolder := ForceDirectories(strFolderPath);
end;
end;
フォルダを作成します。
function fnCreateFolder(strFolderPath:string):boolean;
begin
if fnFolderExists(strFolderPath) then begin
fnCreateFolder := True;
end else begin
fnCreateFolder := ForceDirectories(strFolderPath);
end;
end;