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