Det kan være flere uønskede og ubrukte filer som spiser opp diskplassen din. Å rense disse filene kan være en stor oppgave. Med excel kan du enkelt finne slike ubrukte filer og slette dem umiddelbart for å frigjøre diskplass.
Last ned nå
Hvis du ønsker å starFor å bruke programvaren så snart som mulig, kan du:
Ellers, hvis du vil gjøre DIY, kan du lese innholdet nedenfor.
La oss forberede GUI
Fjern uønskede ark fra arbeidsboken og gi nytt navn til ark 1 som GUI og lagre arbeidsboken som makroaktivert arbeidsbok. Som vist i det vedlagte bildet, lag to knapper på arket og gi nytt navn til knapp 1 til "Bla gjennom" og endre navn på knapp 2 til "Slett filer". Du kan enten slå sammen flere kolonner for å lage en større kolonne for å imøtekomme filbanen, eller du kan øke bredden på en enkelt kolonne.
La oss gjøre det funksjonelt
Kopier skriptet til en ny modul i den makroaktiverte arbeidsboken. Sørg for at modulnavnet skal være Module1. Ellers vil skriptet gi en feil. Fest skriptet "Scan_This_Folder" til knappen "Browse" og prosedyren "Delete_Files" skal festes til knappen "Slett filer".
Sub filefordelete()
Dim v_var1 As Scripting.FileSystemObject
Dim v_var2 As Scripting.Folder
Dim v_var3 As Scripting.File
scanthis = Range("B3").Text
Set v_var1 = New Scripting.FileSystemObject
Set v_var2 = v_var1.GetFolder(scanthis)
i = 7
For Each v_var3 In v_var2.Files
Cells(i, 2) = v_var3
Cells(i, 11) = v_var3.DateLastModified
i = i + 1
Next v_var3
Set v_var1 = Nothing
End Sub
Sub Delete_Files()
Dim lr As Long
Dim r As Long
lr = Range("B" & Rows.Count).End(xlUp).Row
For r = 7 To lr
Kill Range("B" & r).Value
Next r
End Sub
Function scanthisfolder() As String
Dim v1 As FileDialog
Dim v2 As String
Set v1 = Application.FileDialog(msoFileDialogFolderPicker)
With v1
.Title = "Folder to scan for files"
.AllowMultiSelect = False
If .Show <> -1 Then GoTo NextCode
v2 = .SelectedItems(1)
End With
NextCode:
scanthisfolder = v2
Set v1 = Nothing
End Function
Sub Scan_This_Folder()
Range("B3").Value = scanthisfolder()
Call Module1.filefordelete
End Sub
Hvordan virker det?
Når brukeren velger en mappe, leser skriptet alle filene i den valgte mappen og viser filnavnet sammen med den siste endringsdatoen. Bekreft listen, fjern rader hvis du vil beholde filen, og klikk deretter på "Slett filer"-knappen. Skriptet vil nå identifisere den sist brukte raden og slette filer som leser filbanen fra arket.
Juster det
Per nå skanner skriptet etter filer i den valgte mappen. Hvis det er undermapper i den valgte mappen, kan ikke skriptet skanne den. Du kan justere skriptet for å skanne alle undermapper i rotmappen og også opprette en ny kolonne for å sammenligne "Sist endret dato" for filer med gjeldende dato og vise dagene. Du kan deretter justere skriptet for å slette filer automatisk basert på antall dager. Selv om skriptet bruker Microsofts filskriptteknikk, er filegenskaper til skadet xlsx filer kan ikke hentes.
Forfatterintroduksjon:
Nick Vipond er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert gjenopprette ordet og Outlook-programvareprodukter. For mer informasjon besøk www.datanumen. Med.