Foldery i odpowiednie nazwy

[alex9819]

 

hey, niemalże dublikuje temat ale nie mogę rozwiązać problemu z pozyskaniem folderów z @ w nazwie przy tymczasowym wycięciu ścieżkiMam na myśli że gdy używam :

 

For Each plik As String In System.IO.Directory.GetDirectories(My.Application.Info.DirectoryPath, FileIO.SearchOption.SearchAllSubDirectories & "@*")Dim dirInfo As New System.IO.DirectoryInfo(plik)CheckedListBox1.Items.Add(dirInfo.Name)

 

Next

 

Nie mogę wyselekcjonować tylko tych z @natomiast gdy użyjeFor Each foundFile As String In My.Computer.FileSystem.GetDirectories(My.Application.Info.DirectoryPath, FileIO.SearchOption.SearchAllSubDirectories, "@*")CheckedListBox1.Items.Add(foundFile)Next

 

Otrzymuję niepotrzebną ścieżkę śmieciową gdy potrzebuje tylko @cośtam

 

[Gość]

Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        ' Make a reference to a directory.
        Dim di As New DirectoryInfo("C:\Testing\Folder List\")
        ' Get a reference to each directory in that directory.
        Dim diArr As DirectoryInfo() = di.GetDirectories()
        ' Populate Combobox.
        Dim dri As DirectoryInfo
        For Each dri In diArr
            cboxClient.Items.Add(dri.Name)
        Next dri
End Sub

1 Link w googlach

[BremLOL]

@UP