| Вопрос: Узнать размер файла и папки | Добавлено: 28.04.07 10:28 |
Автор вопроса:  ZXC
|
| Ответы | Всего ответов: 18 |
|
Номер ответа: 16 Автор ответа:  BUMM ® Вопросов: 8 Ответов: 482 |
Профиль | | #16 | Добавлено: 29.04.07 00:06 |
|
Dim DirSize As Int64 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  irSize = 0
Dim dlgRes As DialogResult Dim DirDlg As New FolderBrowserDialog dlgRes = DirDlg.ShowDialog() Select Case dlgRes Case Windows.Forms.DialogResult.OK Razmer(DirDlg.SelectedPath) MsgBox("Razmer : " & DirSize.ToString & "bytes" 
End Select End Sub Private Sub Razmer(ByVal Path As String) Dim DirInfo As New System.IO.DirectoryInfo(Path) For Each FI As IO.FileInfo In DirInfo.GetFiles() irSize += FI.Length
Next For Each SubDir As IO.DirectoryInfo In DirInfo.GetDirectories Razmer(SubDir.FullName) Next End Sub примерно так должно быть (средствами .NET) нежелательно использовать COM если можно использовать .NET |
||
|
Номер ответа: 17 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602 |
Профиль | | #17 | Добавлено: 29.04.07 00:27 |
|
Зачем переменная уровня класса? Не нужно ничего чудить.
Private Function GetSize(ByVal Path As String) As Int64
Dim Result As Int64 Dim DirInfo As New System.IO.DirectoryInfo(Path) For Each FI As IO.FileInfo In DirInfo.GetFiles() Result += FI.Length Next For Each SubDir As IO.DirectoryInfo In DirInfo.GetDirectories Result += GetSize(SubDir.FullName) Next Return Result End Function |
||
|
Номер ответа: 18 Автор ответа: D o c a l ICQ: 408802757 Вопросов: 76 Ответов: 985 |
Web-сайт: Профиль | | #18 | Добавлено: 30.04.07 23:10 |
| А я толъко сейчас увидел штотам .Net я посути никогда не смотрю. :/ | ||