Cópia não autorizada para esta máquina

Boa tarde amigos,

Implementei o código abaixo no meu BD e funciona normal no Windows XP (Access 2003 ou 2007), porém quando instalo em maquinas com Windows 7, mesmo o arquivo estando no local, recebo a mensagem de CÓPIA NÃO AUTORIZADA PARA ESTA MÁQUINA.

Private Sub Form_Open(Cancel As Integer)
If Dir("c:\windows\system32\msgds.rtf") = "" Then
MsgBox "CÓPIA NÃO AUTORIZADA PARA ESTA MÁQUINA !!!", vbExclamation, "::::  AVISO  ::::"
DoCmd.Quit
End If
End Sub

Mudei para o código abaixo, porém estando ou não o arquivo no local, o sistema é aberto.

Private Sub Form_Open(Cancel As Integer)
If Len(Dir("c:\windows\system32\msgds.rtf")) = "" Then
MsgBox "CÓPIA NÃO AUTORIZADA PARA ESTA MÁQUINA !!!", vbExclamation, "::::  AVISO  ::::"
DoCmd.Quit
End If
End Sub

Onde errei? Ou é problema de configuração de segurança no Win7?

Grato é um grande abraço a todos

Menezes

Uma pergunta besta, mas você já viu se esse arquivo existe nesse caminho?
c:\windows\system32\msgds.rtf

Caso não existe sempre vai entrar no IF mesmo.

Boa tarde Marco

O arquivo está no local especificado.

Menezes

Bem, se o arquivo está no local especificado, não tem porque o código não retornar o nome do arquivo com o comando Dir. Pode ser também que tenha um arquivo com o mesmo nome porém com extensão diferente.
Outra coisa, quando você faz a comparação com o comando Len, tem que ser "Len(Variável) = 0" ou "Len(Variável) > 0" pois ele retorna um valor numérico com o tamanho do texto.