Fórum CreateDir #205855

Para criar um diretório você precisa usar a função ForceDirectories, o exemplo a baixo testa se não existe um diretório e cria o diretório apartir de uma variável string testando se o diretório já existe
Unit
FileCtrl
procedure TForm1.Button1Click(Sender: TObject);
var
Dir: string;
begin
Dir := ´C:\APPS\SALES\LOCAL´;
if not DirectoryExists(Dir) then
ForceDirectories(Dir);
Label1.Caption := Dir + ´ foi criado´;
end;

Eu não uso o 2000, mas parece que lá o diretório do Windows é diferente, então você não pode [i:1e6a8dce4c]softcode[/i:1e6a8dce4c] o caminho até lá. Também não se cria diretórios de sistema.

Prefira usar as APIs disponíveis no kernel e shell. Por exemplo, tem a rotina GetTempFile que cria um arquivo tempórário.