Pergunta : O acesso VBA Filecopy do MS retorna 70 - permissão negada

Eu estou escrevendo a uma função da aplicação de acesso VBA essa cópias limas de um diretório a um outro que eu selecione using a caixa do filedialog do escritório na modalidade do msoFileDialogFolderPicker.  Eu estou tentando usar o comando de FileCopy do filesystemobject, mas começ o erro “70 - permissão negada”, mesmo que eu tenham permissões do pleno controlo na lima e o dobrador a que eu estou copiando.  Meu código é unido.  o
Here é os índices de minha janela imediata quando eu executo a função:

? installemtscomprpt
File testprog.txt não são copiados a F:\PR09 - 023 - certificado \ NewFolder da instalação de EMTS Adobe 9.0 \ EMTSCompRpt.  O erro é 70 - a permissão denied.

Why é mim que começ esta mensagem de erro? class= " lineNumbers " >

1 do >

:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
o >Option codeBody do " prettyprint " " do class= do id= " codeSnippet748970 do >
 " desobstruído " de 

class= do 

Resposta : O acesso VBA Filecopy do MS retorna 70 - permissão negada

Suposição que!  Eu figurei para fora o problema:

Eu tinha codificado a função fcopy como segue:

Função pública fCopyFile (strFileName como a corda) como a corda
lstrSource não ofuscante como a corda
   
    No erro ErrfCopyFile empreendedores
   
    lstrSource = strOrigDir & strFileName
    lstrSource de fs.CopyFile, strDestDir
    fCopyFile = “lima” & strFileName & “copiado com sucesso” & strDestDir & “.”
   
ExitfCopyFile:
    Retirar a função

O que eu estou fazendo basicamente aqui é equivalente à cópia SourceDirectory/lima DestinationDirectory.  Mas ao contrário da linha de comando comando, FileSystemObject.CopyFile quê-lo especific o diretório E o NOME DE ARQUIVO de destino.  Se não está pensando aparentemente você quer substituir o dobrador com a lima, que Windows impede que você faça (agradecer a G-d).  Quando eu especific o nome de arquivo do destino trabalha muito bem.  Eu uni o código corrigido.

Não foi um bom dia.

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12:

Função pública fCopyFile (strFileName como a corda) como a corda lstrSource não ofuscante como a corda, lstrDestination como a corda No erro ErrfCopyFile empreendedores lstrSource = strOrigDir & strFileName lstrDestination = strDestDir & “\” & strFileName lstrSource de fs.CopyFile, lstrDestination fCopyFile = a “lima” & o strFileName & “copiaram com sucesso” & strDestDir & “.” ExitfCopyFile: Retirar a função