Ad:

Visual Basic 4 / 5 / 6 Discussion Thread
Unsolved
Views: 7407

Jan 16th, 2007

Copy Folder with %Computername% and %Username% prefix

Expand Post »

Hi all,

It's been a long time since i was last logged in here. Comatose was probably glad to see the back of me and my non stop questioning ;-)

Well today i have a small question which i hope someone can help with...

Here is my question... im trying to copy a profile for the currently logged in user to specified location.

The location of the profile will presumable be,

"c:\documents and settings\" + %username%

and the destination will be,

x:\ProfileBackup\%computername%\%username%\

Here is what i thought ws right but isnt...

vb Syntax (Toggle Plain Text)
' /* Declare Variables */
 
Dim fso, src, dest
Set fso = CreateObject("Scripting.FileSystemObject")
src = "c:\documents and settings\%USERNAME%\"
dest = "x:\ProfileBackup\%computername%\%username%\"
 
If fso.FolderExists (src) Then
fso.CopyFolder (src), (dest)
End If
 
If Not fso.FolderExists (dest) Then
fso.CreateFolder (dest)
End If
' /* Declare Variables */

Dim fso, src, dest
Set fso = CreateObject("Scripting.FileSystemObject")
src = "c:\documents and settings\%USERNAME%\"
dest = "x:\ProfileBackup\%computername%\%username%\"

If fso.FolderExists (src) Then
fso.CopyFolder (src), (dest)
End If

If Not fso.FolderExists (dest) Then
fso.CreateFolder (dest)
End If

Ideally what i was trying to do (badly) was copy a users profile to a network drive to a folder named by the computername and userprofile so that there would be a different back up for each machine they logonto.

However!!!

This may prove troublesome depending on network speeds and profile size etc.. so i was also hoping someone could help and add into the script the ability to copy a single folder "Favorites" from here instead and rem it out. or the ability to copy 2 or 3 folders at a time rather than the entire profile ;-)

I hope someone can help

Thanks in advance.

Phreak ;-)

Last edited by WaltP; Jan 16th, 2007 at 2:29 pm. Reason: We have code tags to help make the code readable...

Similar Threads

Virus Of Death - Help Needed! in Viruses, Spyware and other Nasties
Deleting stupid porn hijack in Viruses, Spyware and other Nasties
Copy Files and Folders to CDs in Windows tips 'n' tweaks
Hijacked browser - how to get rid of.... in Viruses, Spyware and other Nasties
A new trojan ? in Web Browsers

Phreak

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

43 posts
since Feb 2005

Permalink

Jan 16th, 2007

Re: Copy Folder with %Computername% and %Username% prefix

Made a quick ammendment..... Still not right but better i think

vb Syntax (Toggle Plain Text)
' /* Declare Variables */
 
Dim fso, src, dest
dim wsh
set wsh = createobject("WScript.Shell")
login_name = wsh.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Logon User Name")
 
src = "C:\documents and settings\" & login_name & "\Favorites"
dest = "G:\ProfileBackup\%computername%\%username%\"
 
If fso.FolderExists "src" Then
fso.CopyFolder "src", "Dest"
End If
 
If Not fso.FolderExists "dest" Then
fso.CreateFolder "dest"
End If
' /* Declare Variables */

Dim fso, src, dest
dim wsh
set wsh = createobject("WScript.Shell")
login_name = wsh.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Logon User Name")

src = "C:\documents and settings\" & login_name & "\Favorites"
dest = "G:\ProfileBackup\%computername%\%username%\"

If fso.FolderExists "src" Then
fso.CopyFolder "src", "Dest"
End If

If Not fso.FolderExists "dest" Then
fso.CreateFolder "dest"
End If

Last edited by WaltP; Jan 16th, 2007 at 2:30 pm. Reason: Code tags added

Phreak

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

43 posts
since Feb 2005

Permalink

Jan 16th, 2007

Re: Copy Folder with %Computername% and %Username% prefix

update......

vb Syntax (Toggle Plain Text)
' /* Declare Variables */
 
Dim fso, src, dest
dim wsh
Set fso = CreateObject("Scripting.FileSystemObject")
set wsh = createobject("WScript.Shell")
login_name = wsh.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Logon User Name")
 
src = "C:\documents and settings\" & login_name & "\Favorites"
dest = "G:\ProfileBackup\%computername%\%username%\"
 
' /* Check If "Dest" exists, if not, create it */
if Not fso.FolderExists("dest") then
	fso.CreateFolder "dest"
End If
 
fso.CopyFolder src,"dest", 1
' /* Declare Variables */

Dim fso, src, dest
dim wsh
Set fso = CreateObject("Scripting.FileSystemObject")
set wsh = createobject("WScript.Shell")
login_name = wsh.RegRead("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Logon User Name")

src = "C:\documents and settings\" & login_name & "\Favorites"
dest = "G:\ProfileBackup\%computername%\%username%\"

' /* Check If "Dest" exists, if not, create it */
if Not fso.FolderExists("dest") then
	fso.CreateFolder "dest"
End If

fso.CopyFolder src,"dest", 1

Last edited by WaltP; Jan 16th, 2007 at 2:31 pm. Reason: Code tags added -- your turn

Phreak

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

43 posts
since Feb 2005

Permalink

Jan 16th, 2007

Re: Copy Folder with %Computername% and %Username% prefix

Still not working but i cant see where im going wrong.. any ideas???

Phreak

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

43 posts
since Feb 2005

Permalink

Jan 16th, 2007

Re: Copy Folder with %Computername% and %Username% prefix

Its working in my case....just made a slight modification:

visualbasic Syntax (Toggle Plain Text)

fso.CopyFolder src, dest, 1

Removed the quotes around dest ....

~s.o.s~

Super Moderator

Featured Poster

Reputation Points: 3233

Solved Threads: 719

Failure as a human

Offline

8,871 posts
since Jun 2006

Permalink

Dec 10th, 2008

Re: Copy Folder with %Computername% and %Username% prefix

The script only copies one file to the destination.

techkp

Reputation Points: 10

Solved Threads: 0

Newbie Poster

Offline

1 posts
since Dec 2008

Permalink

Dec 29th, 2008

Re: Copy Folder with %Computername% and %Username% prefix

Click to Expand / Collapse Quote originally posted by techkp ...

The script only copies one file to the destination.

Seriously... THIS THREAD was completed 2 YEARS ago !!!! the script works fine lol

2 Years... how did you not notice that?

:-)

Phreak

Reputation Points: 10

Solved Threads: 0

Light Poster

Offline

43 posts
since Feb 2005

Permalink

Dec 29th, 2008

Re: Copy Folder with %Computername% and %Username% prefix

*Just Smiles*

Comatose

Team Colleague

Reputation Points: 361

Solved Threads: 214

Taboo Programmer

Offline

2,413 posts
since Dec 2004

This thread is more than three months old

No one has posted to this discussion for at least three months. Please let old threads die and do not reply to them unless you feel you have something new and valuable to contribute that absolutely must be added to make the discussion complete. Otherwise, please start a new thread in this forum instead.

Previous Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Fill textboxes from listbox selection from Access db

Next Thread in Visual Basic 4 / 5 / 6 Forum Timeline: Portability

DaniWeb Message

Cancel Changes

User Name
Password