CreateDir
Troquei a versão do Windows de 98 para 2000, e este comando não funciona mais.
Alguém sabe o PorQuê?
if not SetCurrentDir(´C:\WINDOWS\TEMP´) then begin
CreateDir(´C:\WINDOWS\TEMP´);
end;
Alguém sabe o PorQuê?
if not SetCurrentDir(´C:\WINDOWS\TEMP´) then begin
CreateDir(´C:\WINDOWS\TEMP´);
end;
Pedro Dias
Curtidas 0
Respostas
Nigro
12/01/2004
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;
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;
GOSTEI 0
Beppe
12/01/2004
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.
Prefira usar as APIs disponíveis no kernel e shell. Por exemplo, tem a rotina GetTempFile que cria um arquivo tempórário.
GOSTEI 0