Dekompilér og komprimér database

Du kan lave et script som dette:


Option Explicit

Dim oCD  : Set oCD = CreateObject("MSComDlg.CommonDialog")
Dim sFilespec : sFilespec = String(260, Chr(0))
'
' some comm dlg constants...
Const OFN_HIDEREADONLY = &H4
Const OFN_CREATEPROMPT = &H2000
Const OFN_EXPLORER = &H80000
Const OFN_LONGNAMES = &H200000
Const cdlOFNFileMustExist = &H1000

 
With oCD
' setup parameters...
  .Flags = cdlOFNFileMustExist or OFN_EXPLORER Or OFN_LONGNAMES Or OFN_CREATEPROMPT Or OFN_HIDEREADONLY
  .MaxFileSize = 260  ' allocate space for file name
  .InitDir = "c:\"  ' set opening directory
  .DefaultExt = "txt"  ' default extension
  .Filter = "Access Database Files (*.mdb) | *.mdb"  ' show file types
  .FilterIndex = 1

  .Showopen  ' show the dialog

  sFileSpec = .FileName  ' retrieve the result...
End With


if sFileSpec = "" then
  Msgbox("Du valgte ikke en fil..")
Else
  Dim WshShell
  Set WshShell = CreateObject("WScript.Shell")
  WshShell.run "MSACCESS " & sFilespec & "/decompile"
  WshShell.run "MSACCESS " & sFilespec & "/compact"

  '"C:\Programmer\Microsoft Office 2000\Office10\MSACCESS.EXE" "C:\databaser\database.mdb" /decompile
  '"C:\Programmer\Microsoft Office 2000\Office10\MSACCESS.EXE" "C:\databaser\database.mdb" /compact
End If


' ----------------------------------------------
WScript.Quit

Takker mange gange, eagleeye