Function ForceDirectories

Uses Unit FileCtrl

A função ForceDirectories cria todos os diretórios passados ao parâmetro Dir se os mesmos ainda não existirem. Por exemplo, se você passar para o parâmetro Dir os seguintes diretórios: 'C:\Teste1\Teste2\Teste3\Teste4', então serão criados todos estes diretórios, ou melhor, se estes diretórios ainda não existirem.

Sintaxe da sua utilização:

ForceDirectories('Nome_do_diretório');

Ex:

procedure TForm1.Button13Click(Sender: TObject);begin
       ForceDirectories('C:\Teste\Teste1\Teste2');end;