Create a folder share in VBScript 1

[sayseal75]

How do I create a share on a local folder on an NT Machine using VBScript??? HELP, I'm a newbie!

 

[FengShui1998]

sayseal75,

For Windows NT,

Set Fso = CreateObject("Scripting.FileSystemObject&quot
Set WshShell = Wscript.CreateObject("Wscript.Shell&quot

Set fldr = fso.CreateFolder("I:\foldername&quot
cmdline = "net share " & "YourShareName" & "=" & "I:\foldername"
Return = WshShell.Run(cmdline, 0, TRUE)


For W2K,
set FservObj = GetObject("WinNT://servername/lanmanserver&quot
set newshare = FservObj.create("fileshare", "YourShareName&quot
newshare.path = "I:\foldername"
newshare.description = "Description here"
newshare.SetInfo

Cheers,
fengshui1998

 

[Palooka]

Ah... thanks.

Palooka

 

[sayseal75]

That works great if you don't need to put quotes around your folder name because there are spaces in the path (ex. "c:\Program Files\MTS&quot. What is the syntax for this? I have tried all kinds of combinations...

 

[tsuji]

Hello, sayseal75.

If the I:\foldername in FengShui1998's script up there, for you, is c:\Program Files\MTC, then you just replace everywhere :

"I:\foldername" [literal, including "s]
by
chr(34) & "c:\Program Files\MTC" & chr(34)
or, more clumsily,
"""" & "c:\Program Files\MTC" & """"

regards - tsuji