Fórum Calcular espaço livre em unidade de rede. #500104

04/11/2014

0

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

Responder

Post mais votado

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

Renato Rubinho

Renato Rubinho
Responder

Gostei + 1

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar