Delphi Drawers

パスからフォルダパスを取得

ファイルパスからフォルダパスを抽出します。

function fnGetFolderPathByFilePath(strPath:string):string;
begin
  strPath := StringReplace(strPath, '/', '\', [rfReplaceAll]);
  strPath := ExtractFilePath(strPath);
  fnGetFolderPathByFilePath := strPath;
end;
Copyright © 2006 Hikijishi All Rights Reserved.
[] [delphi][0.00118899345397949]