Dim fso, fldr, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = fso.GetFolder("c:")
MsgBox "Parent folder name is: " & fldr
MsgBox "Contained on drive " & fldr.Drive 
If fldr.IsRootFolder = True Then
      MsgBox "This is the root folder." 
Else
      MsgBox "This folder isn't a root folder."  
End If
fso.CreateFolder ("C:\testFolder")
MsgBox "Created folder C:\testFolder" 
MsgBox "Basename = " & fso.GetBaseName("c:\testFolder") 
fso.DeleteFolder ("C:\testFolder")
MsgBox "Deleted folder C:\testFolder"