VBScript: Mount Folders as Virtual Drive

This VBSCript code is based on basic windows command

SUBST [X:] [A:\B\]

X is Drive Letter. A:\B\ indicates Folder Mounting. There are many other ways to do this, I'll publish them here later.

Method 1:
Use this VBScript code:

On Error Resume Next Dim gWS, gFSO, gChoice, gPath, gLetter Set gWS = WScript.CreateObject("WScript.Shell") Set gFSO = CreateObject("Scripting.FileSystemObject") gChoice = InputBox("FolderMounter" & vbcrlf & _ " 1. Mount A Folder" & vbcrlf & _ " 2.Unmount", _ "FolderMounter", 1) If gChoice = 1 Then gPath = InputBox("Enter The Path:","Path","Drive:Path") gLetter = InputBox ("Enter The Drive Letter to Assign:","Drive Letter","Z:") gFSO.OpenTextFile("Temp.bat",2,True).Write "Subst "_ & gLetter & """" & gPath & """" gWS.Run "Temp.bat" WScript.Sleep 1000 gFSO.DeleteFile "Temp.bat",True if gFSO.DriveExists(Letter&"\") = "True" Then MsgBox "The Folder "& gPath &" is Mounted as Drive " & gLetter & " ", _ vbInFormation, "Mounter" WScript.Quit Else MsgBox "Invalid Input """ & gPath & """ or """ & gLetter & """", vbCritical, "Error" WScript.Quit End If End if If Choice = "2" Then gLetter = InputBox ("Enter The Drive Letter: ","Drive Letter","Z:") gFSO.OpenTextFile("Temp.bat",2,True).Write "Subst "& gLetter & " /d" gWS.Run "Temp.bat" WScript.Sleep 1000 gFSO.DeleteFile "Temp.bat",True If gFSO.DriveExists(Letter&"\") = "False" Then MsgBox "The Drive "& gLetter & " is UnMounted SuccessFully", vbInFormation,"Mounter" WScript.Quit Else MsgBox "Can't Unmount The Drive """ & gLetter & """ ,vbcritical, "Mounter" WScript.Quit End If End If

You may also like: VBSCript Speaker using sAPI.SPVoice object
Get Html source code of any webpage using vbs
Key board Lights fake virus using vbs

Tags: vbs virtual drive, vbs mount