Yakeni
asked on
copying file from one location to another using vb code
'I basically want to copy a file to another location using vb code..... yes very simple but I cant get
it to work.
'Here is so code I am currently using.. Im storing the file name and location in a string and was expecting
to copy this to another location.
Public function CopyFile()
Dim strOldFile As String
Dim strFileDest As String
With frmAssessment.dlgImage
.FileName = ""
.ShowOpen
End With
strFileDest = frmAssessment.dlgImage.Fil eName
FileSystemObject.CopyFile strFileDest, "c:\database\"
Call RenameFile(strOldFileName, strNewFileName)
End function
'If you have anyother ideas how I can copy a file to a new location plz reply. The File system object bring up a error message (object required) error 424'
it to work.
'Here is so code I am currently using.. Im storing the file name and location in a string and was expecting
to copy this to another location.
Public function CopyFile()
Dim strOldFile As String
Dim strFileDest As String
With frmAssessment.dlgImage
.FileName = ""
.ShowOpen
End With
strFileDest = frmAssessment.dlgImage.Fil
FileSystemObject.CopyFile strFileDest, "c:\database\"
Call RenameFile(strOldFileName,
End function
'If you have anyother ideas how I can copy a file to a new location plz reply. The File system object bring up a error message (object required) error 424'
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
I mean you don't need to declare filesystemobject
Yakeni, yes, as sombell points out, the 'FileSystemObject' is an object like any other, you need to explicitly create it, it is not an intrinsicly global object in VB (such as 'Debug' or 'VB' or 'Printer')
what CopyFile in VB ? what copyfile would that be ?
This code:
Private Sub Form_Load()
copyfile "c:\test.doc", "c:\test1.doc"
End Sub
fails at compile time.
This code:
Private Sub Form_Load()
copyfile "c:\test.doc", "c:\test1.doc"
End Sub
fails at compile time.
You can try FileCopy function in FileSystem class (build in VB)
Syntax:
FileCopy SrcPath,DstPath
sample:
FileCopy "C:\test.txt","c:\Data"
Some related usefull function in that class
Name --> remname file
Dir --> navigate files and folders
Kill --> delete file
....
Syntax:
FileCopy SrcPath,DstPath
sample:
FileCopy "C:\test.txt","c:\Data"
Some related usefull function in that class
Name --> remname file
Dir --> navigate files and folders
Kill --> delete file
....
ya, it's my careless, i mean "FileCopy" as thuannc posted. Apologies.
ASKER
Thanks for that> I didnt know you had to declare a filesystemobject. Your code was close.
Dim fs
Set fs = CreateObject("Scripting.Fi leSystemOb ject")
Dim fs
Set fs = CreateObject("Scripting.Fi
actually, you dont need to do that....
if you add the reference to the microsoft scripting runtime to the project then
Dim fso as new FileSystemObject
will work, and then you dont need the CreateObject.
Its more efficient to do it this way as it uses Earlu Binding.
CreateObject uses Late Binding
But both will work.
Regards.
Eombell
if you add the reference to the microsoft scripting runtime to the project then
Dim fso as new FileSystemObject
will work, and then you dont need the CreateObject.
Its more efficient to do it this way as it uses Earlu Binding.
CreateObject uses Late Binding
But both will work.
Regards.
Eombell
I had assumed you already had the reference included.
(oh, and thats Sombell) :o)
happy to have helped
(oh, and thats Sombell) :o)
happy to have helped
CopyFile source, destination[, overwrite]
Just
CopyFile source, destination