Excel VBA FILECOPY

[help_for_excel]

hi,


I am running into interesting situation I am using below Line of code, and it works every time fine. source file is like 10MB (file1)

FileCopy "C:\Users\Desktop\file1.pptx", "C:\Users\Desktop\file2.pptx"

but when I try to run below code is gives me error and that only sometimes. I put the watch expression and both have same string as above but still doesn't execute every time..
(Error 75)

FileCopy Copy_PPT, Paste_PPT


I have to pass down string in variable form.....can anyone please help....is it something to memory


thanks in advance

 

[Firefly2012]

Can you show your code where you are assigning the paths to the variables as I suspect it is a problem with the Path construction.

 

[CharlesChuckieCharles]

Error 75

this is not necessarily a code problem, considering you've said it works

Its probably some issue with the files/Paths you are copying to

see below for pointers

http://msdn.microsoft.com/en-us/library/aa264531(v=vs.60).aspx

 

[help_for_excel]

here is the code

Private Sub Copy_Paste()

Dim Paste_ppt_loc As String
Dim Copy_ppt_loc As String

'code copy and paste file from one location to another
'FileCopy "C:\Users\Desktop\file1.pptx", "C:\Users\Desktop\file2.pptx"

Copy_ppt_loc = Range("copy_file_loc") 'this is an excel range which contains C:\Users\Desktop\file1.pptx
Paste_ppt_loc = Range("paste_file_loc") & "\file2.pptx" 'this is an excel range which contains "C:\Users\Desktop", file name is given from vba code

FileCopy Copy_ppt_loc, Paste_ppt_loc



so when i run code in directly by mentioning path....it runs fine.
but when i run code other way it gives me error 75.

 

[Firefly2012]

When the code bugs out, go to Debug and in the Immediate Window (Ctrl+g to open) type in

?Copy_ppt_loc

?Paste_ppt_loc

and check the returned paths are absolutely correct and as expected.

 

[CharlesChuckieCharles]

the Path C:\users\desktop does exist?

not C:\users\All Users or C:\users\help_for_excel

 

[help_for_excel]

Nope it doesn't help.

Another thing I can see that when I am opening the file problem it is opening as Read only file the one pasted

 

[CharlesChuckieCharles]

is the copy from file read-only?



Is there another directory that you can use to test this that you know you have full permissions too?

 

[Jaafar Tribak]

Nope it doesn't help.

Another thing I can see that when I am opening the file problem it is opening as Read only file the one pasted

That indicates "C:\Users\Desktop\file2.pptx" file is open and that's probably why you are getting an error. Check if its hidden in the current ppt session or in a seperate seesion via the in the Task manager .

 

[help_for_excel]

I know its strange and I don't know why but when used below method worked is worked perfectly

http://forums.devarticles.com/microsoft-access-development-49/copy-file-using-vba-30811.html



Dim fs As Object
Dim oldPath As String, newPath As String
oldPath = "C:\Documents and Settings\user\My Documents" 'Folder file is located in
newPath = "C:\Documents and Settings\user\My Documents\Misc" 'Folder to copy file to
Set fs = CreateObject("Scripting.FileSystemObject")
fs.CopyFile oldPath & "\" & "Query1.xls", newPath & "\" & "Query1.xls" 'This file was an .xls file
Set fs = Nothing



thanks for your help