Delphi: Forçar criação de Diretório

Delphi: Forçar criação de Diretório

 

    if not DirectoryExists(ExtractFilePath(Application.ExeName) + ‘/teste’) then

      ForceDirectories(ExtractFilePath(Application.ExeName) + ‘/teste’);

 

FDantas

Formado pela FPJ (Faculdade Politecnica de Jundiai), atualmente atuando como analista de sistemas. Trabalha há mais de 10 anos com analise, desenvolvimento e customização de sistemas desenvolvidos em Progress 4GL como Magnus, EMS e HCM. Atua também com desenvolvimento web, utilizando a ferramenta WebSpeed.

Você pode gostar...

Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *