|
Dobrý den. Potřeboval bych poradit. Potřebuju udělat okno s jedním tlašítkem a dvěma textbxama. Kde se mi vypíše velikost dvou složek zadaných (cesta bude zadaná ve dvou string) Již jsme našel Radu na funkci
Public Function GetDirectoryLength(ByVal path As String) As Long
'V případě že cesta ke složce nebyla nalezena, vrací velikost 0.
If Not IO.Directory.Exists(path) Then Return 0
Dim length As Long, _
parentDirectory As New DirectoryInfo(path)
Try
For Each file As FileInfo In parentDirectory.GetFiles()
length += file.Length
Next
For Each directory As DirectoryInfo In parentDirectory.GetDirectories()
length += GetDirectoryLength(directory.FullName)
Next
Catch ex As FileNotFoundException
'Soubor nebyl nalezen.
Catch ex As UnauthorizedAccessException
'Nedostatek oprávnění pro přístup k souboru nebo složce.
End Try
Return length
End Function
Ale to je na mě moc složitý a nedokážu to upravit a zprovoznit. (Možná by mi pomohlo lépe to okomentovat) Potřebuju udělat něco ve smyslu. C:\documents and settings\USER1\Data aplikací F:\documents and settings\USER1\Data aplikací A vrátit velikost obou složek po stisknutí tlačíka. (Se zybtkem si snad už poradím) Ulehčí mi to spoustu práce. Moc díky za radu. S programováním si spíš jen pohrávám a občas se zaseknu na banalitě :( A omlouvám se jestli to tu už někde je vyřešený, ale fat jsem googlil a nic čemu bych rozuměl.
|