Create a folder on desktop via Vbscript

Question

I have 2 scripts but could not combine them

Create a folder script

Option Explicit
Dim objNetwork, objComputer
Dim objFSO, objFSOText, objFolder, objFile
Dim strDirectory, strFile, MakeObject

strDirectory = "Folder"
Set objFSO = CreateObject("Scripting.FileSystemObject")

If objFSO.FolderExists(strDirectory) Then
Wscript.Echo strDirectory & " already exists"
Else
'Below is the added line
Set objFolder = objFSO.CreateFolder(strDirectory)
Wscript.Echo "The folder " & strDirectory & " has just been created"
End if

Wscript.Quit

desktop path script

set WshShell = WScript.CreateObject("WScript.Shell")
strDesktop = WshShell.SpecialFolders("Desktop")
wscript.echo(strDesktop)

Con some one help me please ?

Which part specifically are you struggling with?

Bond
– Bond

2015-07-23 20:04:02 +00:00
Commented Jul 23, 2015 at 20:04 — Bond
– Bond, Commented Jul 23, 2015 at 20:04

Ekkehard.Horner · Accepted Answer · 2015-07-23 20:36:30Z

4

Use .BuildPath to combine the Desktop folder path and the intended (sub)folder(name):

>> Set objFSO = CreateObject("Scripting.FileSystemObject")
>> Set WshShell = WScript.CreateObject("WScript.Shell")
>> strDirectory = "Folder"
>> strDirectory = objFSO.BuildPath(WshShell.SpecialFolders("Desktop"), strDirectory)
>> WScript.Echo strDirectory
>>
C:\Documents and Settings\eh\Desktop\Folder

edited Jul 23, 2015 at 20:36

answered Jul 23, 2015 at 20:17

Ekkehard.Horner

38.8k2 gold badges50 silver badges101 bronze badges

Sign up to request clarification or add additional context in comments.

1 Comment

Klavyen Over a year ago

thank you Ekkehard.Horner but if I try to run it give me "WshShell undefined" error I am Novice maybe my failure

Collectives™ on Stack Overflow

Create a folder on desktop via Vbscript

1 Answer 1

1 Comment

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

1 Comment

Your Answer

Sign up or log in

Post as a guest

Related