Dim dirs as String() = IO.Directory.Get Directories(url)
Dim diInfo as DirectoryInfo
Dim fils As String() = IO.Directory.GetFiles(url,"*.*")
Dim dir As String
For Each diInfo in dirs
  fils = diInfo.GetFiles
  For Each dir In fils 
    cm(dir.Replace(fbd.SelectedPath & "\", i & ". ")) 
  Next 
Next