{currenthelptext} {product} {helptype} {viewcore}

Sub Main()
   Dim DST As String
 
   DST = "t1"
   MkDir DST
   MkDir "t2"
End Sub