Criar pastas e arquivos

[dhonathas felix 0]

pessoal tenho um chat que dentro deste chat tem um cadastro de IP´S eu fiz ele com o banco de dados access, quando eu clico para abrir em outro pc de um erro dizendo que o baco de dados nao foi encontrado , ai eu esto querendo a ajuda de vcs para fazer um aplicativo que cria uma pasta no disco C: e o banco de dados .MDB

[Valdery 0]

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;

 

Tambem

 

Como verificar se um arquivo existe?

 

If not(fileexists('c:\windows\nuvens.bmp')) then Showmessage('Arquivo

inexistente');

 

 

Tambem

 

Apagar um subdiretório

Inclua a unit SHELLAPI na clausula uses do seu form.

 

 

 

procedure DeleteDir( hHandle : THandle; Const sPath : String );

var

OpStruc: TSHFileOpStruct;

FromBuffer, ToBuffer: Array[0..128] of Char;

begin

fillChar( OpStruc, Sizeof(OpStruc), 0 );

FillChar( FromBuffer, Sizeof(FromBuffer), 0 );

FillChar( ToBuffer, Sizeof(ToBuffer), 0 );

StrPCopy( FromBuffer, sPath);

With OpStruc Do

Begin

Wnd:= hHandle;

wFunc:=FO_DELETE;

pFrom:= @FromBuffer;

pTo:= @ToBuffer;

fFlags:= FOF_NOCONFIRMATION;

fAnyOperationsAborted:=False;

hNameMappings:=nil;

//lpszProgressTitle:=nil;

End;

ShFileOperation(OpStruc);

end;

 

Utilize a função assim:

 

 

procedure TForm1.Button1Click(Sender: TObject);

begin

DeleteDir( Self.Handle,'C:\TESTE');

end;

 

 

 

Agora para criar o banco use o link abaixo para ver a dica

 

http://www.forumweb.com.br/foruns/topic/312-criando-uma-base-de-dados-ms-access-pelo-delphi/