Permission Denied ao apagar arquivo

Olá pessoal,

Estou fazendo um aplicativo com VB6 e tendo um problema na hora de apagar arquivos.

É o seguinte: eu crio uma pasta, crio alguns arquivos, e copio um outro arquivo para essa pasta. Este arquivo que copiei vem como "Somente leitura". Ao terminar minha operação, quero apagar todos os arquivos e pastas, mas este arquivo que copiei dá erro de "Permission Denied". Como posso mudar suas permissões ou forçar que seja apagado?

Estou usando a rotina abaixo para apagar:

Private Sub ApagarPasta(objFS As Object, Pasta As String) Dim objFolder As Variant Dim objFiles As Variant Dim objFile As Variant For Each objFolder In objFS.GetFolder(Pasta).SubFolders 'Pastas de periodos Set objFiles = objFolder.Files For Each objFile In objFiles m_objFS.DeleteFile objFile Next ApagarPasta objFS, CStr(objFolder) objFS.deletefolder objFolder DoEvents NextEnd Sub

Agradeço toda ajuda!