need help copying files from one folder to another

[sm2605]

Hi, i wrote this code as below but i keep getting a file not found error. I know the file exists, but im assuming there is something wrong with the code. By the way i am trying to copy all the files from the temp folder located in a datadirectory to the source of the dataDirectory.

fileSysObject.CopyFile dataDirectory & "\Temp", dataDirectory, overwrite

 

[waytech2003]

Try usnig wild cards

fileSysObject.CopyFile dataDirectory & "\Temp\*.*", dataDirectory, overwrite

 

[SBendBuckeye]

Do you need a second \ after Temp?


Have a great day!

j2consulting@yahoo.com

 

[johnwm]

Yes

________________________________________________________________
If you want to get the best response to a question, please check out FAQ222-2244 first

'If we're supposed to work in Hex, why have we only got A fingers?'

 

[sm2605]

Hi, thanks for your help, but it works the way you typed it but it doesnt work the ther way around if i want to copy datadirectory into temp folder. here is what i have:

fileSysObject.CopyFile dataDirectory, dataDirectory & "\OTPTemp\*.*", True

 

[LPlates]

Whats wrong with the FileCopy function?

[blue]FileCopy[/blue] SourceFilePath, DestinationFilePath

 

[strongm]

The fact that it can't take a folder name as a parameter for the file source...

 

[LPlates]

What do you mean strongm?

 

[sm2605]

This means that the filcopy function cannot copy multiple files at the same time. In order to do that i have to use the filesystemobject...but thats where the error it comming up

 

[strongm]

FileCopy can only take a a filename (or path to a filename) as a value for SourceFilePath. If you try and feed it a folder (or a path to a folder) it won't work.

 

[LPlates]

Then use the CopyFolder function of FSO


Public Function CopyDir(Source As String, Dest As String, OverWrite As Boolean)
'This function uses the Windows Scriptin
' g Host
'You must have the scripting engine inst
' alled to use this code.
Dim fso
'Create file system object
Set fso = CreateObject("Scripting.FileSystemObject&quot
'put windows scripting host to work
fso.CopyFolder Source, Dest, OverWrite

End Function

 

[strongm]

Yes, we know. I was responding to your query as to what was wrong with FileCopy in this scenario...

 

[LPlates]

I misread the question when I saw CopyFile
You have to forgive me its 3:00AM

 

[strongm]

I know how that feels...

 

[sm2605]

Im already using the filesysobject. Thats how i came up with the original question.

dim fileSysObject

Set fileSysObject = CreateObject("Scripting.FileSystemObject&quot

fileSysObject.CopyFile dataDirectory, dataDirectory & "\OTPTemp\*.*", True


i cant use CopyFlder because i want the files within the folder to be copied

thanks

 

[LPlates]

It does copy the files within the folder, to an existing folder or a new subdirectory, try the code I posted!

 

[sm2605]

Hey guys thanks for your help. ive figured it out. i put the *.* in the wrong place. Here is the correct way:

fileSysObject.CopyFile dataDirectory & "\*.*", dataDirectory & "\Temp\", True

 

[sm2605]

by the way where are you located that its 3am?

 

[sm2605]

sorry to bother you again, but i have another question regardig this copying function. I just realized that if a user is going to be using this then they will need to register the appropriate dll's inorder for the file sys object to give an error. Is there a way to maybe create a function to copy each file using "copyFile" function and just call the function whenever i need it? If so how do i start.

by the way if this is considered another thread please let me know and i will rewrite it.

thank you

 

[SBendBuckeye]

If you use late binding then DLL registration is not an issue. I believe ScrRun.dll is part of the standard install. Worst case scenario, you could iterate using the DIR function if you got an FSO error.

Good LucK!

Have a great day!

j2consulting@yahoo.com