LISTING 1: Example That Demonstrates the SQLVDirControl
Object and Its SQLVDirs Property

Dim svdc As SQLVDIRLib.SQLVDirControl
Dim svd As ISQLVDir

Set svdc = New SQLVDirControl
svdc.Connect

For Each svd In svdc.SQLVDirs
  Debug.Print svd.Name
Next svd

With svdc.SQLVDirs
  Set svd = .AddVirtualDirectory("TestVDir")
  ' Do something with your virtual
  ' directory here. If you want
  ' to remove a folder, try this:
  .RemoveVirtualDirectory "TestVDir"
End With