Solved

Copy Files From Local Server to Remote Server Using ASP

Posted on 2003-11-17
8
2,604 Views
Last Modified: 2010-08-05
Hi All,

I need some help to copy files from local server to remote server using ASP.

Iam uploading a file to local server using ASP upload and i want to copy the same file to the remote server.

Can i get any code to copy files from local server to remote server.

Thanks and Regrads
kkkani


0
Comment
Question by:kkkani
  • 4
  • 2
  • 2
8 Comments
 
LVL 9

Expert Comment

by:TooKoolKris
ID: 9765803
You can use the CopyFile method to copy files. You need to have a FileSystemObject set first however.

Set fso = CreateObject("Scripting.FileSystemObject")
fso.copyfile "source path", "destination path", overwrite

The overwrite argument being true or false, its true by default.

You can also use the plain Copy method as well but you need to get the file first.

Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.GetFile("c:\testfile.txt")
MyFile.Copy ("c:\windows\desktop\test2.txt")

 
0
 

Expert Comment

by:lastockUSDA
ID: 9766185
But can I use this to copy from the clients pc to the web server?

I get path not found even when I use server.mappath.

Any suggestions?
0
 
LVL 9

Expert Comment

by:TooKoolKris
ID: 9767458
Sure you can add additional statements that can create a mapped drive on the fly and then delete it when you are done with it. You will have to have admin privledges to be able to accomplish these with little problem though. So you need a small script that will:

1.) Create a connection to the sevrer.
2.) Copy files to the server.
3.) Terminate connection.

Correct?
0
The Eight Noble Truths of Backup and Recovery

How can IT departments tackle the challenges of a Big Data world? This white paper provides a roadmap to success and helps companies ensure that all their data is safe and secure, no matter if it resides on-premise with physical or virtual machines or in the cloud.

 
LVL 21

Accepted Solution

by:
ap_sajith earned 150 total points
ID: 9769259
0
 
LVL 9

Expert Comment

by:TooKoolKris
ID: 9770828
Set WshNetwork = WScript.CreateObject("WScript.Network")
Set fso = CreateObject("Scripting.FileSystemObject")

WshNetwork.MapNetworkDrive "x:", "\\YourServer\YourShare"
Set MyFile = fso.GetFile("c:\the file you want to copy.txt")
MyFile.Copy ("x:\YourDestination")
WshNetwork.RemoveNetworkDrive "x:"
0
 

Expert Comment

by:lastockUSDA
ID: 9771279
Thanks for the help TooKoolKris however:
When I tried the WScript code you just posted I get:
Microsoft VBScript runtime error '800a01a8'
Object required: 'WScript'
 
By the way this is a Web application using VBScript, JavaScript, HTML in ASP.
I need the file from the users pc, which I find with <INPUT type=file>,  to be copied/uploaded to the web server. With the code below I get
Microsoft VBScript runtime error '800a004c'
Path not found

Dim fso, f
src=str_FilePath ' path on users pc
des=(Server.MapPath("../files/")) ' It maps as c:\inetpub\wwwroot\webapp\files
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.CopyFile(src, des, OverWriteFiles)
f.Close

Your help is greatly appreciated.
0
 
LVL 9

Expert Comment

by:TooKoolKris
ID: 9772547
Well I can't explain why you're getting errors with that code bacause I've tested it fine on XP and 2000 Pro & Server and it works just fine on all three.

With the code that you are using, have you created a share on the server to where you want these files to be copied? Simply trying to map the drive to any ole file path isn't going to work. You need to create a share to map to.
0
 
LVL 21

Expert Comment

by:ap_sajith
ID: 9776134
@lastockUSDA, Did you go through the old question?. Read through the entire post ....Its fairly informative on the permissions issues involved.

As for the error with the code posted by TooKoolKris, change the code to

'>>Set WshNetwork = WScript.CreateObject("WScript.Network")<<
Set WshNetwork = Server.CreateObject("WScript.Network")
Set fso = CreateObject("Scripting.FileSystemObject")

WshNetwork.MapNetworkDrive "x:", "\\YourServer\YourShare"
Set MyFile = fso.GetFile("c:\the file you want to copy.txt")
MyFile.Copy ("x:\YourDestination")
WshNetwork.RemoveNetworkDrive "x:"

Cheers!!
0

Featured Post

3 Use Cases for Connected Systems

Our Dev teams are like yours. They’re continually cranking out code for new features/bugs fixes, testing, deploying, testing some more, responding to production monitoring events and more. It’s complex. So, we thought you’d like to see what’s working for us.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

Title # Comments Views Activity
classic asp checkbox uncheck and check 2 62
ASP Button to clear text 4 54
JS does not refresh 6 20
Index on a Table 6 14
I have helped a lot of people on EE with their coding sources and have enjoyed near about every minute of it. Sometimes it can get a little tedious but it is always a challenge and the one thing that I always say is:  The Exchange of information …
Have you ever needed to get an ASP script to wait for a while? I have, just to let something else happen. Or in my case, to allow other stuff to happen while I was murdering my MySQL database with an update. The Original Issue This was written…
This Micro Tutorial will give you a basic overview how to record your screen with Microsoft Expression Encoder. This program is still free and open for the public to download. This will be demonstrated using Microsoft Expression Encoder 4.
This tutorial gives a high-level tour of the interface of Marketo (a marketing automation tool to help businesses track and engage prospective customers and drive them to purchase). You will see the main areas including Marketing Activities, Design …

772 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question