Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности

Новые сообщения [новые:0]
Дайджест
Горячие темы
Избранное [новые:0]
Форумы
Пользователи
Статистика
Статистика нагрузки
Мод. лог
Поиск
|
|
24.01.2006, 11:27
|
|||
|---|---|---|---|
Запись в текстовый файл. |
|||
|
#18+
На кнопоку на странице повесил, вот этот код(создает текстовый файл и внего заносит инфу о структуре каталога), подскажите как, получить общий размер всех файлов в папке и как перед каждым файлом получаемого списка поставить номер т.е.: 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() Заранее благодарен за ценные советы. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
|
|
|

start [/forum/topic.php?fid=18&mobile=1&tid=1393099]: |
0ms |
get settings: |
6ms |
get forum list: |
11ms |
check forum access: |
3ms |
check topic access: |
3ms |
track hit: |
48ms |
get topic data: |
8ms |
get forum data: |
2ms |
get page messages: |
32ms |
get tp. blocked users: |
1ms |
| others: | 254ms |
| total: | 368ms |

| 0 / 0 |
