Fråga : Ms tar fram retur 70 för VBA Filecopy - förnekad tillåtelse

Handstil för förmiddag I som en ta framapplikation VBA fungerar, som kopierar sparar från ett arkiv till ett annat att jag har utvalt using kontorsfiledialogen att boxas i msoFileDialogFolderPickerfunktionsläge.  Pröva förmiddag I att använda filesystemobjecten FileCopy befaller, men får felet ”70 - förnekad tillåtelse”, även om jag har mycket att kontrollera tillåtelser på spara och mappen till som kopiera för I-förmiddag.  Mitt kodifiera fästas.  
Here är tillfredsställer av mitt omgående fönster, när jag utför fungera:

? installemtscomprpt
File testprog.txt missade för att kopiera till F:\PR09 - 023 - installation för EMTS-Adobe 9.0 \ EMTSCompRpt skrivar \ NewFolder.  Felet är 70 - förmiddagen för tillåtelse denied.

Why mig som får detta felmeddelande? för
class= " lineNumbers " >
1 för >
Optionen " för prettyprint " för class= för id= " codeSnippet748970 " för >


" klar " 










Svar : Ms tar fram retur 70 för VBA Filecopy - förnekad tillåtelse










Gissning vad!  Jag har utklurat problemet:

Jag hade kodifierat det fcopy fungerar som följer:

Allmänhet fungerar fCopyFile (strFileName som stränger) som stränger
Dunkel lstrSource som stränger
    
    På felet GoTo ErrfCopyFile
    
    lstrSource = strOrigDir & strFileName
    fs.CopyFile-lstrSource, strDestDir
    fCopyFile = ”spara” & strFileName & ”kopierat lyckat” & strDestDir & ”.”,
    
ExitfCopyFile:
    Gå ut fungerar

Spara DestinationDirectory, vad I-förmiddagen som i stort här gör, är likvärdigt till kopiera SourceDirectory/.  Men i motsats till befalla fodra befaller, FileSystemObject.CopyFile önskar att du ska specificera den destinationsarkivet OCH FILENAMEN.  Annorlunda den är som synes tänkande dig önskar att byta ut mappen med spara, som Windows förhindrar dig från att göra (tacka G-d).  När jag specificerar destinationen sparar - känt den fungerar fint.  Jag har fäst korrigerad kodifierar.

Det har inte varit en bra dag.

 
 







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





Allmänhet fungerar fCopyFile (strFileName som stränger) som stränger
Dunkel lstrSource som stränger, lstrDestination som stränger
    
    På felet GoTo ErrfCopyFile
    
    lstrSource = strOrigDir & strFileName
    lstrDestination = strDestDir & ”\” & strFileName
    fs.CopyFile-lstrSource, lstrDestination
    fCopyFile = ”spara” & strFileName & ”kopierat lyckat” & strDestDir & ”.”,
    
ExitfCopyFile:
    Gå ut fungerar



































Andra lösningar
 































 






































programming4us

programming4us