1

Estou desenvolvendo um aplicativo, e preciso verificar o espaço livre na unidade de rede mapeada, consigo pegar o conteúdo de um arquivo no diretorio da minha aplicação, então criei um script para executar o comando para verificar o espaço livre em batch:

unidade  := 'Z:';
caminho  := ExtractFileDir(Application.ExeName);
vCommand := 'fsutil volume diskfree '+unidade+' | find /i "livres disp" > '+caminho+'\unidade.txt';
WinExec(PChar('cmd /c "'+vCommand+'" '),SW_SHOWNORMAL);

Com o código acima, e trocando a unidade para c:, tenho o retorno esperado, mas quando troco para Z:, não funciona.

Ou se teria outra forma de fazer isso, estou utilizando .

1 Resposta 1

1

Tente assim

var
  FreeAvailable,TotalSpace,TotalFree : Int64;
begin
  GetDiskFreeSpaceEx('z:',FreeAvailable,TotalSpace,@TotalFree);
  ShowMessage('Espaço livre: '+FormatFloat('#,0',TotalFree));
end;

Fonte: http://www.planetadelphi.com.br/dica/1128/-obtendo-o-espaco-livre-em-disco.

4
  • Retorna 0, mas se coloco c:, retorna o valor. Já havia tentado vlw
    – David
    13/04/2017 às 20:32
  • @David estranho, testei aqui em uma rede mapeada e mostrou o tamanho. 13/04/2017 às 20:35
  • Testei em um novo projeto, e teve retorno, deve alguma coisa no meu projeto :/
    – David
    13/04/2017 às 20:40
  • 1
    é provável, tem que ir "garimpando" agora 13/04/2017 às 20:51

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .