Udskrift af dir

Klassen DirectoryInfo og metoden GetFiles.

Eksempel:

Imports System
Imports System.IO

Module Main
    Sub Main()
        Console.WriteLine(total("C:\WINNT"))
    End Sub
    Function total(dir As String) As Integer
        Dim res As Integer = 0
        Dim i As Integer
        Dim d As DirectoryInfo = new DirectoryInfo(dir)
        Dim allf As FileInfo() = d.GetFiles()
        For i = 0 To allf.Length - 1
            res = res + allf(i).Length
        Next
        Dim alld As DirectoryInfo() = d.GetDirectories()
        For i = 0 To alld.Length - 1
            res = res + total(alld(i).FullName)
        Next
        total = res
    End Function
End Module

Eksemplet finder størrelsen af filen med .Length property - du skal nok bruge
.Name eller .FullName property.

Tester det lige når jeg en gang kommer hjem

Må jeg være så fræk at sprøge, hvor du har fundet eksemplet henne? eller har du selv lige lavet det?

Eksemplet har jeg selv lavet til et tidligere spørgsmål her på Eksperten.

Okay... Snydes eller jeg hvade kikke efter det her på eksperten...

http://www.eksperten.dk/spm/419674

Og jeg mener da ikke at det er snyd at genbruge kode.

Nej, jeg mener heller ikke at det er ulovligt. Da kan jo det samme som jeg bedte om. Så er det jo fint... Takker mange gange