Dim files As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
files = My.Computer.FileSystem.GetDirectories("C:\", FileIO.SearchOption.SearchTopLevelOnly)
Dim i As Integer
For i = 1 To files.Count
MsgBox(IO.Path.GetFileName(files.Item(i)))
Next
Please SUBSCRIBE to get new articles directly into your Email inbox!
files = My.Computer.FileSystem.GetDirectories("C:\", FileIO.SearchOption.SearchTopLevelOnly)
Dim i As Integer
For i = 1 To files.Count
MsgBox(IO.Path.GetFileName(files.Item(i)))
Next
Please SUBSCRIBE to get new articles directly into your Email inbox!
تعليقات
إرسال تعليق