什么原因生成nzp7703.tmp的垃圾文件（有47.7G）

ning84 · 发表于 2024-7-8 21:26

Function FindFiles(sFolder As Folder)
Dim tmpFile As File
''
Dim Str, oStr, oStr1, Arr
Dim oFile As File
Dim oFld As Folder
For Each oFile In sFolder.Files '遍历目录下所有文件
With oFile
Debug.Print .DateLastModified, .Name, .Path, Round(.Size / 1024 ^ 2, 1) & "M", Round(.Size / 1024 ^ 3, 1) & "G",
Debug.Print .Attributes, .Drive, .OpenAsTextStream.Line
End With
Next
''
For Each oFld In sFolder.SubFolders
FindFiles oFld
Next
End Function
Sub ll()
Dim Fso As FileSystemObject
Set Fso = New FileSystemObject
FindFiles Fso.GetFolder("E:\JPG")
End Sub

复制代码

结果

2023/8/15 10:03:47       DontDeleteMain.xlsm       E:\JPG\DontDeleteMain.xlsm  1M          0G          32          E:          1
2023/8/6 19:26:27          JPGManage (恢复的).xlsm    E:\JPG\JPGManage (恢复的).xlsm          0M          0G          32          E:          1
2023/8/6 1:50:55          JPGManage - 副本.xlsm    E:\JPG\JPGManage - 副本.xlsm             0M          0G          32          E:          1
2023/8/6 22:34:15          JPGManage.xlsm             E:\JPG\JPGManage.xlsm    .3M          0G          32          E:          1
2023/8/20 5:25:11          Main.xlsm    E:\JPG\Main.xlsm          2.5M       0G          32          E:          1
2023/8/20 19:34:59       Main1.xlsm E:\JPG\Main1.xlsm          1.7M       0G          32          E:          1
2023/8/23 0:01:31          Main2.xlsm E:\JPG\Main2.xlsm          3M          0G          32          E:          1
2023/8/23 6:53:03          Main3.xlsm E:\JPG\Main3.xlsm          3.3M       0G          32          E:          1
2023/8/13 22:52:10       Main4.xlsm E:\JPG\Main4.xlsm          1.1M       0G          32          E:          1
2023/8/19 18:15:52       Main5.xlsm E:\JPG\Main5.xlsm          1.8M       0G          32          E:          1
2023/8/18 16:10:24       Main6.xlsm E:\JPG\Main6.xlsm          .4M          0G          32          E:          1
2023/8/18 13:21:58       Main7.xlsm E:\JPG\Main7.xlsm          1.2M       0G          32          E:          1
2024/7/8 20:39:39          nzp7703.tmp E:\JPG\nzp7703.tmp       48804M       47.7G

到哪里能找到Attributes =32 的出处。

ning84 · 发表于 2024-7-8 21:42

oFile.Delete False

结果。

Function FindFiles(sFolder As Folder)
Dim tmpFile As File
''
Dim Str, oStr, oStr1, Arr
Dim oFile As File
Dim oFld As Folder
For Each oFile In sFolder.Files                   '遍历目录下所有文件
      With oFile
         Debug.Print .DateLastModified, .Name, .Path, Round(.Size / 1024 ^ 2, 1) & "M", Round(.Size / 1024 ^ 3, 1) & "G",
         Debug.Print .Attributes, .Drive, .OpenAsTextStream.Line
      End With
Next
''
For Each oFld In sFolder.SubFolders
      FindFiles oFld
Next
End Function

Sub ll()
Dim Str
Dim Fso As FileSystemObject
   Set Fso = New FileSystemObject
   FindFiles Fso.GetFolder("E:\JPG")
Dim oFile As File
   Str = "E:\JPG\nzp7703.tmp"

   If Fso.FileExists(Str) Then
         Set oFile = Fso.GetFile(Str)
         oFile.Delete False
   End If


End Sub

ning84 · 发表于 2024-7-9 05:01

Function FindFiles(sFolder As Folder)
Dim tmpFile As File
''
Dim Str, oStr, oStr1, Arr
Dim oFile As File
Dim oFld As Folder
For Each oFile In sFolder.Files '遍历目录下所有文件
With oFile
If InStr(UCase(.Path), "TMP") > 0 And InStr(UCase(.Path), "$") > 0 Then
Debug.Print .DateLastModified, .Name, .Path, Round(.Size / 1024 ^ 2, 1) & "M", Round(.Size / 1024 ^ 3, 1) & "G",
Debug.Print .Attributes, .Drive, .OpenAsTextStream.Line
End If
End With
Next
''
For Each oFld In sFolder.SubFolders
With oFld
'If InStr(UCase(.Path), "TMP") = 0 Or InStr(UCase(.Path), "System Volume Information") = 0 Then
If InStr(UCase(.Path), UCase("System Volume Information")) = 0 And InStr(UCase(.Name), UCase("help")) = 0 Then
Debug.Print oFld.Name, oFld.Path
End If
End With
FindFiles oFld
Next
End Function
Sub ll()
Dim Fso As FileSystemObject
Set Fso = New FileSystemObject
FindFiles Fso.GetFolder("f:")
End Sub

复制代码

q490525427 · 发表于 2024-7-10 10:45

这个文件能删除么

		自动登录	找回密码
密码			免费注册