Cuestión : El acceso VBA Filecopy del ms vuelve 70 - permiso negado

Estoy escribiendo a función del uso de acceso VBA esa copias los archivos a partir de un directorio otro que he seleccionado usar la caja del filedialog de la oficina en modo del msoFileDialogFolderPicker.  Estoy intentando utilizar el comando de FileCopy del filesystemobject, pero consigo el error “70 - permiso negado”, aunque yo tienen permisos del pleno control en el archivo y la carpeta a quienes estoy copiando.  Se ata mi código.  el
Here es el contenido de mi ventana inmediata cuando ejecuto la función: ¿

? installemtscomprpt
File testprog.txt no podido para copiar a F:\PR09 - 023 - escritura \ NewFolder de la instalación de EMTS Adobe 9.0 \ EMTSCompRpt.  ¿El error es 70 - el permiso denied.

Why es yo que consigue este mensaje de error? class= " lineNumbers " >

1 del >

:
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:
el >Option codeBody del " prettyprint " del class= del id= " codeSnippet748970 " del >
 " claro " de 

class= del 

Respuesta : El acceso VBA Filecopy del ms vuelve 70 - permiso negado

¡Conjetura qué!  He resuelto el problema:

Había cifrado la función fcopy como sigue:

Función pública fCopyFile (strFileName como secuencia) como secuencia
lstrSource dévil como secuencia
   
    En el error ErrfCopyFile indicado
   
    lstrSource = strOrigDir y strFileName
    lstrSource de fs.CopyFile, strDestDir
    fCopyFile = “archivo” y strFileName y “copiado con éxito” y strDestDir y “.”
   
ExitfCopyFile:
    Salir la función

Qué estoy haciendo básicamente aquí es equivalente a la copia SourceDirectory/archivo DestinationDirectory.  Pero desemejante de la línea de comando comando, FileSystemObject.CopyFile quisiera que usted especificara el directorio Y el NOMBRE DE FICHERO de destinación.  Si no está pensando al parecer usted quiere substituir la carpeta por el archivo, que Windows evita que usted haga (agradecer G-d).  Cuando especifico el nombre de fichero de la destinación trabaja muy bien.  He atado el código corregido.

No ha sido un buen día.

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

Función pública fCopyFile (strFileName como secuencia) como secuencia lstrSource dévil como secuencia, lstrDestination como secuencia En el error ErrfCopyFile indicado lstrSource = strOrigDir y strFileName lstrDestination = strDestDir y “\” y strFileName lstrSource de fs.CopyFile, lstrDestination fCopyFile = el “archivo” y el strFileName y “copiaron con éxito” y strDestDir y “.” ExitfCopyFile: Salir la función