bat 判断文件夹大小，如果文件夹超出2GB,则删除该文件夹（注：文件夹下没有子文件夹)

核桃哥

bat 判断文件夹大小，如果文件夹超出2GB,则删除该文件夹（注：文件夹下没有子文件夹)

谦虚求学

bat是不是批处理文件意思， 你是不是想找一个用Delphi编写的判断文件大小的代码，如果大于2GB就把那个文件夹删除， 我是个新手，但是看了小甲鱼老师的Delphi第34到35讲课 ，我想应该能帮助你，要判断文件的大小一般判断文件长度是不是吗？ 希望能帮助你   呵呵

aminghanhua

uses FileCtrl, IOUtils, IdGlobalProtocols;

function GetFolderSize(vFolder: String): Int64;
var
  sr: TSearchRec;
begin
  Result := 0;
  if FindFirst(vFolder + '*.*', faAnyFile, sr) = 0 then
    repeat
      if (sr.Name <> '.') and (sr.Name <> '..') then
      begin
        Result := Result + sr.Size;
        if (sr.Attr and faDirectory) <> 0 then
          Result := Result + GetFolderSize(vFolder + sr.Name + '\');
      end;
    until FindNext(sr) <> 0;
  FindClose(sr);
end;

procedure TForm2.Button1Click(Sender: TObject);
var
  sPath: string;
begin
  if SelectDirectory('选择文件夹', '', sPath) then
  begin
    if GetFolderSize(sPath + '\') > 2147483648 then
    begin
      if MessageDlg('文件夹大小' + inttostr(GetFolderSize(sPath + '\')
        div 1024 div 1024 div 1024) + 'GB,是否删除?', mtConfirmation, [mbYes, mbNo], 0) = mrYes
      then
        TDirectory.Delete(sPath,True);
    end;
  end;
end;