MoveFile problem

[Patrice]

Hi,
I want to move images from a folder to specific subfolders.
The script below generates the following error:
a.. Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required:'[undefined]'

<%
sub moveImagesToFolder(Folder)
dim fs,fo,x,text,Foldername,fm,f1
set fs=Server.CreateObject("Scripting.FileSystemObject ")
set fo=fs.GetFolder(Server.MapPath(Folder))
for each x in fo.files
text=Len(x.Name)-4
Foldername=Left(x.Name,text)
set f1 = fs.GetFile(x)

'/////here is where the error is targeted: don't know why!////
set fm=fs.MoveFile(f1,"C:\Inetpub\wwwroot\"&Folder&"\" &Foldername&"\")

set fm=nothing
set f1=nothing
next
set fs=nothing
set fo=nothing
end sub

%>

Can someone help?
Thx

[Ray Costanzo [MVP]]

The .MoveFile method doesn't return an object. Also, the first argument is
to be a file path, not a file object.
fs.MoveFile path1, path2

Ray at work

"Patrice" <ma*****@videotron.ca> wrote in message
news:lM********************@weber.videotron.net...

Hi,
I want to move images from a folder to specific subfolders.
The script below generates the following error:
a.. Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required:'[undefined]'

<%
sub moveImagesToFolder(Folder)
dim fs,fo,x,text,Foldername,fm,f1
set fs=Server.CreateObject("Scripting.FileSystemObject ")
set fo=fs.GetFolder(Server.MapPath(Folder))
for each x in fo.files
text=Len(x.Name)-4
Foldername=Left(x.Name,text)
set f1 = fs.GetFile(x)

'/////here is where the error is targeted: don't know why!////
set fm=fs.MoveFile(f1,"C:\Inetpub\wwwroot\"&Folder&"\" &Foldername&"\")
set fm=nothing
set f1=nothing
next
set fs=nothing
set fo=nothing
end sub

%>

Can someone help?
Thx

[Curt_C [MVP]]

verify all your values first. Make sure that they are all what you expect.
Write em out to the screen.
If that works try hardcoding a simple file with the objects you indicated,
see what happens.

Then combine the two....
Basic troubleshooting methodology.

--
Curt Christianson
Site & Scripts: http://www.Darkfalz.com
Blog: http://blog.Darkfalz.com
"Patrice" <ma*****@videotron.ca> wrote in message
news:lM********************@weber.videotron.net...

Hi,
I want to move images from a folder to specific subfolders.
The script below generates the following error:
a.. Error Type:
Microsoft VBScript runtime (0x800A01A8)
Object required:'[undefined]'

<%
sub moveImagesToFolder(Folder)
dim fs,fo,x,text,Foldername,fm,f1
set fs=Server.CreateObject("Scripting.FileSystemObject ")
set fo=fs.GetFolder(Server.MapPath(Folder))
for each x in fo.files
text=Len(x.Name)-4
Foldername=Left(x.Name,text)
set f1 = fs.GetFile(x)

'/////here is where the error is targeted: don't know why!////
set
fm=fs.MoveFile(f1,"C:\Inetpub\wwwroot\"&Folder&"\" &Foldername&"\")

set fm=nothing
set f1=nothing
next
set fs=nothing
set fo=nothing
end sub

%>

Can someone help?
Thx