ユニークな名前でフォルダを作成するには (ID:6135)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ForceDirectories関数でプログラムを組んでみたところディレクトリがうまく作成されていません、エクスプローラーで確認しても新規フォルダが作成されていないのですが。プログラムにおかしな場所はあるでしょうか？ それともプログラムが起動されている時のみで、プログラム終了時にフォルダは削除されてしまうのでしょうか？ function TFm32SumCopy.SetUniquePlace: Boolean; var Dir: string; begin // フォルダが作成される場所 Dir := 'D:\Temp'; if ForceDirectories(Dir) then begin ShowMessage(Dir + ' was created'); end else begin ShowMessage('新規フォルダを作成できませんでした。') end; end;