А вот кто знает, как средствами Vb 6.0 сделать следующее:

Первые пять через WinAPI. 6й не совсем понятно что хотел?

 

Например тут
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/getfiletime.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/setfiletime.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/base/file_management_functions.asp

 

можно через filesystemobject, через Winapi (getfileAttributes и т.д дольше)
подключаешь через references библиотеку microsoft scripting runtime-sccrun.dll есть на каждом компе
и как то так
Private Sub getlastdatemod(namefile as string)
Dim objfso As FileSystemObject
Dim objfile As file
Dim s As String
Set objfso = New FileSystemObject
Set objfile = objfso.GetFile(namefile)
s = objfile.DateLastModified
MsgBox s
End Sub
2. дату изменения файла нельзя просто так поменять, она на то и дата последнего изменения файла. изменишь файл поменяется дата
3, 4.то же самое что и выше и
isereadony=(objfile.Attributes and readonly)
ishidden=(objfile.Attributes and hidden)
isSystem=(objfile.Attributes and system)
iArchive=(objfile.Attributes and archive)
изменения соответственно через логические операции
5. рекурсией. функция получает на входе каталог
ищет все каталоги. все которые находит вызывает опять себя с именем найденного католога. каталоги кончились-работаем с файлами, что там нужно сделать. у filesystemobject есть свойство folders у которого свойство subfolders-это подкаталоги, в свою очередь являющиеся folders. и свойство files-это файлы в папке
6. нажатие кнопок и мыша ловится SetwindowsHookEх, в VB ето все долго делается. Надо ловить не нажатие кнопки, а событие бездействия ситсемы-не знаю как в VB, а в Delphi есть событие onIdle. на него и вешатся. а вообще такие штуки в виде сервисов делают.

 

Fox, да на Си. Тебе только функция нужна и её описание. Апи функции то наверно умеешь использовать? Раз пишешь на Васике. А лучше посмотри где-нибудь на специализированных сайтах. Их навалом в инете.

 

тут спроси

 

Вот, пробуй:

Размер файла можно определить тремя путями:

1. Если файл можно открыть функцией OPEN, то можно воспользоваться функцией LOF

Dim FileFree As Integer
Dim FileSize As Long
FileFree = FreeFile
Open "C:\boot.ini" For Input As FileFree
FileSize = LOF(FileFree)
Close FileFree

2. Используя функцию FileLen

Dim lFileSize As Long
FileSize = FileLen("C:\boot.ini")

3. Используя FileSystemObject

Для использования этого примера установи ссылку на Microsoft Scripting Runtime через меню Project | References.

Dim FSys As New FileSystemObject
Private Sub Command1_Click()
'Не забудь установить ссылку на свой файл
Set qn = FSys.GetFile("C:\boot.ini")
MsgBox "Размер файла " & qn.Size / 1024 & " килобайт"
End Sub

 

2Fox

5)
В плане рекурсии не уверен, что это будет оптимально скоростным сканированием "древа". Могу предложить следующее:
- создать динамический список, где элементы - это [список директорий + тек. индекс директории] на каждом уровне вложенности соответственно;
- далее, берем первую директорию, заходим, сканируем на наличие папок и файлов, заполняем соответствующий элемент нашего динам. списка;
- далее, повторяем пред. шаг до тех пор, пока не дойдем до дна, где уже не будет папок, одни файлы;
- выходим наверх, увеличиваем индекс тек. директории на 1, переходим в след. папку из тек. списка директорий, при этом, каждый раз когда мы переходим на верхний уровень вложенности, не надо забывать удалять соответствующий элемент из динам. списка, т.е. тот уровень где все папки просканированы, нам уже не интересен;
- т.о. мы выберемся на 0-ой уровень вложенности;
Выход из внутреннего цикла, если все папки просканированы.
Выход из внешнего цикла, если уровень вложенности=0.
Главный минус, это конечно выделяемая память(хранить списки директорий на каждом уровне вложенности), многовато, однако без имени папки в нее не попадешь.
Одним словом главным образом надо уделить внимание сокращению выделяемой памяти, путем более эффективного метода запоминания информации о каждом уровне вложенности.
Либо запоминать только тек. индекс папки на каждом уровне вложенности, затем, при выходе наверх заново сканировать и переходить в директорию с нужным индексом.

 

я так понял нового трояна пишем всем форумом?

 

2Fox

Рекурсия есть рекурсия, если можно обойтись без нее, то лучше без нее, поверь будет быстрее.

 

ну как получилось с прогой поделись исходником !!!
я иммею в виду подсчет места в директории с уважением !