powered by simpleCommunicator - 2.0.59     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / Запись в текстовый файл.
2 сообщений из 2, страница 1 из 1
Запись в текстовый файл.
    #33499166
DenVut
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
На кнопоку на странице повесил, вот этот код(создает текстовый файл и внего заносит инфу о структуре каталога), подскажите как, получить общий размер всех файлов в папке и как перед каждым файлом получаемого списка поставить номер т.е.:
1. dok.txt
2.dok2.txt
3. dok3.txt и тд.

Dim din As New DirectoryInfo(Environment.CurrentDirectory)
' Create an array representing the files in the current directory.
Dim fin As FileInfo() = din.GetFiles()
' Print out the names of the files in the current directory.
Dim finTemp As FileInfo

Dim w As StreamWriter
w = File.CreateText("c:\TMP\mydiler.txt")
w.WriteLine("Реестр Пакетов ЭД")
w.WriteLine()
w.WriteLine("Дата создание подписи:" & DateTime.Now.ToString)
w.WriteLine("Имена файлов Размер файла")
w.WriteLine()
For Each finTemp In fin
w.WriteLine(finTemp.Name & " " & finTemp.Length.ToString)
Next finTemp
w.WriteLine()
w.WriteLine("Количество файлов-")
w.WriteLine("Объем файлов-")
w.Close()

Заранее благодарен за ценные советы.
...
Рейтинг: 0 / 0
Запись в текстовый файл.
    #33501185
DenVut
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вопрос снят, сам тупил :( :)
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / ASP.NET [игнор отключен] [закрыт для гостей] / Запись в текстовый файл.
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]