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

核桃哥

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

谦虚求学

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

aminghanhua

1. uses FileCtrl, IOUtils, IdGlobalProtocols;
   
2. 
   
3. function GetFolderSize(vFolder: String): Int64;
   
4. var
   
5.   sr: TSearchRec;
   
6. begin
   
7.   Result := 0;
   
8.   if FindFirst(vFolder + '*.*', faAnyFile, sr) = 0 then
   
9.     repeat
   
10.       if (sr.Name <> '.') and (sr.Name <> '..') then
    
11.       begin
    
12.         Result := Result + sr.Size;
    
13.         if (sr.Attr and faDirectory) <> 0 then
    
14.           Result := Result + GetFolderSize(vFolder + sr.Name + '\');
    
15.       end;
    
16.     until FindNext(sr) <> 0;
    
17.   FindClose(sr);
    
18. end;
    
19. 
    
20. procedure TForm2.Button1Click(Sender: TObject);
    
21. var
    
22.   sPath: string;
    
23. begin
    
24.   if SelectDirectory('选择文件夹', '', sPath) then
    
25.   begin
    
26.     if GetFolderSize(sPath + '\') > 2147483648 then
    
27.     begin
    
28.       if MessageDlg('文件夹大小' + inttostr(GetFolderSize(sPath + '\')
    
29.         div 1024 div 1024 div 1024) + 'GB,是否删除?', mtConfirmation, [mbYes, mbNo], 0) = mrYes
    
30.       then
    
31.         TDirectory.Delete(sPath,True);
    
32.     end;
    
33.   end;
    
34. end;

复制代码