Вопрос : Доступ VBA Filecopy MS возвращает 70 - отказанное позволение

Я пишу функции применения доступа VBA той экземпляры архивы от одной директории до другая одна я выбирал using коробка filedialog офиса в режиме msoFileDialogFolderPicker.  Я пытаюсь использовать командование FileCopy filesystemobject, но получаю ошибку «70 - отказанное позволение», даже если я имеем позволения полного контроля на архиве и скоросшиватель к которому я копирую.  Мое Кодий прикреплено.  
Here будет содержание моего немедленно окна когда я исполняю функцию:

? installemtscomprpt
File testprog.txt суменное для того чтобы скопировать к F:\PR09 - 023 - сценарий \ NewFolder установки EMTS Adobe 9.0 \ EMTSCompRpt.  Ошибка 70 - позволением denied.

Why будет я получая это сообщение ошибки? class= " lineNumbers " >

1 >

:
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:
>Option " prettyprint " " class= id= " codeSnippet748970 >
 

  
  class= 

Ответ : Доступ VBA Filecopy MS возвращает 70 - отказанное позволение

Догадка!  Я вычислял вне проблему:

Я закодировал fcopy функцию следующим образом:

Общественная функция fCopyFile (strFileName как шнур) как шнур
Тусклое lstrSource как шнур
   
    На ошибке переход ErrfCopyFile
   
    lstrSource = strOrigDir & strFileName
    lstrSource fs.CopyFile, strDestDir
    fCopyFile = «архив» & strFileName & «скопировано успешно» & strDestDir & «.»
   
ExitfCopyFile:
    Выходите функция

Я основно делаю здесь соответствующе к экземпляру SourceDirectory/архиву DestinationDirectory.  Но не похоже на линии передачи команд командование, FileSystemObject.CopyFile хочет вас определить директорию И FILENAME назначения.  В противном случае оно явно думает вы хочет заменить скоросшиватель с архивом, которому Windows предотвращает вас от делать (возблагодарите G-d).  Когда я определяю архив назначения - имя он работает отлично.  Я прикреплял исправленное Кодего.

Не было хорошим днем.

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

Общественная функция fCopyFile (strFileName как шнур) как шнур Тусклое lstrSource как шнур, lstrDestination как шнур На ошибке переход ErrfCopyFile lstrSource = strOrigDir & strFileName lstrDestination = strDestDir & «\» & strFileName lstrSource fs.CopyFile, lstrDestination fCopyFile = «архив» & strFileName & «скопировали успешно» & strDestDir & «.» ExitfCopyFile: Выходите функция