Write a program to print current drive name

filespec = "C:\Program Files\"
Set fso = CreateObject("Scripting.FileSystemObject")
Set fsoobj = fso.GetFolder(filespec)
Set fsodri = fso.getdrive(fso.getdrivename(filespec))
'Display the Root folder
fRoot = fsodri.rootfolder
MsgBox fRoot