Dim files As System.Collections.ObjectModel.ReadOnlyCollection(Of String)
files = My.Computer.FileSystem.GetFiles("C:\", FileIO.SearchOption.SearchTopLevelOnly, "*.*")
Dim i As Integer
For i = 1 To files.Count
MsgBox(IO.Path.GetFileName(files.Item(i)))
Next
files = My.Computer.FileSystem.GetFiles("C:\", FileIO.SearchOption.SearchTopLevelOnly, "*.*")
Dim i As Integer
For i = 1 To files.Count
MsgBox(IO.Path.GetFileName(files.Item(i)))
Next
تعليقات
إرسال تعليق