Pytanie : MS Dojazdowy VBA Filecopy wracać 70 - pozwolenie zaprzeczać

I pisać Dojazdowy Zastosowanie VBA funkcja że kopia kartoteka od jeden książka telefoniczna inny jeden który I wybierać using the biurowy filedialog pudełko w msoFileDialogFolderPicker tryb.  I próbować the filesystemobject FileCopy rozkaz, ale dostawać the błąd "70 - pozwolenie zaprzeczać", nawet jeśli I mieć pełna kontrola pozwolenie na the kartoteka i the falcówka che I kopiować.  Mój kod dołączać.  
Here być the zawartość mój bezpośredni okno gdy I wykonywać the funkcja:

? installemtscomprpt
File testprog.txt nie udać się F:\PR09 - 023 - EMTS Adobe 9.0 \ EMTSCompRpt Instalacyjny Pismo \ NewFolder.  Błąd być 70 - Pozwolenie denied.

Why być I ten błąd wiadomość? 

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 Porównywać Baza danych
Opcja Wyraźny

Społeczeństwo fs Jako FileSystemObject, strOrigDir Jako Sznurek, strDestDir Sznurek

Jawny Funkcja InstallEMTSCompRpt () Sznurek
    
    Set fs = Nowy FileSystemObject
    strOrigDir = CurrentProject.Path & "\"
    strDestDir = fFolderDialog
    Debug.Print fCopyFile ("testprog.txt")

Końcówka Funkcja
Jawny Funkcja fFolderDialog () Sznurek

'Wymagać odniesienie Microsoft Office 10.0 Przedmiot Biblioteka.

   Ciemnawy fDialog Jako Office.FileDialog
   Ciemnawy varFile Jako Wariant

   'Jasny listbox zawartość.
   'Me.FileList.RowSource = ""

   'Tworzyć the Kartoteka Dialog.
   Ustawiać fDialog = Application.FileDialog (msoFileDialogFolderPicker)
   Z fDialog
      'Pozwolić użytkownik tylko jeden EMTSReports Baza danych
      .AllowMultiSelect = Fałszywy
            
      'Set the tytuł the dialog pudełko.
      . Tytuł = "Zadawalać wybiórka the EMTSReports Baza danych przedmiot"

      'Jasny jasny the prąd filtr, i dodawać nasz swój.
      . Filters.Clear
      .InitialFileName = "\ \ okc-svr01 \ obishare$ \ Dojazdowy Zastosowanie \ EMTS \"
      .InitialView = msoFileDialogViewList
      
      'Pokazywać the dialog pudełko. Jeżeli the. Pokazywać metoda powrót Prawdziwy, the
      'użytkownik podnosić przynajmniej jeden kartoteka. Jeżeli the. Pokazywać metoda powrót
      'Fałszywy, the użytkownik klikać Odwoływać.
      Jeżeli. Przedstawienie = Prawdziwy Wtedy
         'Zapętlać przez pudełko kartoteka wybierać i dodawać ono nasz lista pudełko.
         Dla .SelectedItems varFile W .SelectedItems
            fFolderDialog = varFile
         Następnie
      Inny
         fFolderDialog = ""
      Kończyć Jeżeli
   Kończyć Z
Kończyć Funkcja
Jawny Funkcja fCopyFile (strFileName Sznurek) Sznurek
Ciemnawy lstrSource Sznurek
    
    Na Błąd Rozpoczynający ErrfCopyFile
    
    lstrSource = strOrigDir & strFileName
    fs.CopyFile lstrSource, strDestDir
    fCopyFile = "Kartoteka" & strFileName & "pomyślnie" & strDestDir & "."
    
ExitfCopyFile:
    Wyjście Funkcja
    
ErrfCopyFile:
    fCopyFile = "Kartoteka" & strFileName & "nie udać się" & strDestDir & ".  "
    fCopyFile = fCopyFile & "Błąd być" & Err.Number & "-" & Err.Description & "."
    MsgBox fCopyFile, vbExclamation, "InstallEMTSCompRpt Błąd: "
    Życiorys ExitfCopyFile

Końcówka Funkcja

Odpowiedź : MS Dojazdowy VBA Filecopy wracać 70 - pozwolenie zaprzeczać

Domysł co!  I obliczać problem the problem:

I kodować the fcopy funkcja podążać:

Jawny Funkcja fCopyFile (strFileName Sznurek) Sznurek
Ciemnawy lstrSource Sznurek
   
    Na Błąd Rozpoczynający ErrfCopyFile
   
    lstrSource = strOrigDir & strFileName
    fs.CopyFile lstrSource, strDestDir
    fCopyFile = "Kartoteka" & strFileName & "kopiować pomyślnie" & strDestDir & "."
   
ExitfCopyFile:
    Wyjście Funkcja

DestinationDirectory I podstawowy robić tutaj być równoznaczny the kopia SourceDirectory/kartoteka DestinationDirectory.  Ale w przeciwieństwie do the nakazowy linia rozkaz, FileSystemObject.CopyFile chcieć ty the miejsce przeznaczenia książka telefoniczna I FILENAME.  Inaczej ono najwyraźniej myśleć ty chcieć the falcówka z the kartoteka, che Windows zapobiegać ty od (Dziękować G-d).  Gdy I precyzować the miejsce przeznaczenia kartoteka - wymieniać ono pracować świetnie.  I dołączać the korygować kod.

Ono być dobry dzień.

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

Jawny Funkcja fCopyFile (strFileName Sznurek) Sznurek
Ciemnawy lstrSource Jako Sznurek, lstrDestination Sznurek
    
    Na Błąd Rozpoczynający ErrfCopyFile
    
    lstrSource = strOrigDir & strFileName
    lstrDestination = strDestDir & "\" & strFileName
    fs.CopyFile lstrSource, lstrDestination
    fCopyFile = "Kartoteka" & strFileName & "kopiować pomyślnie" & strDestDir & "."
    
ExitfCopyFile:
    Wyjście Funkcja
Inne rozwiązania  
 
programming4us programming4us