忍者ブログ

ゆるいSEの小ネタ集

ゆるキャラ好きのITエンジニアが書くTips。 ゆるキャラ命なSEのIT徒然草 https://itmagic.hatenablog.com/

[Delphi]FileIO

×

[PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。

コメント

ただいまコメントを受けつけておりません。

[Delphi]FileIO

【ファイル関連メソッド】
■FileExists
ファイル存在チェック
if FileExists(edtPath.Text) then //ファイルが存在すればTrue

■CopyFile
ファイルのコピー
CopyFile(PChar(sFromName), PChar(sToName), bExist)
 sFromName コピー元ファイル
 sToName  コピー先ファイル
 bExist   コピー先にファイル存在時の処理
 (true:異常終了しコピーしない、false:正常終了し上書きコピー

■DeleteFile
ファイルの削除
DeleteFile(const FileName: string)

■ChangeFileExt    
ファイルの拡張子変更
単純に拡張子を変更するだけならこれが便利。
例)
sFilename := 'abc.txt';
sChgExt := 'csv';
sWk := ChangeFileExt(sFilename, sChgExt);      →sWkの中身 'abc.csv'

■ExtractFileDir
FileName のドライブ部分とディレクトリ部分を返却
例)
sFile := 'C:\dir\test.txt';
sWk := ExtractFileDir(sFile); //sWk : 'C:\dir\'

■ExtractFileDrive
ファイル名からドライブ部分を返却
例)
sFile := 'C:\dir\test.txt';
sWk := ExtractFileDrive(sFile); //sWk : 'C:\'

■ExtractFilePath
ファイル名のパス部分を返却
例)
sFile := 'C:\dir\test.txt';
sWk := ExtractFilePath(sFile); //sWk : 'C:\dir\'

■ExtractFileName
ファイル名の名前部分と拡張子部分を返却
(=フルパスのファイル名の、ファイル名部分だけを返す)
例)
sFile := 'C:\dir\test.txt';
sWk := ExtractFileName(sFile); //sWk : 'test.txt'

■ExtractFileExt
ファイル名の拡張子部分を返します。
例)
sFile := 'C:\dir\test.txt';
sWk := ExtractFileExt(sFile); //sWk : 'txt'


【フォルダ関連メソッド】
■DirectoryExists(Name: string): Boolean;
フォルダ存在チェック
存在すればtrue

■MkDir(S: string);
フォルダ作成
//フォルダが存在しなければ作成
if not DirectoryExists(sTmpDirName) then
  MkDir(sTmpDirName);

■RmDir(S: string);
フォルダ削除
RmDir(sTmpDirName); //フォルダを削除
※必ず存在チェック(DirectoryExists)後に行う。


【Tips】
■ファイル名から拡張子を削除して間に文字列を入れ、別の拡張子に変換する
filename := ExtractFileName(copyFile);
filenameNoext := Copy(filename, 0, (Pos('.', filename) - 1)); //拡張子除去
bkupFile := bkupDir + filenameNoext + '_' + sDay + '.txt';

■拡張子を除去
filenameNoext := Copy(FileNM, 0, (Pos('.', filename) - 1)); //拡張子除去

■ファイル一括削除
procedure deleteXls;
var
srcRc: TSearchRec;
i: integer;
bFlg: boolean;
begin
   //エクセルファイル存在チェック
   if FindFirst('C:\dir\*.XLS', faAnyFile, srcRc) = 0 then
   begin
    repeat
     DeleteFile('C:\dir\' + srcRc.Name);
     i := FindNext(srcRc); //次を検索
    until not i = 0
   end;
end;
PR

コメント

ただいまコメントを受けつけておりません。

プロフィール

HN:
ゆるキャラ命
性別:
非公開

P R