Trådstart#1
Imports System.IO
Module Module1
Sub Main()
Dim di As DirectoryInfo = New DirectoryInfo("c:\")
Dim fsi As FileSystemInfo
For Each fsi In di.GetFileSystemInfos() ' or search pattern ("\*.\*")
If TypeOf fsi Is FileInfo Then
Console.WriteLine("it's a file: {0}", fsi.FullName)
Else
Console.WriteLine("it's a sub-dir: {0}", fsi.FullName)
End If
Next
End Sub
End Module
Hur ska jag använda den här koden? Har testat lite, men det blir inte rätt
(Jo, jag vet, postade helt fel, men jag kan inte ta bort )