?
Solved

Need a script to copy files from a local drive to a folder at another location

Posted on 2016-10-06
18
Medium Priority
?
78 Views
Last Modified: 2016-10-07
We use Citrix server from our remote location to access files at our LA office.  When on Citrix I need to copy two files or the entire folder from the local computer to a folder in LA.  
I tried modifying an existing script (that I didn't write and don't know how to) but it didn't work.  Below is the source and path I need.

strSource = "\\client\c$\paw_palace"
strDest = "\\databases\access2015\Paw_Palace"
0
Comment
Question by:J.R. Sitman
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 9
  • 9
18 Comments
 
LVL 51

Expert Comment

by:Gustav Brock
ID: 41833041
As you don't reveal your secret script, you can study one that works the other way round:

Deploy and update a Microsoft Access application in a Citrix environment

It should be nothing more than reduce it to the copying part and reverse the local and remote folder.

/gustav
0
 

Author Comment

by:J.R. Sitman
ID: 41833621
That script I'm sure is great, but completely over my head.   Below is what we currently use to copy photos from a local folder to a folder over our network.  All I want to do is copy two files from a local folder to a remote folder.  

I tried changing this script but it doesn't work.   I think because of the portion of the code that uses monthname.

How do I modify this code or can you create one for me, please?


Option Explicit
Dim strSource, strDest, strFolderName, strFolderPath
Dim objFSO

strSource = "\\client\c$\photos"
strDest = "\\fileserver\community files\Public Files\Pet-Ark"

strFolderName = Right("0" & Day(Date), 2) & _
    MonthName(Month((Date))) & Year(Date) & "-SB"
   
   
strFolderPath = strSource & "\" & strFolderName


Set objFSO = CreateObject("Scripting.FileSystemObject")


objFSO.CopyFolder strFolderPath, strDest & "\" & strFolderName, True


WScript.Echo strFolderPath & " copied to " & strDest & "\" & strFolderName
0
 
LVL 51

Expert Comment

by:Gustav Brock
ID: 41833657
You probably need quotes around the paths:

strFolderPath = Chr(34) & strSource & "\" & strFolderName & Chr(34)

/gustav
0
Is Your AD Toolbox Looking More Like a Toybox?

Managing Active Directory can get complicated.  Often, the native tools for managing AD are just not up to the task.  The largest Active Directory installations in the world have relied on one tool to manage their day-to-day administration tasks: Hyena. Start your trial today.

 

Author Comment

by:J.R. Sitman
ID: 41833851
I think you misunderstood.  The script I posted works fine.  I need a new one
0
 
LVL 51

Expert Comment

by:Gustav Brock
ID: 41833877
Oh, then you use the CopyFile method:

    objFSO.CopyFile SourcePath, DestinationPath

where both parameters are the full path/file names, for you like: \\server\folder\filename

/gustav
0
 

Author Comment

by:J.R. Sitman
ID: 41833887
Below is the script I'm trying to get to work.  Would you please modify it for me?  

Option Explicit
Dim strSource, strDest, strFolderName, strFolderPath
Dim objFSO

strSource = "\\client\c$\pawpalace"
strDest = "\\databases\access2015\pawpalace"

Set objFSO = CreateObject("Scripting.FileSystemObject")


objFSO.CopyFolder strFolderPath, strDest & "\" & strFolderName, True


WScript.Echo strFolderPath & " copied to " & strDest & "\" & strFolderName
0
 

Author Comment

by:J.R. Sitman
ID: 41833891
I get this

script.png
0
 
LVL 51

Expert Comment

by:Gustav Brock
ID: 41833901
It could be:
Option Explicit
Dim strSource, strDest, strFolderName, strFolderPath
Dim objFSO

Set objFSO = CreateObject("Scripting.FileSystemObject")

strSource = "\\client\c$\pawpalace"
strDest = "\\databases\access2015\pawpalace"
strFile = "YourFile.png"

objFSO.CopyFile strSource & "\" & strFile,  strDest & "\"

WScript.Echo strSource & "\" & strFile & " copied to " & strDest & "\"

Open in new window

/gustav
0
 

Author Comment

by:J.R. Sitman
ID: 41833911
got this

script2.png
0
 
LVL 51

Expert Comment

by:Gustav Brock
ID: 41833918
Seems right.
Include strFile in the Dim line. And remove strFolderName, strFolderPath.

/gustav
0
 

Author Comment

by:J.R. Sitman
ID: 41833931
That worked.   How do I have it copy two files?   My test is currently only one.  see working script

Option Explicit
Dim strSource, strDest, strFile
Dim objFSO

Set objFSO = CreateObject("Scripting.FileSystemObject")

strSource = "\\client\c$\pawpalace"
strDest = "\\databases\access2015\pawpalacebackup"
strFile = "pp.mdb"

objFSO.CopyFile strSource & "\" & strFile,  strDest & "\"

WScript.Echo strSource & "\" & strFile & " copied to " & strDest & "\"
0
 
LVL 51

Accepted Solution

by:
Gustav Brock earned 2000 total points
ID: 41833939
Well, just run the command twice:
Option Explicit
Dim strSource, strDest, strFile, strFile2
Dim objFSO

Set objFSO = CreateObject("Scripting.FileSystemObject")

strSource = "\\client\c$\pawpalace"
strDest = "\\databases\access2015\pawpalacebackup"
strFile = "pp.mdb"
strFile2 = "pp2.mdb"

objFSO.CopyFile strSource & "\" & strFile,  strDest & "\"
objFSO.CopyFile strSource & "\" & strFile2,  strDest & "\"

Open in new window

/gustav
0
 

Author Comment

by:J.R. Sitman
ID: 41833951
Perfect.  Thanks very much for doing this.
0
 
LVL 51

Expert Comment

by:Gustav Brock
ID: 41833956
You are welcome!

/gustav
0
 

Author Comment

by:J.R. Sitman
ID: 41833999
Can a message be added that tells them when it is complete?
0
 
LVL 51

Expert Comment

by:Gustav Brock
ID: 41834008
Yes, append this line:

    MsgBox "Two files copied.", 64, "File Copy"

/gustav
0
 

Author Comment

by:J.R. Sitman
ID: 41834023
Worked.

Thanks again
0
 
LVL 51

Expert Comment

by:Gustav Brock
ID: 41834099
Have a nice weekend!

/gustav
0

Featured Post

Manage your data center from practically anywhere

The KN8164V features HD resolution of 1920 x 1200, FIPS 140-2 with level 1 security standards and virtual media transmissions at twice the speed. Built for reliability, the KN series provides local console and remote over IP access, ensuring 24/7 availability to all servers.

Question has a verified solution.

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

Originally, this post was published on Monitis Blog, you can check it here . It goes without saying that technology has transformed society and the very nature of how we live, work, and communicate in ways that would’ve been incomprehensible 5 ye…
This article explains the fundamentals of industrial networking which ultimately is the backbone network which is providing communications for process devices like robots and other not so interesting stuff.
Get a first impression of how PRTG looks and learn how it works.   This video is a short introduction to PRTG, as an initial overview or as a quick start for new PRTG users.
NetCrunch network monitor is a highly extensive platform for network monitoring and alert generation. In this video you'll see a live demo of NetCrunch with most notable features explained in a walk-through manner. You'll also get to know the philos…
Suggested Courses

764 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