Этот баннер — требование Роскомнадзора для исполнения 152 ФЗ.
«На сайте осуществляется обработка файлов cookie, необходимых для работы сайта, а также для анализа использования сайта и улучшения предоставляемых сервисов с использованием метрической программы Яндекс.Метрика. Продолжая использовать сайт, вы даёте согласие с использованием данных технологий».
Политика конфиденциальности
|
|
|
Запись в текстовый файл.
|
|||
|---|---|---|---|
|
#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() Заранее благодарен за ценные советы. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 24.01.2006, 11:27 |
|
||
|
|

start [/forum/topic.php?fid=18&msg=33501185&tid=1393099]: |
0ms |
get settings: |
7ms |
get forum list: |
9ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
31ms |
get topic data: |
7ms |
get forum data: |
2ms |
get page messages: |
24ms |
get tp. blocked users: |
1ms |
| others: | 251ms |
| total: | 336ms |

| 0 / 0 |
