名前が日付のフォルダを作る・備忘録


※全てのDelphiで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

パソコンの内蔵時計を基に現在の日付を名前にしたフォルダを作る記述サンプルです。もし、すでに作成済みの場合はフォルダは作られません。あくまでも私的な備忘録で、これよりももっと効率的なコードがあるかもしれません。


var
    w_yyyymmdd: String;

begin

    w_yyyymmdd := 'H:\'+ FormatDateTime('yyyymmdd', Date);

    if DirectoryExists(w_yyyymmdd) = False then begin
        CreateDir(w_yyyymmdd);
    end;

・SysUtils.DirectoryExists のヘルプより引用

function DirectoryExists(const Directory: string): Boolean;

Directory パラメータに指定されたディレクトリが存在するかどうかを判別するには、DirectoryExists を呼び出します。ディレクトリが存在する場合、この関数は true を返します。ディレクトリが存在しない場合、この関数は false を返します。

 

■関連の参考記事

・日付時刻を文字列に変換 FormatDateTime関数