Solved

VB script to create folder to a user profile

Posted on 2013-05-16
8
507 Views
Last Modified: 2013-05-18
Hello,

I have this simple VB script to create a folder to user's profile which works to some extent. The problem I am running into is the profiles in the home directory have a (.cloud) extension (example= jondoe.cloud) The VB script below just recognizes the user name, but not the .cloud. Any ideas anyone??

Dim objFSO, strFolder
strFolder = "\\XXX.local\Site\Home$\%USERNAME%\WINDOWS\Fonts"
Set objFSO = CreateObject("Scripting.FileSystemObject")
If Not objFSO.FolderExists(strFolder) Then
   objFSO.CreateFolder(strFolder)
End If

Thanks,

JV
0
Comment
Question by:juniorval01
  • 3
  • 2
  • 2
  • +1
8 Comments
 
LVL 16

Expert Comment

by:santoshmotwani
ID: 39173454
have you tried using "%UserProfile% variable instead on Username?
0
 
LVL 51

Expert Comment

by:Bill Prew
ID: 39173469
Can't you just add it in to the path, like:

strFolder = "\\XXX.local\Site\Home$\%USERNAME%.cloud\WINDOWS\Fonts"

~bp
0
 
LVL 65

Assisted Solution

by:RobSampson
RobSampson earned 150 total points
ID: 39173820
Or the .cloud might be the domain:
strFolder = "\\XXX.local\Site\Home$\%USERNAME%.%USERDOMAIN%\WINDOWS\Fonts"

Rob.
0
 

Author Comment

by:juniorval01
ID: 39175501
Thanks guys for the responses back.

@Rob, I have added the .%USERDOMAIN% and I was able to navigate to the location which is great. But it wont create the folder "FONTS".

Line: 5
Char: 4
Error: Path not found
Code: 800A004C

Any ideas?
0
How your wiki can always stay up-to-date

Quip doubles as a “living” wiki and a project management tool that evolves with your organization. As you finish projects in Quip, the work remains, easily accessible to all team members, new and old.
- Increase transparency
- Onboard new hires faster
- Access from mobile/offline

 
LVL 51

Accepted Solution

by:
Bill Prew earned 350 total points
ID: 39175566
That's typically due to one of the higher level folders not already existing.  VB isn't like the DOS "mkdir" command, which will automatically create all higher level folders.  In VB you have to make sure each parent exists before creating children.

Typically there are two approaches to solving this.  One is to just shell out to a DOS command and use the MKDIR command for the folder creation.  The other is to use a function that walks down the folders in the path you want to ultimately create and adds any missings ones using VB commands.

I know Rob is up on all of this and can guide you in the code needed, so I won't interfere unless he can't get to this and then I'll lend a hand.  Here's some example code if you want to tackle it on your own.

http://stackoverflow.com/questions/4407386/help-to-create-folder1-folder2-in-windows-using-vbscript-both-the-folders-not

~bp
0
 

Author Closing Comment

by:juniorval01
ID: 39175753
@BP,

I went ahead and went with the info you sent me and worked as you expected.

Many thanks to BP and Rob!
0
 
LVL 51

Expert Comment

by:Bill Prew
ID: 39175889
Welcome, glad that helped.

~bp
0
 
LVL 65

Expert Comment

by:RobSampson
ID: 39176997
Thanks Bill for the support.  Thanks JV for the assist points.  Glad to help.

Rob.
0

Featured Post

Netscaler Common Configuration How To guides

If you use NetScaler you will want to see these guides. The NetScaler How To Guides show administrators how to get NetScaler up and configured by providing instructions for common scenarios and some not so common ones.

Join & Write a Comment

Active Directory replication delay is the cause to many problems.  Here is a super easy script to force Active Directory replication to all sites with by using an elevated PowerShell command prompt, and a tool to verify your changes.
Create and license users in Office 365 in bulk based on a CSV file. A step-by-step guide with PowerShell script examples.
The viewer will learn how to count occurrences of each item in an array.
The viewer will learn the basics of jQuery, including how to invoke it on a web page. Reference your jQuery libraries: (CODE) Include your new external js/jQuery file: (CODE) Write your first lines of code to setup your site for jQuery.: (CODE)

743 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

Need Help in Real-Time?

Connect with top rated Experts

15 Experts available now in Live!

Get 1:1 Help Now