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 i 7 For hver v_var3 I v_var2.Files Cells(i, 2) = v_var3 Cells(i, 11) = v_var3.DateLastModified i = i + 1 Neste v_var3 Set v_var1 = Ingenting End 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).Verdi Neste r End Sub Funksjon scanthisfolder() As String Dim v1 As FileDialog Dim v2 As String Set v1 = Application.FileDialog(msoFileDialogFolderPicker) With v1 .Title = "Mappe for å skanne etter filer" .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.
1