09. januar 2007 - 13:47Der er
4 kommentarer og 1 løsning
slette gamle filer med vba-kode
Hej eksperter !
Jeg laver nogle daglige backups med vba-kode ved hjælp af: ActiveWorkbook.SaveCopyAs BackupMappe & BackupFilnavn
Nu vil jeg gerne på tilsvarende vis slette gamle backupfiler der er ældre end 30 dage. Jeg har lavet en lille sub i vba Sub EraseBackUp(Mappe As String)
Dim i As Integer Dim Offset As Integer
For i = 0 To 10 Offset = 30 + i SletBackupFilnavn = "AutoKopi_" & Format(Now - Offset, "YYYYMMDD") & ".xls" ' her mangler jeg så en funktion der tjekker om filnavn findes, og hvis ja så slettes filen ' MsgBox "Filen " & Mappe & SletBackupFilnavn & " slettet" Next End Sub
Den moderne arbejdsplads er i stigende grad afhængig af mødelokaler til at fremme samarbejde, men dette skift medfører også stigende sikkerhedsudfordringer.
For i = 0 To 10 Offset = 30 + i SletBackupFilnavn = "AutoKopi_" & Format(Now - Offset, "YYYYMMDD") & ".xls" If Dir("C:\data\" & SletBackupFilnavn) <> "" Then Kill ("C:\data\" & SletBackupFilnavn) MsgBox "Filen " & Mappe & SletBackupFilnavn & " slettet" End If Next End Sub
Dim i As Integer Dim Offset As Integer Mappe = "C:\data\" For i = 0 To 10 Offset = 30 + i SletBackupFilnavn = "AutoKopi_" & Format(Now - Offset, "YYYYMMDD") & ".xls" If Dir(Mappe & SletBackupFilnavn) <> "" Then Kill (Mappe & SletBackupFilnavn) MsgBox "Filen " & Mappe & SletBackupFilnavn & " slettet" End If Next End Sub
Sub EraseBackUp(Mappe As String) Dim i As Integer Dim Offset As Integer For i = 0 To 10 Offset = 30 + i SletBackupFilnavn = "AutoKopi_" & Format(Now - Offset, "YYYYMMDD") & ".xls" If Dir(Mappe & SletBackupFilnavn) <> "" Then Kill (Mappe & SletBackupFilnavn) MsgBox "Filen " & Mappe & SletBackupFilnavn & " slettet" End If Next End Sub
jo du kan, jeg havde ikke set toppen af subben
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.
