Модераторы: Akina
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Дерево папок в текстовик, Как составить полный список 
:(
    Опции темы
rcdimon
Дата 12.2.2005, 20:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 766
Регистрация: 12.7.2004
Где: Москва

Репутация: нет
Всего: 2
Мне нужно сделать прогу, что бы сканировала комп и записывала в текстовик все дерево папок и файлов. Эта прога нужна для "фотографирования" системы. Что бы потом было проще понять куда устанавливаются проги. Мне это нужно для защиты от вирей.

c:\
windows
-system32
my
-gumno
--1.txt
--2.txt
--folder
---1.txt

и т.д.

Заранее спасибо
PM MAIL ICQ   Вверх
boevik
Дата 12.2.2005, 20:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
для такой оперции хватит и командной строки
Код

dir /s /on > dir.txt

а потом сравнишь два файла и увидишь все изменения


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
rcdimon
Дата 12.2.2005, 20:59 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 766
Регистрация: 12.7.2004
Где: Москва

Репутация: нет
Всего: 2
а как получить доступ из проги на vb к консоле? Shell ? и какой там синтаксис?
PM MAIL ICQ   Вверх
boevik
Дата 12.2.2005, 21:21 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35
да напиши bat-ник, хватит с головой. На карaйний случай можешь батник из VB запускать, через Shell.

Это сообщение отредактировал(а) boevik - 12.2.2005, 21:22


--------------------
Никогда не говори никогда
PM MAIL WWW   Вверх
cardinal
Дата 12.2.2005, 23:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Инженер
****


Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

Репутация: 19
Всего: 99
Цитата(boevik @ 12.2.2005, 18:49)
для такой оперции хватит и командной строки
dir /s /on > dir.txt

Цитата(rcdimon @ 12.2.2005, 18:59)
и какой там синтаксис?

Синтаксис ты увидишь один раз сделав txt файл. Он не такой как ты хочешь и его программно будет довольно таки непросто изучать. Я сейчас получил файл в 998 страниц просканировав свой диск E: smile
rcdimon, если хочешь свой синтаксис, то смотри здесь
VB-VB-002018
и доделывай


--------------------
Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино".  А. и Б. Стругацкие
PM   Вверх
rcdimon
Дата 13.2.2005, 15:55 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 766
Регистрация: 12.7.2004
Где: Москва

Репутация: нет
Всего: 2
Спасибо. Уже нашел делается это так, токлько правда без файлов. Одни папки, но доделать тут уже нечего делать.

Код

Private Sub ListDir(ByVal Path As String)
Dim sSubDirs() As String
Dim sFile As String
Dim u As Long

List1.AddItem Path

ReDim sSubDirs(0)

If Right$(Path, 1) <> "\" Then
   Path = Path & "\"
End If
sFile = Dir(Path & "*.*", vbDirectory)
Do While Len(sFile)
   If sFile <> "." And sFile <> ".." Then
       If GetAttr(Path & sFile) And vbDirectory Then
           u = u + 1
           ReDim Preserve sSubDirs(u)
           sSubDirs(u) = sFile
       End If
   End If
   sFile = Dir
Loop

QuickSort sSubDirs(), 1, u

Dim i As Long
For i = 1 To u
   ListDir Path & sSubDirs(i)
Next i
End Sub

Private Sub QuickSort( _
       avarIn() As String, _
       ByVal intLowBound As Integer, _
       ByVal intHighBound As Integer)
 ' Source    : Total VB SourceBook 6
 Dim intX As Integer
 Dim intY As Integer
 Dim varMidBound As String
 Dim varTmp As String
 
 If intHighBound > intLowBound Then
   varMidBound = avarIn((intLowBound + _
       intHighBound) \ 2)
   intX = intLowBound
   intY = intHighBound
   
   Do While intX <= intY
     If avarIn(intX) >= varMidBound And _
        avarIn(intY) <= varMidBound _
     Then
       varTmp = avarIn(intX)
       avarIn(intX) = avarIn(intY)
       avarIn(intY) = varTmp
       intX = intX + 1
       intY = intY - 1
     Else
       If avarIn(intX) < varMidBound Then
         intX = intX + 1
       End If
       If avarIn(intY) > varMidBound Then
         intY = intY - 1
       End If
     End If
   Loop
   
   QuickSort avarIn(), intLowBound, intY
   QuickSort avarIn(), intX, intHighBound
 End If
End Sub

Private Sub Command1_Click()
ListDir "C:\"
End Sub




Создаете кнопку и листбокс. И все. Вместоя листбокса я использую файл. А синтаксис я имел в виду другой.

Как на программе на VB получить доступ к командной строке ПК. Что бы можно было исполнять консольные команды, типа dir, cd, copy, rename и т.д.
PM MAIL ICQ   Вверх
Exception
Дата 15.2.2005, 17:04 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 7
Всего: 186
Shell "Rename old.txt new.txt"
только сама строка не появится. А чтоб появилась либо VB .NET либо апи. Поищи в win32api.txt слово console - найдешь функции. А дальше .... MSDN smile
PM   Вверх
Akina
Дата 15.2.2005, 17:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(rcdimon @ 12.2.2005, 21:41)
Эта прога нужна для "фотографирования" системы. Что бы потом было проще понять куда устанавливаются проги. Мне это нужно для защиты от вирей.

Вообще лучше не изобретать велосипед и использовать существующие тулзы для изготовления и сравнения снапшотов и/или протоколирования инсталляций.


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
rcdimon
Дата 16.2.2005, 12:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 766
Регистрация: 12.7.2004
Где: Москва

Репутация: нет
Всего: 2
Ну, конечно не только для фотографирования. И к тому же я этим занимаюсь не только потому, что мне нужна такая програ. Это очень интересно. Все можно взять готовое. Зачем писать свое? Например, для своего сайта я всегда все скрипты пишу с нуля сам. Сам же разрабатываю алгоритм. Не потому, что не могу поставить phpBB, а потому, что я хочу программировать, а не юзать чужие проги.
PM MAIL ICQ   Вверх
Akina
Дата 16.2.2005, 12:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Советчик
****


Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454
Цитата(rcdimon @ 13.2.2005, 16:55)
Как на программе на VB получить доступ к командной строке ПК. Что бы можно было исполнять консольные команды, типа dir, cd, copy, rename и т.д

Помещаем на форму текстбокс и кнопку. По нажатию кнопки введенное в текстбокс используем как аргумент функции Shell, возможно с предварительной обработкой.
Или открываем консольное окно и рулим им - только оно тебе надо?


--------------------
 О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.
PM MAIL WWW ICQ Jabber   Вверх
Exception
Дата 16.2.2005, 16:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 7
Всего: 186
Тема про консоль была:
Тут
PM   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "VB6"
Akina

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по VB обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • Используйте теги [code=vb][/code] для подсветки кода. Используйтe чекбокс "транслит" (возле кнопок кодов) если у Вас нет русских шрифтов.

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Akina.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | VB6 | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0844 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.