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;
ForceDirectories('C:\Teste\Teste1\Teste2');end;
Nenhum comentário:
Postar um comentário