|
Dobrý den,
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim slozky As Collections.ObjectModel.ReadOnlyCollection(Of String) = _
Microsoft.VisualBasic.FileIO.FileSystem.GetDirectories("D:\", FileIO.SearchOption.SearchAllSubDirectories)
Dim i As Integer
For i = 0 To slozky.Count - 1
TextBox1.Text &= slozky(i) & Environment.NewLine
System.Windows.Forms.Application.DoEvents()
Next
End Sub
Chtěl bych se zeptat zda, lze vypisovat jen složky s povoleným přístupem. Když dám vypisovat třeba disk D:\ u systémových složek nahlásí přístup odepřen.
|