filer med mere

Følgende løber igennem C:\WINNT og alle under dirs:

using System;
using System.IO;

class MainClass
{
    public static void lookup(String dir)
    {
        string[] files = Directory.GetFiles(dir);
        foreach(string f in files)
        {
            Console.WriteLine(f);
        }
        string[] dirs = Directory.GetDirectories(dir);
        foreach(string d in dirs)
        {
            lookup(d);
        }
    }
    public static void Main(string[] args)
    {
        lookup("C:\\WINNT");
    }
}

Lækkert nok arne_v, men det er jo et vb.net spørgsmål... :)

Den her ligger størrelsen af filerne sammen:

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

.NET kan jo være både C# og VB.NET ...

Yes sir... sorry... Men jeg venter lige med at give pouint, for det kan være at jeg har tillægs spørgsmål... 5 min

Den første udgave i VB.NET:

Imports System
Imports System.IO

Class MainClass

    Public Shared Sub lookup(ByVal dir As String)
        Dim files As String() = Directory.GetFiles(dir)
        For Each f As String In files
            Console.WriteLine(f)
        Next
        Dim dirs As String() = Directory.GetDirectories(dir)
        For Each d As String In dirs
            lookup(d)
        Next
    End Sub

    Public Shared Sub Main(ByVal args As String())
        lookup("C:\WINNT")
    End Sub
End Class

Men et svar anyway

Den føste di lavede i vb.net gav

Additional information: Arithmetic operation resulted in an overflow.

Jeg prøver lige den anden... du for sku lige nogle point

Den virkede... tak...

Hvis jeg så laver en count variabel i

denne

--

For Each f As String In files
            Console.WriteLine(f)
        Next

--

og i den til dirs, så virker den som en counter, right?

Det var sku da et underligt spørgsmål jeg stiller der... Jeg prøver sku da bare...

Tak Arne_v

Hvis du tæller fil størrelse skal du bruge Long til > 4 GB.

Hvad skal jeg define min tælle variabel som? hvis den skal indeholde stien?

okay... Men det er mere antal filer ialt og antal dir's...

Jeg bruger denne kode:
---
Den første udgave i VB.NET:

Imports System
Imports System.IO

Class MainClass

    Public Shared Sub lookup(ByVal dir As String)
        Dim files As String() = Directory.GetFiles(dir)
        For Each f As String In files
            Console.WriteLine(f)
        Next
        Dim dirs As String() = Directory.GetDirectories(dir)
        For Each d As String In dirs
            lookup(d)
        Next
    End Sub

    Public Shared Sub Main(ByVal args As String())
        lookup("C:\WINNT")
    End Sub
End Class
---


Jeg kan sku ikke finde ud af det... måske jeg bare er træt....

Imports System
Imports System.IO

Class MainClass
    Public Shared Function count(ByVal dir As String) As Integer
        Dim res As Integer = Directory.GetFiles(dir).Length
        Dim dirs As String() = Directory.GetDirectories(dir)
        For Each d As String In dirs
            res = res + count(d)
        Next
        count = res
    End Function

    Public Shared Sub Main(ByVal args As String())
        Console.WriteLine(count("C:\WINNT"))
    End Sub
End Class

Nu har jeg lavet en counter...

Men når jeg tæller med min code for jeg et tal, og dår jeg laver en dir /s i min cmd så får jeg et andet... ? Hvorfor?

Min kode og dir/s/a (/a for hidden files) giver samme resultat 9503 på min PC.

ahh, ja, /a for hidden... sorry...

Og så lige noget hjælp til filesize, så er skal jeg nok stoppe uden flere point...

Det her virker IKKE

If files.GetLength(f) = 0 Then TextBox1.AppendText(f & vbCrLf)

Virker den også på dirs, for der er mit tal forkert, men det er måske forde at dir tæller . og .. som dirs ???

ahh, files er bare et array... skal bruge Directory.GetFiles ?

Nu stod jeg af.

Hvad er spørgsmålet ?

sorry...

Den skal tælle filer og dirs.

Og så skal jeg have en variabel med fil størrelsen i en variabel for hver fil...
altså bare en jeg kan checke størrelsen på og så gå vidre ? er du med?

Imports System
Imports System.IO

Class MainClass
    Public Shared Function count(ByVal dir As String) As Integer
        Dim res As Integer = 3
        Dim dirs As String() = Directory.GetDirectories(dir)
        For Each d As String In dirs
            res = res + count(d)
        Next
        count = res
    End Function

    Public Shared Sub Main(ByVal args As String())
        Console.WriteLine(count("C:\WINNT") - 1)
    End Sub
End Class

giver samme antal som dir/s/a

3 = sig selv + . + ..