FileSystemObject删除文件，回收站为空

ning84 · 发表于 2023-12-30 04:28

人工删除目录下的文件，回收站有删除文件。

oFile.Delete True，垃圾回收站为空。

            If Fso.FileExists(PathName) Then
               'Debug.Print PathName
               Set oFile = Fso.GetFile(PathName)
               oFile.Delete True
            End If

Function ReadSldDelExcelRow(oFile As File, Slds As Slides, Rng As Range)
Dim Sld As Slide
Dim oRng As Range
Dim Sht As Worksheet
Set Sht = Rng.Parent
For Each Sld In Slds
If Rng = Sld.Name Then
Exit Function
End If
Next Sld
''
Set oRng = Rng(, 0).Resize(, 24)
oRng.Select
oFile.Delete True
oRng.Delete
End Function
''
Sub TraverseSlddelExcelRow()
Dim Fso As FileSystemObject, oFile As File
Set Fso = New FileSystemObject
Dim Sht As Worksheet
Dim Rng As Range, oRng As Range
Set Rng = Selection
Set Sht = Rng.Parent
Set Rng = Sht.Cells(25, 1).CurrentRegion
Debug.Print Rng.Address
Dim Pres As Presentation
Dim Sld As Slide, Slds As Slides
Dim PathName, ii, jj
PathName = ThisWorkbook.Path & "" & Sht.Name & ".Pptm"
Set Pres = OpenPpt(PathName)
Set Slds = Pres.Slides
'''
For ii = 1 To Rng.Rows.Count
Debug.Print Rng(ii, 1).Address, Rng(ii, 2)
PathName = ThisWorkbook.Path & "" & Sht.Name & "" & Rng(ii, 2)
''Debug.Print PathName
If Fso.FileExists(PathName) Then
'Debug.Print PathName
Set oFile = Fso.GetFile(PathName)
ReadSldDelExcelRow oFile, Slds, Rng(ii, 2)
End If
Next ii
End Sub

复制代码

fxl447098457 · 发表于 2024-1-2 10:56

可以使用API函数SHFileOperation将文件删除进入回收站。eh里应该能搜到。

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