Hvordan hente mappe størrelse via DirectoryInfo

[miXer]

Hei.

 

Jeg bruker 'IO.DirectoryInfo' for å hente ut info om en mappe, men jeg kan ikke finne noen måte å hente ut størrelsen på mappen. Noen som vet hvordan jeg kan få til det?

[GeirGrusom]

Mener du hvor stor plass alle filene tar?

Da må du gå igjennom alle filene og rekursere undermappene.

Du finner filer med DirectoryInfo.GetFiles

[Manfred]

Mappen er vel alltid rundt 4kb, så han skal nok vite størrelsen på filene i den, ja

[backup]

Det kan gjøres mye enklere da som f.eks.:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
	Dim fso As Object, path As String, minMappe As Object
	fso = CreateObject("scripting.filesystemobject")
	'tast inn mappeadressa som f.eks. c:\Program Files
	path = TextBox1.Text
	If fso.FolderExists(path) Then
		minMappe = fso.GetFolder(path)
		Label1.Text = (minMappe.size)
		Label1.Text = path & ", Size = " & Label1.Text & " bytes"
	Else
		Label1.Text = "Mappa " & path & " eksisterer ikke!"
	End If
End Sub

[Manfred]

Jeg trodde man helst unngikk å bruke CreateObject-shiten til VB, jeg...

[GeirGrusom]

Public Function GetFolderSize(ByVal folder As String) As Long
 Return GetFolderSize(New DirectoryInfo(folder))
End Function

Public Function GetFolderSize(ByVal folder As DirectoryInfo) As Long
 Dim ret As Long = 0
 Dim files As FileInfo()
 Dim dirs As DirectoryInfo()

 ' Hent filstørrelse på alle filer i mappen
 files = folder.GetFiles()
 For Each file As FileInfo In files
ret += file.Length
 Next

 ' Rekurser gjennom alle undermapper
 dirs = folder.GetDirectories()
 For Each dir As DirectoryInfo In dirs
ret += GetFolderSize(dir)
 Next

 Return ret
End Function

Denne returnerer størrelsen på alle filer i antall byte.

[Degeim]

Rekursiv funksjon er vel strengt tatt unødvendig; det holder å angi riktig searchoption:

 

Public Function GetFolderSize(ByVal folder As String) As Long
	Return GetFolderSize(New DirectoryInfo(folder))
End Function

Public Function GetFolderSize(ByVal folder As DirectoryInfo) As Long
	Dim ret As Long = 0
	Dim files As FileInfo()
	Dim dirs As DirectoryInfo()

	' Hent filstørrelse på alle filer i mappen og undermapper
	files = folder.GetFiles("*", SearchOption.AllDirectories)
	For Each file As FileInfo In files
		ret += file.Length
	Next

	Return ret
End Function

[Manfred]

Rekursivt er gøyere

[GeirGrusom]

Ah! det funker også ja

[miXer]

Rekursiv funksjon er vel strengt tatt unødvendig; det holder å angi riktig searchoption:

 

Public Function GetFolderSize(ByVal folder As String) As Long
	Return GetFolderSize(New DirectoryInfo(folder))
End Function

Public Function GetFolderSize(ByVal folder As DirectoryInfo) As Long
	Dim ret As Long = 0
	Dim files As FileInfo()
	Dim dirs As DirectoryInfo()

	' Hent filstørrelse på alle filer i mappen og undermapper
	files = folder.GetFiles("*", SearchOption.AllDirectories)
	For Each file As FileInfo In files
		ret += file.Length
	Next

	Return ret
End Function

 

Hei.

Takk for svar.

 

Får at det ikke skulle komme feilmeldinger måtte jeg legge til IO. forran DirectoryInfo og FileInfo, men de tingene her gjør jo ingen verdens ting. Må jeg linke en knapp til dette eller hvordan fungerer dette?

[GeirGrusom]

Dette er programmering ikke magi, ikke regn med at datamaskin har den minste peiling på hva du prøver på.

 

Dette er en funksjon som returnerer long (altså 64-bit heltall)

Dette heltallet er antall byte som alle filene bruker.

[miXer]

Her er koden jeg bruker:

 

Public Function GetFolderSize(ByVal folder As String) As Long
	Return GetFolderSize(New IO.DirectoryInfo(folder))
End Function

Public Function GetFolderSize(ByVal folder As IO.DirectoryInfo) As Long
	Dim ret As Long = 0
	Dim files As IO.FileInfo()
	'Dim dirs As IO.DirectoryInfo()

	' Hent filstørrelse på alle filer i mappen og undermapper
	files = folder.GetFiles("*", IO.SearchOption.AllDirectories)
	For Each file As IO.FileInfo In files
		ret += file.Length
	Next

	Return ret
End Function

 

Altså det jeg mener er når denne koden er lagt til å programmet så blir den ikke kjørt. Programmet bryr seg ikke om at koden ligger der. Må jeg opprette en knapp på formen og akrivere koden ved button1.click? Og hvordan gjør jeg det?

Regner ikke med at ting fungerer av seg selv!

[GeirGrusom]

Selvsagt gjør du det... vi skriver ikke programmet for deg...

 

Du må få koden til å kjøre, og du må presentere resultatet, hvordan er opp til deg.

[miXer]

Altså det jeg spør om er hvordan jeg får koden til å kjøre. Trenger ikke selve koden, men hvordan jeg går frem.

[GeirGrusom]

Dim size As Long = GetFolderSize("C:\Windows")
MessageBox.Show(size.ToString())

[miXer]

Tusen takk. Det hjalp stort!

[Manfred]

Det er lov til å gjøre et forsøk, og kanskje ikke bare regne med at alle skal skrive koden til deg!

[miXer]

Det er lov til å gjøre et forsøk, og kanskje ikke bare regne med at alle skal skrive koden til deg!

 

Jeg har ikke regnet med at dere skal skrive koden for meg. Men jeg spurte etter et eksempel på hvordan å få noe sånt til å kjøre forde jeg aldri har vært borti å lage egne public functions. Har frem til nå bare brukt privat sub objekt.Action subs.

 

Takk for hjelpen. Jeg har nå klart å få frem størrelsen på filene i mappen!

[miXer]

Når jeg f.eks velger at programmet skal sjekke størrelsen på en hel diskstasjon(C:\) så kommer den opp med en feilmelding hvor det står: 'Ingen tilgang til banen C:\etellerannet'. Denne feilmeldingen kommer opp når programmet prøver å legge filene inn i et IO.FileInfo() objekt. Så da må jeg vel få programmet på en måte til å ikke ta med de filene den ikke kan lese. Regner med at dette gjøres med kommandoen IsReadOnly?

Men hvordan skal jeg få sjekket igjennom filene om de er readonly før de legges til i IO.FileInfo() objektet?

[j000rn]

Nei. Du får ikke sjekket størrelse på mapper / filer du ikke har tilgang til. Og det har ikke noe med "Read-Only". Read-only sier om filene kan skrives til eller ikke, men det hjelper lite om du ikke har tilgang.