Delete a file

[hafizfarooq]

Hello,
i want to delete my database using Kill App.Path & "\pcdb.mdb"
but the error message cmoes "ACCESS DENIED"

the full code is :

Private Sub CmdRestore_Click()
If Db.State = 1 Then
Db.Close
End If

SetAttr App.Path & "\Pcdb.mdb", vbNormal
Kill App.Path & "\pcdb.mdb"

If Db.State = 0 Then
On Error GoTo PerErr
FileCopy Direc & "\" & FileName, App.Path & "\pcdb.mdb" '& Format(Date, "dd/mm/yyyy") & ".mdb"
MsgBox "Restore completed ", vbInformation, "Restored"
SetAttr App.Path & "\Pcdb.mdb", vbHidden

PerErr: 'Access Permission (If Database is in use)
If Err.Number = 75 Then
MsgBox "Database is in use. Unable to create backup", vbCritical, "Database is in use"
Exit Sub
End If
End If

End Sub

please help me

[leinad31]

What other objects in your app is referencing/using the database?

There may be also other applications (external) using the file such as an open MSAccess.

[danasegarane]

Try this

Private Sub CmdRestore_Click()
On Error GoTo PerErr
'If Db.State = 1 Then
'Db.Close
'set db=nothing ' ---> new additon
'End If
set db=nothing ' ---> new additon
SetAttr App.Path & "\Pcdb.mdb", vbNormal
Kill App.Path & "\pcdb.mdb"
 
'If Db.State = 0 Then
 
FileCopy Direc & "\" & FileName, App.Path & "\pcdb.mdb" '& Format(Date, "dd/mm/yyyy") & ".mdb"
MsgBox "Restore completed ", vbInformation, "Restored"
SetAttr App.Path & "\Pcdb.mdb", vbHidden
 
Exit sub '--> New
 
PerErr: 'Access Permission (If Database is in use)
If Err.Number = 75 Then
  MsgBox "Database is in use. Unable to create backup", vbCritical, "Database      
    is in use"
   Exit Sub
   End If
'End If
 
End Sub

[gavio]

Or you simpy don't have sufficient rights...

[hafizfarooq]

On Kill App.Path & "\pcdb.mdb", gives the error Permission Denied. Y ?

[leinad31]

The file itself may have its permissions set to prevent delete if your using an OS with a filesystem with built in security.

What's your operating system?