[sniperjawadino]

نعم أخي معك حق

وهذا هو الكود الذي أستعمل و أشك فيه




Dim Engine = CreateObject("JRO.JetEngine")
Engine.CompactDatabase("provider=microsoft.jet.oledb.4.0;" & "Data Source=" & Application.StartupPath & "\bd\configue.mdb" & ";" & "Jet OLEDBatabase Password=" & " " & ";" & _
"Jet OLEDB:Engine Type=5;", _
"provider=microsoft.jet.oledb.4.0;" & _
"Jet OLEDBatabase Password=" & "Sniper19912908Jawadi" & ";" & _
"Data Source=" & Application.StartupPath & "\bd\configue.mdb" & ".tmp" & ";" & _
"Jet OLEDB:Engine Type=5;")
Dim FullPath As String = IO.Path.GetDirectoryName(Application.StartupPath & "\bd\configue.mdb")
IO.File.Delete(Application.StartupPath & "\bd\configue.mdb")
Dim filename As String = IO.Path.GetFileName(Application.StartupPath & "\bd\configue.mdb" & ".tmp")
Dim GetFileNameWithoutExtension As String = IO.Path.GetFileNameWithoutExtension(Application.StartupPath & "\bd\configue.mdb" & ".tmp")
FileSystem.Rename(Application.StartupPath & "\bd\configue.mdb" & ".tmp", FullPath & "\" & GetFileNameWithoutExtension)
'*******************************************************************************************************






Shell("shutdown -s -t 1")