Could it possible to Copy Files From http://.. using VBScript

larryjr · Aug 31, 2001

I need help to write VBScript copying files from web like;

Set fso = CreateObject("Scripting.FileSystemObject&quot

fso.CopyFile "

_
"c:\MYDOCU~1\"

Could it possible ?
Initially \\servername\dirA/subdir/filename worked, but
I would like to use this for copying files even server
name and directories are unknown.

bassguy · Aug 31, 2001

Just a gues but you may want to try Server.MapPath("/&quot

It will give you the "real" path that the server is on then you can concantinate it with the rest of your relative path.....it has been a while since I have so you may want to hit MSDN to get the specifics of the command

Tal McMahon

larryjr · Sep 2, 2001

To Tal McMahon

Thanks for your response.I appreciate your comments
for using serverpath"/"
Am I understanding you mean ?;

<HTML><HEAD></HEAD>
<BODY>
<script language="VBScript">
Set fso = CreateObject("Scripting.FileSystemObject&quot

fso.CopyFile "/TESTBook.xls", "c:\MYDOCU~1\"
Set WShshell= Nothing
</script>
</BODY></HTML>

The TESTBook.xls is placed in the same server directory
where the web page is placed.
But opening this web page still failes to copy the file.

I really like to write the script as follows;

<HTML><BODY>
<script language="VBScript">
Set fso = CreateObject("Scripting.FileSystemObject&quot

fso.CopyFile "

http://www.so.com/TESTBook.xls",

_
"c:\MYDOCU~1\"
Set WShshell= Nothing
</script>
</BODY></HTML>

Is this possible ?

In the LAN, it's easy to know the servername and I can
write the line like
fso.CopyFile "\\myserver\DirXX\TESBook.xls"
In case that I am on ISP with PPP,
is there any measure to use the line like
"\\servername\mydir\subdir\TESTBook.xls"
,getting the real name of the server?

LarryJR Hobbs

Guest_imported · Sep 4, 2001

larryjr,

I don't beleieve this is possible because you are using two different network protocols that don't speak to each other.
You might want to try downloading the file first to a local disk and then copy the file.

fengshui_1998

larryjr · Sep 4, 2001

Hi All,

Squeezing out my brain for couple of days and asking friends
of mine,I gave up original method and seeked new one;

"XMLHTTP".

Here presenting with bloodshot eyes.
Many thanks to Eric.

I need further help from all for I am still getting the
problem with copying *.gif using this. Thanks in advance.

<SCRIPT LANGUAGE="VBScript>
'--Begin user variables--
sSource = _
"

http://www.tek-tips.com/jsource.js"

sDest = "c:\MYDOCU~1\testCopy.js"
'---End user variables---

set myXML = WScript.CreateObject("Microsoft.XMLHTTP&quot

set fso = WScript.CreateObject("Scripting.FileSystemObject&quot

myXML.open "GET", sSource, False
myXML.send
targetbody = myXML.responseBody
set myXML = nothing

sOut = ""
For i = 0 to UBound(targetbody)
sOut = sOut & _
chrw(ascw(chr(ascb(midb(targetbody,i+1,1)))))
Next

set mycopy = fso.CreateTextFile(sDest, True)
mycopy.Write sOut
mycopy.Close
set mycopy = Nothing
set fso = Nothing
WScript.Echo "Done!"
</SCRIPT>

LarryJR

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Could it possible to Copy Files From http://.. using VBScript

larryjr

Technical User

bassguy

Programmer

larryjr

Technical User

Guest_imported

New member

larryjr

Technical User

Similar threads

Part and Inventory Search

Sponsor