Moving folders and files

[larsjuhl]

Hi there,
I want to move all files and folders when a user logs on.
for an example when they log on I want to copy all files and folders from the users G: driver to their H: drive

I have this script from ms:

Const OverWriteFiles = True
Set objFSO = CreateObject("Scripting.FileSystemObject&quot
objFSO.CopyFolder "C:\Scripts" , "C:\FSO" , OverWriteFiles

but this wont do from g: to H: I have to specify a folder and that is not enough I need the whole drive, this is for 40 users and their homedrive I need to move so I cannot use UNC path since every user has a different homedrive share on server.

anyone who has a script ?

I very new to script and hoping for a fast solution.. )

thx in advance

 

[jemminger]

you're saying this won't work for you?

Const OverWriteFiles = True
Set objFSO = CreateObject("Scripting.FileSystemObject&quot
objFSO.CopyFolder "G:\userFolderName" , "H:\userFolderName" , OverWriteFiles



=========================================================
-jeff

http://www.jeffemminger.com

try { succeed(); } catch(E) { tryAgain(); }

 

[larsjuhl]

Hi jeff,
no that will work but this wont

Const OverWriteFiles = True
Set objFSO = CreateObject("Scripting.FileSystemObject&quot
objFSO.CopyFolder "G:\" , "H:\" , OverWriteFiles

I dont have a folder only the whole drive

thanks

 

[tsuji]

Hello,

Is it great fun, scripting?

If you use
objFSO.CopyFolder "G:\*" , "H:\" , OverWriteFiles

you should get all the subfolders under the root copied all right, but not the files directly under the root.

So in any case, you need a two-step process. I would prefer in this case deal directly with the folder object.

'-----
Option Explicit
Dim objFSO, objRoot, objFile, objSubfolder
Const OverWriteFiles = True
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objRoot=objFSO.GetFolder("G:")
For Each objFile In objRoot.Files
     objFile.Copy "H:\", OverWriteFiles
Next
For Each objSubfolder In objRoot.Subfolders
     objSubfolder.Copy "H:\", OverWriteFiles
Next
Set objSubfolder=Nothing
Set objFile=Nothing
Set objRoot=Nothing
Set objFSO=Nothing
'-----

regards - tsuji

 

[ClayG]

Might be easier to Shell-run "xcopy".