Public Function CopySubDirStructure _
      (ByVal BaseDir As String, _
       ByVal NewDir As String) As Boolean
 
    Try
        BaseDir = BaseDir.ToUpper
        NewDir = NewDir.ToUpper
        Dim d As New IO.DirectoryInfo(BaseDir)
 
        Dim dirlist As List(Of IO.DirectoryInfo) = _
        d.GetDirectories("*", IO.SearchOption.AllDirectories).ToList
 
        For i As Integer = 0 To dirlist.Count - 1
           Dim sd As String = dirlist(i).FullName.ToUpper
           sd = sd.Replace(BaseDir, NewDir)
           IO.Directory.CreateDirectory(sd)
        Next i
        Return True
     Catch
        Return False
     End Try
End Function