Question : Le MS Access VBA Filecopy renvoie 70 - permission niée

J'écris à une fonction de l'application d'accès VBA cette des copies des dossiers à partir d'un annuaire à encore que j'ai choisi using la boîte de filedialog de bureau en mode de msoFileDialogFolderPicker.  J'essaye d'employer la commande de FileCopy de filesystemobject, mais obtiens l'erreur « 70 - permission niée », quoique moi ayons des permissions de plein contrôle sur le dossier et la chemise auxquels je copie.  Mon code est joint.  le
Here est le contenu de ma fenêtre immédiate quand j'exécute la fonction :

? installemtscomprpt
File testprog.txt pour copier à F:\PR09 - 023 - manuscrit \ NewFolder d'installation d'EMTS Adobe 9.0 \ EMTSCompRpt.  L'erreur est 70 - la permission denied.

Why suis- moi recevant ce message d'erreur ? class= " lineNumbers " >

1 de >

 :
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 :
le >Option " de 
 " clair " de 

class= de 

Réponse : Le MS Access VBA Filecopy renvoie 70 - permission niée

Conjecture ce qui !  J'ai figuré dehors le problème :

J'avais codé la fonction fcopy comme suit :

Fonction publique fCopyFile (strFileName comme corde) comme corde
Faible lstrSource comme corde
   
    Sur l'erreur ErrfCopyFile GoTo
   
    lstrSource = strOrigDir et strFileName
    lstrSource de fs.CopyFile, strDestDir
    fCopyFile = « dossier » et strFileName et « copié avec succès » et strDestDir et « . »
   
ExitfCopyFile :
    Sortir la fonction

Ce que je fais fondamentalement ici est équivalent à la copie SourceDirectory/dossier DestinationDirectory.  Mais à la différence de la ligne de commande commande, FileSystemObject.CopyFile veut que vous spécifiiez l'annuaire ET le NOM DE FICHIER de destination.  Autrement il pense apparemment que vous voulez remplacer la chemise par le dossier, que Windows vous empêche de faire (remercier G-d).  Quand je spécifie le nom de fichier de destination cela fonctionne très bien.  J'ai attaché le code corrigé.

Ce n'a pas été un beau jour.

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

Fonction publique fCopyFile (strFileName comme corde) comme corde Faible lstrSource comme corde, lstrDestination comme corde Sur l'erreur ErrfCopyFile GoTo lstrSource = strOrigDir et strFileName lstrDestination = strDestDir et « \ » et strFileName lstrSource de fs.CopyFile, lstrDestination fCopyFile = le « dossier » et le strFileName et « ont copié avec succès » et strDestDir et « . » ExitfCopyFile : Sortir la fonction