copy/rename

[Guest]

I need to copy a file c:\reports\datafile\1st471.ltr and rename it c:\reports\datafile\letter1.dbf. I need to link to letter1.dbf. I tried creating a function with the following

Function MakeDBF(
FileSystemObject.Copyfile "c:\reports\datafile\1st471.ltr", "c:\reports\datafile\letter1.dbf", tru
End Functio

I receive a 427 Runtime error

 

[Cheryl Fischer]

You do not need the FileSystemObject to copy a file; there is a built-in VBA
statement that you can use:

FileCopy "c:\reports\datafile\1st471.ltr", "c:\reports\datafile\letter1.dbf"



hth,
--

Cheryl Fischer, MVP Microsoft Access
Law/Sys Associates, Houston, TX

I need to copy a file c:\reports\datafile\1st471.ltr and rename it

c:\reports\datafile\letter1.dbf. I need to link to letter1.dbf. I tried
creating a function with the following:

Function MakeDBF()
FileSystemObject.Copyfile "c:\reports\datafile\1st471.ltr",

"c:\reports\datafile\letter1.dbf", true

 

[Jim/Chris]

Private Sub Command10_Click()
FileCopy "sourcefile", "destinationfile"
End Sub

or if the file is in use try

Private Sub Command10_Click()
Dim fso As Object
Dim boverwrite As Boolean

Set fso = CreateObject("Scripting.fileSystemObject")
fso.copyfile "sourcefile", "sourcefile"

Set fso = Nothing

End Sub

Jim

-----Original Message-----
I need to copy a file c:\reports\datafile\1st471.ltr and

rename it c:\reports\datafile\letter1.dbf. I need to link
to letter1.dbf. I tried creating a function with the following:

Function MakeDBF()
FileSystemObject.Copyfile

"c:\reports\datafile\1st471.ltr",
"c:\reports\datafile\letter1.dbf", true

 

[Jim/Chris]

Sorry the fso.copyfile should be
fso.copyfile "sourcefile", "destinationfile"

I like this because I can copy open databases

Jim

 

[Douglas J. Steele]

Just because you can copy open databases doesn't mean you should!

It's entirely possible that your copied database will be inconsistent if it
was open when you copied it, so you really shouldn't rely on it for any
purpose.