ERRO !!!! Session.PrivateDir
30/04/2003
0
Olá pessoal,
Estou criando um diretório temporário para direcionar a criação dos arquivos temporários Del.MB e Del.DB.
Porém, ao executar o programa está ocorrendo o seguinte erro:
´Directory is busy´ na linha marcada com **** abaixo.
procedure Tform1.FormCreate(Sender: TObject);
begin
if not DirectoryExists(´C:\TempSI08´) then
CreateDir(´C:\TempSI08´);
Session.PrivateDir := ´C:\TempSI08´; ****
end;
procedure Tform1.FormClose(Sender: TObject);
begin
if DirectoryExists(´C:\TempSI08´) then
RemoveDir(´C:\TempSI08´);
end;
Se alguém souber como resolver isto, eu agradeço muito !!!!
Fabiana
Estou criando um diretório temporário para direcionar a criação dos arquivos temporários Del.MB e Del.DB.
Porém, ao executar o programa está ocorrendo o seguinte erro:
´Directory is busy´ na linha marcada com **** abaixo.
procedure Tform1.FormCreate(Sender: TObject);
begin
if not DirectoryExists(´C:\TempSI08´) then
CreateDir(´C:\TempSI08´);
Session.PrivateDir := ´C:\TempSI08´; ****
end;
procedure Tform1.FormClose(Sender: TObject);
begin
if DirectoryExists(´C:\TempSI08´) then
RemoveDir(´C:\TempSI08´);
end;
Se alguém souber como resolver isto, eu agradeço muito !!!!
Fabiana
Falinden
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)