Go Premium for a chance to win a PS4. Enter to Win

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 4146
  • Last Modified:

MS Access copy and rename file

Hi

How can I copy and rename an existing file using Access vba?

Many thanks

Ken
0
kenabbott
Asked:
kenabbott
  • 3
  • 3
1 Solution
 
Yossarian-22Commented:
Use this:
FileCopy "c:\test\copythis.txt", "c:\new\target.txt"
0
 
kenabbottAuthor Commented:
That works a treat except if I try it on a Word document that I have created from a template via vba, I get runtime error 53
0
 
Yossarian-22Commented:
Runtime error 53 means "file not found"

Try debugging and accessing the file from the variable you store the string of the file location in.
0
Independent Software Vendors: We Want Your Opinion

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

 
kenabbottAuthor Commented:
I've checked this numerous times - the file names etc are correct.  It is something to do with initial creating the files in VBA.  I am using the code below.

If I create a file with this called abc.doc via the code below then FileCopy will not work (even after a reboot).  However if I create a file from scratch called abc.doc and save it in the same folder then its works!

Any ideas?




'creat object and populate bookmarks
        Set objWord = CreateObject("Word.Application")
        objWord.Documents.Add strTemplate
        objWord.Visible = False
    
        With objWord.ActiveDocument.Bookmarks
            .Item("Address").Range.Text = strAddress
            .Item("Date").Range.Text = Format(Date, "dd/mm/yy")
        End With
        
    'save and open
        
        objWord.ActiveDocument.SaveAs strFinalPath

Open in new window

0
 
kenabbottAuthor Commented:
UPDATE

I ahve now sorted this the problem is with the code - it is missing objWord.quit so it was leaving an instance of Word open and this seems to be causing the problem.  I also found an unrelated problem that was causing this still to fail after reboot

many thanks
0
 
Yossarian-22Commented:
FileCopy cannot access files in use. Close the active document and set the object to Nothing before you attempt the FileCopy.
From within Word you may use the method mentioned here: http://word.mvps.org/FAQs/MacrosVBA/CopyOpenFile.htm


Otherwise try this method:


Dim objFso As Object
Set objFso = CreateObject("Scripting.FileSystemObject")
 
objFso.CopyFile source, destination, True
 
Set objFso = Nothing

Open in new window

0

Featured Post

Industry Leaders: We Want Your Opinion!

We value your feedback.

Take our survey and automatically be enter to win anyone of the following:
Yeti Cooler, Amazon eGift Card, and Movie eGift Card!

  • 3
  • 3
Tackle projects and never again get stuck behind a technical roadblock.
Join Now