saber o tamanho de determinadas PASTAS

Delphi

25/11/2007

apesar de 90¬ do que posto não tenho resposta alguma. tenho fé que um programador vai saber responder essa pergunta...


preciso saber o tamanho de determinadas PASTAS não arquivos mas os diretórios e saber o espaço disponivel no disco para que eu veja se é possivel copiar ela sem dar espaço insuficiente


obrigado pela atenção!


Crcam

Crcam

Curtidas 0

Respostas

Micheus

Micheus

25/11/2007

apesar de 90¬ do que posto não tenho resposta alguma.
que exagero... :shock:

preciso saber o tamanho de determinadas PASTAS não arquivos mas os diretórios e saber o espaço disponivel no disco para que eu veja se é possivel copiar ela sem dar espaço insuficiente

tenho fé que um programador vai saber responder essa pergunta...
Vale usar o Google? Veja resultados para [url=http://www.google.com.br/search?hl=pt-BR&client=firefox-a&rls=org.mozilla:pt-BR:official&hs=lsU&sa=X&oi=spell&resnum=0&ct=result&cd=1&q=directory+size+delphi&spell=1]Directory Size Delphi[/url] (veja a 1º ou 3º link)


GOSTEI 0
Gigatel

Gigatel

25/11/2007

[quote:a83a2ebaf9=´CRCAM´]apesar de 90¬ do que posto não tenho resposta alguma.
que exagero... :shock:

preciso saber o tamanho de determinadas PASTAS não arquivos mas os diretórios e saber o espaço disponivel no disco para que eu veja se é possivel copiar ela sem dar espaço insuficiente

tenho fé que um programador vai saber responder essa pergunta...
Vale usar o Google? Veja resultados para [url=http://www.google.com.br/search?hl=pt-BR&client=firefox-a&rls=org.mozilla:pt-BR:official&hs=lsU&sa=X&oi=spell&resnum=0&ct=result&cd=1&q=directory+size+delphi&spell=1]Directory Size Delphi[/url] (veja a 1º ou 3º link)[/quote:a83a2ebaf9]

não tenho nada contra o forum, más na maioria das vezes é melhor buscar no google mesmo, geralmente é mais rápido e mais explicado..

quando o fórum era mais novo dependia das vizistas (querendo ou não o site é grande hoje graças ao fórum), pelo menos uma resposta do tipo ´pô cara essa é complicado más vamos tentar´ mesmo que não obtíamos sucesso nakilo que era proposto ainda sim ficava satisfeito, pois tentamos. hoje o site grande tem seus associados, vendem revistas e tals acho que o lucro neste caso tá falando mais alto (e de uma certa forma aproveitar o sucesso pois ninguém trabalha de graça, e assim que os sites sobrevivem), e os que sabem muito geralmente nem tempo para ajudar tem pois geralmente são grandes programadores de empresas e por isso não pode ficar perdendo tempo com perguntas..más é isso é apenas uma opinião e deixar claro que já fui muito ajudado aki no fórum e tbm muita pergunta sem resposta. flw t+

e quanto sua pergunta
procedure TForm1.Find(Str: string);
var
  MySearch: TSearchRec;
  FindResult: Integer;
begin
  FindResult:=FindFirst(Str+´\*.*´, 
                        faArchive+faHidden+
                        faAnyFile+faVolumeID+
                        faSysFile+faReadOnly+faDirectory,
                        MySearch);
  while FindResult=0 do
  begin
    if (MySearch.Attr=faDirectory) and 
       (MySearch.Name<>´.´) and 
       (MySearch.Name<>´..´) then
      Find(Str+´\´+MySearch.Name)
    else
      TotalSize:=TotalSize+MySearch.Size;
    FindResult:=FindNext(MySearch);
  end;
  FindClose(MySearch);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TotalSize:=0;
  if Length(Edit1.Text)>0 then
  begin
    Find(Edit1.Text);
    Label2.Caption:=´Total size = ´+IntToStr(TotalSize);
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  St: string;
begin
  St:=´c:\´;
  if SelectDirectory(St, [], 0) then
    Edit1.Text:=St;
end;



GOSTEI 0
Crcam

Crcam

25/11/2007

valeu pelo codigo...


GOSTEI 0
POSTAR