i based the following code on an example from copy files to other folder,
recorded march 31, 2006

Sub copyfolder_con()
Dim strfom, strto As String
Dim copyinfo As Object

strfrom = "w:\adhoc \ ipa profiles \ 2006 \ power play reports for ipas \
nnyppo power play reports\ *.xls"
MsgBox strfrom
strto = "w:\adhoc \ ipa profiles \ 2006 \ test area"
MsgBox strto
Set copyinfo = CreateObject("scripting.FileSystemObject")

copyinfo.copyfile strfrom, strto, False

End Sub


strfrom and strto have valid values.

it always abends at the copyinfo.copyfile statement.

yet this is exactly what is in help and what was on for march 31.

so why the abends?

thanks

Hi jnewl

Try this to copy from C:\Data\*.* to C:\Paste

Sub test()
Dim objShell, objFolder
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace("C:\Paste")

If (Not objFolder Is Nothing) Then
objFolder.CopyHere ("C:\Data\*.*")
End If

End Sub


--
Regards Ron De Bruin
http://www.rondebruin.nl



"jnewl" wrote in message ...
i based the following code on an example from copy files to other folder,
recorded march 31, 2006

Sub copyfolder_con()
Dim strfom, strto As String
Dim copyinfo As Object

strfrom = "w:\adhoc \ ipa profiles \ 2006 \ power play reports for ipas \
nnyppo power play reports\ *.xls"
MsgBox strfrom
strto = "w:\adhoc \ ipa profiles \ 2006 \ test area"
MsgBox strto
Set copyinfo = CreateObject("scripting.FileSystemObject")

copyinfo.copyfile strfrom, strto, False

End Sub


strfrom and strto have valid values.

it always abends at the copyinfo.copyfile statement.

yet this is exactly what is in help and what was on for march 31.

so why the abends?

thanks

this did not help. got nothing after the execution of this code

the previous code gave the msg ' could not find the path', but the contents
for strfrom and strto were valid

Sub copyfolder_con()
'Dim strfom, strto As String
'Dim copyinfo As Object

'strfrom = "w:\adhoc \ ipa profiles \ 2006 \ power play reports for ipas \
nnyppo power play reports\ *.xls"

'strto = "w:\adhoc \ ipa profiles \ 2006 \ test area"

'Set copyinfo = CreateObject("scripting.FileSystemObject")

'copyinfo.copyfile strfrom, strto, False

Dim objshell, objfolder
Set objshell = CreateObject("shell.application")
Set objfolder = objshell.Namespace("w:\adhoc \ ipa profiles \ 2006 \ test
area")

If (Not objfolder Is Nothing) Then
objfolder.copyhere ("w:\adhoc \ ipa profiles \ 2006 \ power play reports
for ipas \ nnyppo power play reports\ *.*")
End If


End Sub







"jnewl" wrote:

i based the following code on an example from copy files to other folder,
recorded march 31, 2006

Sub copyfolder_con()
Dim strfom, strto As String
Dim copyinfo As Object

strfrom = "w:\adhoc \ ipa profiles \ 2006 \ power play reports for ipas \
nnyppo power play reports\ *.xls"
MsgBox strfrom
strto = "w:\adhoc \ ipa profiles \ 2006 \ test area"
MsgBox strto
Set copyinfo = CreateObject("scripting.FileSystemObject")

copyinfo.copyfile strfrom, strto, False

End Sub


strfrom and strto have valid values.

it always abends at the copyinfo.copyfile statement.

yet this is exactly what is in help and what was on for march 31.

so why the abends?

thanks

Are the spaces around some of the backslashes supposed to be there?


jnewl wrote:
this did not help. got nothing after the execution of this code

the previous code gave the msg ' could not find the path', but the contents
for strfrom and strto were valid

Sub copyfolder_con()
'Dim strfom, strto As String
'Dim copyinfo As Object

'strfrom = "w:\adhoc \ ipa profiles \ 2006 \ power play reports for ipas \
nnyppo power play reports\ *.xls"

'strto = "w:\adhoc \ ipa profiles \ 2006 \ test area"

'Set copyinfo = CreateObject("scripting.FileSystemObject")

'copyinfo.copyfile strfrom, strto, False

Dim objshell, objfolder
Set objshell = CreateObject("shell.application")
Set objfolder = objshell.Namespace("w:\adhoc \ ipa profiles \ 2006 \ test
area")

If (Not objfolder Is Nothing) Then
objfolder.copyhere ("w:\adhoc \ ipa profiles \ 2006 \ power play reports
for ipas \ nnyppo power play reports\ *.*")
End If


End Sub







"jnewl" wrote:

i based the following code on an example from copy files to other folder,
recorded march 31, 2006

Sub copyfolder_con()
Dim strfom, strto As String
Dim copyinfo As Object

strfrom = "w:\adhoc \ ipa profiles \ 2006 \ power play reports for ipas \
nnyppo power play reports\ *.xls"
MsgBox strfrom
strto = "w:\adhoc \ ipa profiles \ 2006 \ test area"
MsgBox strto
Set copyinfo = CreateObject("scripting.FileSystemObject")

copyinfo.copyfile strfrom, strto, False

End Sub


strfrom and strto have valid values.

it always abends at the copyinfo.copyfile statement.

yet this is exactly what is in help and what was on for march 31.

so why the abends?

thanks

if the spaces are there or not there, still get the same error msg. what is
such a puzzle, is that this code is like the code outlined in the march 31
response, yet does not work

"Andrew Taylor" wrote:

Are the spaces around some of the backslashes supposed to be there?


jnewl wrote:
this did not help. got nothing after the execution of this code

the previous code gave the msg ' could not find the path', but the contents
for strfrom and strto were valid

Sub copyfolder_con()
'Dim strfom, strto As String
'Dim copyinfo As Object

'strfrom = "w:\adhoc \ ipa profiles \ 2006 \ power play reports for ipas \
nnyppo power play reports\ *.xls"

'strto = "w:\adhoc \ ipa profiles \ 2006 \ test area"

'Set copyinfo = CreateObject("scripting.FileSystemObject")

'copyinfo.copyfile strfrom, strto, False

Dim objshell, objfolder
Set objshell = CreateObject("shell.application")
Set objfolder = objshell.Namespace("w:\adhoc \ ipa profiles \ 2006 \ test
area")

If (Not objfolder Is Nothing) Then
objfolder.copyhere ("w:\adhoc \ ipa profiles \ 2006 \ power play reports
for ipas \ nnyppo power play reports\ *.*")
End If


End Sub







"jnewl" wrote:

i based the following code on an example from copy files to other folder,
recorded march 31, 2006

Sub copyfolder_con()
Dim strfom, strto As String
Dim copyinfo As Object

strfrom = "w:\adhoc \ ipa profiles \ 2006 \ power play reports for ipas \
nnyppo power play reports\ *.xls"
MsgBox strfrom
strto = "w:\adhoc \ ipa profiles \ 2006 \ test area"
MsgBox strto
Set copyinfo = CreateObject("scripting.FileSystemObject")

copyinfo.copyfile strfrom, strto, False

End Sub


strfrom and strto have valid values.

it always abends at the copyinfo.copyfile statement.

yet this is exactly what is in help and what was on for march 31.

so why the abends?

thanks

got nothing after the execution of this code

Then this path is not correct
"w:\adhoc \ ipa profiles \ 2006 \ test area"
go to the folder in Explorer and copy the path fron the address bar


--
Regards Ron De Bruin
http://www.rondebruin.nl



"jnewl" wrote in message ...
this did not help. got nothing after the execution of this code

the previous code gave the msg ' could not find the path', but the contents
for strfrom and strto were valid

Sub copyfolder_con()
'Dim strfom, strto As String
'Dim copyinfo As Object

'strfrom = "w:\adhoc \ ipa profiles \ 2006 \ power play reports for ipas \
nnyppo power play reports\ *.xls"

'strto = "w:\adhoc \ ipa profiles \ 2006 \ test area"

'Set copyinfo = CreateObject("scripting.FileSystemObject")

'copyinfo.copyfile strfrom, strto, False

Dim objshell, objfolder
Set objshell = CreateObject("shell.application")
Set objfolder = objshell.Namespace("w:\adhoc \ ipa profiles \ 2006 \ test
area")

If (Not objfolder Is Nothing) Then
objfolder.copyhere ("w:\adhoc \ ipa profiles \ 2006 \ power play reports
for ipas \ nnyppo power play reports\ *.*")
End If


End Sub







"jnewl" wrote:

i based the following code on an example from copy files to other folder,
recorded march 31, 2006

Sub copyfolder_con()
Dim strfom, strto As String
Dim copyinfo As Object

strfrom = "w:\adhoc \ ipa profiles \ 2006 \ power play reports for ipas \
nnyppo power play reports\ *.xls"
MsgBox strfrom
strto = "w:\adhoc \ ipa profiles \ 2006 \ test area"
MsgBox strto
Set copyinfo = CreateObject("scripting.FileSystemObject")

copyinfo.copyfile strfrom, strto, False

End Sub


strfrom and strto have valid values.

it always abends at the copyinfo.copyfile statement.

yet this is exactly what is in help and what was on for march 31.

so why the abends?

thanks

hi,
it was the from path that was wrong, there was a space after the last \
so it could not find *.*

thanks, for your help

"jnewl" wrote:

i based the following code on an example from copy files to other folder,
recorded march 31, 2006

Sub copyfolder_con()
Dim strfom, strto As String
Dim copyinfo As Object

strfrom = "w:\adhoc \ ipa profiles \ 2006 \ power play reports for ipas \
nnyppo power play reports\ *.xls"
MsgBox strfrom
strto = "w:\adhoc \ ipa profiles \ 2006 \ test area"
MsgBox strto
Set copyinfo = CreateObject("scripting.FileSystemObject")

copyinfo.copyfile strfrom, strto, False

End Sub


strfrom and strto have valid values.

it always abends at the copyinfo.copyfile statement.

yet this is exactly what is in help and what was on for march 31.

so why the abends?

thanks