Copy or CopyFile using ftp

The script below does not work. I get a file not found
error (the file exits). The script works on shared drives
but not this ftp IP (Intranet)address. If I type the ftp
address in IE it gets me to the correct place. It also
works if I use a script to create a shortcut to the IP
address. Why can't I get this script to work. Thanks.

Dim FSO
Dim MyFile

Set FSO = CreateObject("Scripting.FileSystemObject")

Set MyFile = fso.GetFile
("ftp://username:password@IPAddress/../../../rootfolder/fil
e1.txt")
MyFile.Copy ("c:\documents and settings\")

Peter
Wed Jul 16 22:03:44 CDT 2003

Try using the machine name instead of the IP. I don't think that's the
problem, but it's worth a try.

Sounds like a permissions problem. Not certain unless I could know more
about the server set up.

Peter.
"JimH" <jimdhall@msn.com> wrote in message
news:050d01c34bdf$23cfd880$a101280a@phx.gbl...
> The script below does not work. I get a file not found
> error (the file exits). The script works on shared drives
> but not this ftp IP (Intranet)address. If I type the ftp
> address in IE it gets me to the correct place. It also
> works if I use a script to create a shortcut to the IP
> address. Why can't I get this script to work. Thanks.
>
> Dim FSO
> Dim MyFile
>
> Set FSO = CreateObject("Scripting.FileSystemObject")
>
> Set MyFile = fso.GetFile
> ("ftp://username:password@IPAddress/../../../rootfolder/fil
> e1.txt")
> MyFile.Copy ("c:\documents and settings\")

Don
Wed Jul 16 23:00:41 CDT 2003

Im using this and works well.
Regards
Don


Set oShell = CreateObject("Wscript.Shell")

' file to be created with instructions for ftp.exe
sFtpInp = "c:\instructions.ftp"

With CreateObject("Scripting.FileSystemObject")
With .CreateTextfile(sFtpInp, True)
.WriteLine "open assoft.no-ip.org"
.WriteLine "user anonymous"
.WriteLine "user@assoft.com.au"
.WriteLine "lcd c:\files"
.WriteLine "cd test"
.WriteLine "mget *.*"
.WriteLine "Close"
.WriteLine "Quit"
.Close
End With
oShell.Run "%windir%\system32\ftp.exe -i -n -s:" & sFtpInp, 1, True
.DeleteFile sFtpInp
End With


"JimH" <jimdhall@msn.com> wrote in message
news:050d01c34bdf$23cfd880$a101280a@phx.gbl...
> The script below does not work. I get a file not found
> error (the file exits). The script works on shared drives
> but not this ftp IP (Intranet)address. If I type the ftp
> address in IE it gets me to the correct place. It also
> works if I use a script to create a shortcut to the IP
> address. Why can't I get this script to work. Thanks.
>
> Dim FSO
> Dim MyFile
>
> Set FSO = CreateObject("Scripting.FileSystemObject")
>
> Set MyFile = fso.GetFile
> ("ftp://username:password@IPAddress/../../../rootfolder/fil
> e1.txt")
> MyFile.Copy ("c:\documents and settings\")