FILECOPY RETORNANDO ERRO 53
Estou tentando copiar um arquivo de uma pasta [Ô]H:\Adm[Ô] para a pasta [Ô]windows\system32[Ô] do windows e esta retornando erro 53 de arquivo não encontrado.
Dim strWindowsSysdir As String * 20
GetSystemDirectory strWindowsSysdir, 20
L2.Caption = strWindowsSysdir
If Dir(Environ([Ô]WINDIR[Ô]) & [Ô]\SYSTEM32 exto.txt[Ô], vbArchive) = [Ô][Ô] Then
FileCopy App.Path & [Ô]\[Ô] & [Ô]texto.txt[Ô], L2.Caption & [Ô] exto.txt[Ô]
End If
Dim strWindowsSysdir As String * 20
GetSystemDirectory strWindowsSysdir, 20
L2.Caption = strWindowsSysdir
If Dir(Environ([Ô]WINDIR[Ô]) & [Ô]\SYSTEM32 exto.txt[Ô], vbArchive) = [Ô][Ô] Then
FileCopy App.Path & [Ô]\[Ô] & [Ô]texto.txt[Ô], L2.Caption & [Ô] exto.txt[Ô]
End If
Esse arquivo esta na pasta do seu sistema
ja verificou
??
ja verificou
??
Consegui arrumar o erro de arquivo não encontardo.
Mas quando executo ele em outro micro ele esta dando erro path file error 75.
Estou executando ele de um pendrive e no meu micro ta rodadando bem ele reconhece como unidade G:
agora no notebook onde ele esta dando erro ele reconhece como E:
Então ele deveria fazer uma busca no C:\windows\system32 exte.ocx caso não encontre
copiar o teste.ocx do diretório G:\adm ou E:\adm do pendrive para o c:\windows\system32
If Dir(Environ([Ô]WINDIR[Ô]) & [Ô]\SYSTEM32 este.ocx[Ô], vbArchive) = [Ô][Ô] Then
FileCopy App.Path & [Ô] este.ocx[Ô], L4 & [Ô] este.ocx[Ô]
End If
Mas quando executo ele em outro micro ele esta dando erro path file error 75.
Estou executando ele de um pendrive e no meu micro ta rodadando bem ele reconhece como unidade G:
agora no notebook onde ele esta dando erro ele reconhece como E:
Então ele deveria fazer uma busca no C:\windows\system32 exte.ocx caso não encontre
copiar o teste.ocx do diretório G:\adm ou E:\adm do pendrive para o c:\windows\system32
If Dir(Environ([Ô]WINDIR[Ô]) & [Ô]\SYSTEM32 este.ocx[Ô], vbArchive) = [Ô][Ô] Then
FileCopy App.Path & [Ô] este.ocx[Ô], L4 & [Ô] este.ocx[Ô]
End If
Cara o Erro 75 diz que o diretório já existe vc esta tentando criar um diretório tambem ou seja uma pasta
http://www.macoratti.net/file_vb.htm
http://www.macoratti.net/file_vb.htm
Vou te explicar:
Tenho um pequeno sistema em um pendrive onde queria que ele fizesse o seguinte:
Plugo ele em um micro qualquer nele tem uma pasta chamada adm onde tem um ocx certo.
Ao executar um exe que é um form ele faz uma busca no diretório C:\windows\system32 e procura este ocx , caso não encontre , ele faz uma cópia do diretório que o pendrive assumir tipo G:\adm\ocx para o diretorio C:\windows\system32.
No meu micro ele está rodando beleza , só que ao executar em um notebook com o windows seven ele está dando erro 75 de path file acess error
Este é o código que estou executando
Private Sub inicializar()
Dim strWindowsSysdir As String * 20
GetSystemDirectory strWindowsSysdir, 20
L4 = strWindowsSysdir
If Dir(Environ([Ô]WINDIR[Ô]) & [Ô]\SYSTEM32\actskin4.ocx[Ô], vbArchive) = [Ô][Ô] Then
FileCopy App.Path & [Ô]\actskin4.ocx[Ô], L4.Caption & [Ô]\actskin4.ocx[Ô]
End If
End Sub
Tenho um pequeno sistema em um pendrive onde queria que ele fizesse o seguinte:
Plugo ele em um micro qualquer nele tem uma pasta chamada adm onde tem um ocx certo.
Ao executar um exe que é um form ele faz uma busca no diretório C:\windows\system32 e procura este ocx , caso não encontre , ele faz uma cópia do diretório que o pendrive assumir tipo G:\adm\ocx para o diretorio C:\windows\system32.
No meu micro ele está rodando beleza , só que ao executar em um notebook com o windows seven ele está dando erro 75 de path file acess error
Este é o código que estou executando
Private Sub inicializar()
Dim strWindowsSysdir As String * 20
GetSystemDirectory strWindowsSysdir, 20
L4 = strWindowsSysdir
If Dir(Environ([Ô]WINDIR[Ô]) & [Ô]\SYSTEM32\actskin4.ocx[Ô], vbArchive) = [Ô][Ô] Then
FileCopy App.Path & [Ô]\actskin4.ocx[Ô], L4.Caption & [Ô]\actskin4.ocx[Ô]
End If
End Sub
Cara fiz um teste aqui em casa e funcionou certinho sem erro nenhum
você ja debugou o sistema e verificou se os caminhos estão retornando o que você esta querendo
Ja desabilitou o UAC do windows para tentar novamente
verificou se a pasta C:\Windows\System32 esta liberada para arquivamento
Qualquer duvida posta ai
você ja debugou o sistema e verificou se os caminhos estão retornando o que você esta querendo
Ja desabilitou o UAC do windows para tentar novamente
verificou se a pasta C:\Windows\System32 esta liberada para arquivamento
Qualquer duvida posta ai
Já desliguei o UAC já fiz de tudo e nada.
E outra porque está dando erro de Run time error 75 path/file access error
E outra porque está dando erro de Run time error 75 path/file access error
Cara o Erro 75 é quando o a pasta ja existe você não esta tentando criar um diretório em algum lugar?
http://www.macoratti.net/file_vb.htm#cap5
http://www.macoratti.net/file_vb.htm#cap5
Tópico encerrado , respostas não são mais permitidas