Visa storleken på en mapp

[Kranis-97]

Hej!

 

I mitt Visual Basic program jag jobbar med vilj jag visa storleken på en mapp och undermappar.

 

Finns det något enkelt sätt att göra det på?

Är tacksam för hjälp

[.M]

Du får loopa igenom samtliga filer och undermappar och räkna ihop storleken. På följande länk finns ett exempel.

 

Länk med exempel

[Kranis-97]

Expempelkoden fukade inte för mig.

Borde det inte gå med My.Computer.FileSystem.GetDirectoryInfo eller nåt liknande?

 

 

 

[.M]

Exemplet dom skapat fungerar inte att använda utan anpassningar för din kod. Men prova detta och se om det går bättre.

Public Class FolderSize
   Public Shared Sub Main()
       Dim di As DirectoryInfo = My.Computer.FileSystem.GetDirectoryInfo("D:\Temp") 'New DirectoryInfo("D:\Temp")
       Dim foldersize As Long = 0
       foldersize = DirectorySize(di, True)
       System.Console.Out.WriteLine(foldersize)
   End Sub

   Private Shared Function DirectorySize(di As DirectoryInfo, ByVal bRecursive As Boolean) As Long
       Dim Size As Long = 0
       Try
           Dim fil As FileInfo
           For Each fil In di.GetFiles()
               Size += fil.Length
           Next fil
           If bRecursive = True Then
               Dim diSubDir As DirectoryInfo
               For Each diSubDir In di.GetDirectories()
                   Size += DirectorySize(diSubDir, True)
                   'lngNumberOfDirectories += 1
               Next diSubDir
           End If
           Return Size
       Catch ex As System.IO.FileNotFoundException
           ' File not found. Take no action
       Catch exx As Exception
           ' Another error occurred
           Return 0
       End Try
       Return 0
   End Function
End Class

[Kranis-97]

Fukade tyvärr inte.

 

Type 'FileInfo' is not defined

Type 'DirectoryInfo' is not defined

 

Är inte någon jättebra programmerare ännu, gjorde kanske nåt fel?

[.M]

Du behöver raden

Imports System.IO

i början av din kod.

[Kranis-97]

Inga errors uppstod

 

,men hur använder jag variabeln fodlersize i en annan Sub?