Portal Melhores Rádios Estereogramas Guia de Programação MDV Max Converter MDV Player
Função para Criar um Diretório em Delphi

Função para Criar um Diretório em Delphi

Função para Criar um Diretório em Delphi

//Função para Criar um Diretorio
procedure proCriarDiretorios(pStrDiretorio: String); //Ex: pStrDiretorio := ‘C:\Pasta\MinhaPasta\Programa’
begin
  if not DirectoryExists(pStrDiretorio) then //se o diretorio não existe
    ForceDirectories(pStrDiretorio); //cria o diretorio
end;