ALGUÉM ME AJUDA, POR FAVOR - ERRO !!!! Session.PrivateDir
30/04/2003
0
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
Posts
30/04/2003
Adilsond
30/04/2003
Aroldo Zanela
procedure Tform1.FormClose(Sender: TObject); begin Session.Close; if DirectoryExists(´C:\TempSI08´) then RemoveDir(´C:\TempSI08´); end;
30/04/2003
Falinden
Adilson, realmente, eu tenho alguns datamodule, mas tentei colocar o código no OnCreate do primeiro deles e, mesmo assim, não obtive sucesso.
Alguma sugestão ?
Valeu,
Fabi
30/04/2003
Falinden
procedure Tform1.FormClose(Sender: TObject); begin Session.Close; if DirectoryExists(´C:\TempSI08´) then RemoveDir(´C:\TempSI08´); end;
Aroldo, valeu, mas ainda não deu certo !
30/04/2003
Aroldo Zanela
Eu criei um formulário e declarei FileCtrl e dbTables na lista de uses;
Copiei o seu código do OnCreate e executei (F9) várias vezes e nenhum erro/exceção foi levantada.
Clique aqui para fazer login e interagir na Comunidade :)