Calcular espaço livre em unidade de rede.

Delphi

04/11/2014

Fala galera, beleza?

Utilizo o fórum a bastante tempo, porém essa é minha primeira vez solicitando à ajuda de vocês rsrs
Gostaria de calcular o espaço livre em uma unidade de rede (mapeada de um servidor, tipo I:,J:, etc).
Achei muita coisa mencionando como calcular uma unidade de disco, mas sobre unidade de rede não
encontrei muita coisa.
Alguém já fez alguma coisa do tipo?

Desde já, agradeço à colaboração.

[]s.
Marcelo Luiz

Marcelo Luiz

Curtidas 0

Melhor post

Renato Rubinho

Renato Rubinho

04/11/2014

Buenas,

Uso o DiskFree e DiskSize e funciona tanto para disco quanto para unidades de rede.

procedure TForm1.Button1Click(Sender: TObject);
var
  wDrive  : word;
  sUnidade: string;
begin
  // Indique na sUnidade a unidade que deseja verificar
  sUnidade := 'X';
  wDrive   := Ord(sUnidade[1]) - Ord('A') + 1;

  ShowMessage('Livre ' + FormatFloat('#,###,##0.000',DiskFree(wDrive) / 1024 / 1024) + #13 +
              'Total ' + FormatFloat('#,###,##0.000',DiskSize(wDrive) / 1024 / 1024));
end;


Abraççç,
Renato
GOSTEI 1

Mais Respostas

Marcelo Luiz

Marcelo Luiz

04/11/2014

Renato, muito obrigado pela ajuda!!
Era exatamente o que eu precisava.

[]s.

RESOLVIDO!
GOSTEI 0
POSTAR