28. november 2011 - 15:48Der er
3 kommentarer og 1 løsning
Komprimer og reparer alle mdb i mappe og undermapper
Hej Eksperter
Jeg vil gerne komprimere og reparere flere hundrede mdb filer. Jeg overvejer om jeg selv skal lave noget script eller om der findes en smart løsning i forvejen? Jeg påtænker så at lave et planlagt job til start første lørdag i måneden kl 6:00 så mine databaser ikke kommer til at fylde for meget...
Sub KomprimerEnMasseDatabaser() Const Mappe = "C:\Temp\Test\" Const TempBase = "TempBase.mdb" Dim d As String
d = Dir(Mappe & "*.mdb") Do Debug.Print d If KomprimerEnDatabase(Mappe & d, Mappe & TempBase) Then Kill (Mappe & d) Name (Mappe & TempBase) As (Mappe & d) Else MsgBox "Komprimeringen af " & d & " mislykkedes!!!", vbCritical, "Oops" End If
d = Dir Loop Until d = ""
End Sub
Function KomprimerEnDatabase(SourceBase As String, DestinationBase As String) As Boolean On Error GoTo ErrorTrap
fdata: Jeg prøvede lige en test nu... får fejl vedr d = Dir
Kan i øvrigt de at funktionen kun tager de mdb filer der ligger direkte i mappen og ikke undermapper, men jeg finder lige selv ud af at lave den rekursiv
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.