Visual Basic 6.0 - проверка на создание файла

Каким образом наиболее быстро и надежно осуществить

- что в директории X создался файл Y
- что в директории X произошли изменения

за исключением прогона dir$ по таймеру?

* Origin: 1134 (2:5045/44.13)




Hello, Sergei!
You wrote in conference fido7.ru.visual.basic to "All"







Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As
Any, Source As Any, ByVal Length As Long)


With best regards, A. Skrobov. E-mail: tyomitch [@] r66.ru
--
* Origin: Talk.Mail.Ru (2:5020/400)




Привет, StyleR.

Вы, было дело, писали 11 апреля 2004 г., 20:14:




Как обычно
dir("put_k_papke\*.rasshirenie")


^^^^^
Предполагаю, что это можно сделать на ощупь :-) Шютка.

dir("put_k_papke", vbDirectory)





Все те же дела, но вместо xxx написать ???


--
С уважением, Alexander
12:33:29 AM
* Origin: Talk.Mail.Ru (2:5020/400)


Добpый день\утpо\вечеp\ночь, достопочтимый Dmitriy !






MyObj!n = 5 'пpокатывает
MyObj.Fields!n = 5 'вылетает, пpичём вызывает пpи этом Property Get


С бестами и pегаpдами
Dmitry ds [@] u-kon.ru
* Origin: Hичто не слишком! (2:5015/23.70)




Hi All,

Те, кто писали карточные игры через cards.dll, знают, что на Win9x установлена
16-битная версия библиотеки, функции которой невозможно вызывать напрямую
из-под VB6. Им приходилось либо задавать в качестве требования платформу
WinNT, либо распространять 32-битную cards.dll с собой (нарушение авторских
прав!), либо просить пользователя найти где-нибудь 32-битную библиотеку самому
и скопировать на свой компьютер. Собственно, я не видел ещё ни одной карточной
игры на VB6, которая могла бы работать с 16-битной cards.dll.

Я, когда у меня возникла такая нужда, написал крохотную (3Кб)
библиотеку-переходник, позволяющую работать с cards.dll _независимо_ от
платформы. Если в системе установлена 32-битная библиотека, переходник
вызывает её функции напрямую, если 16-битная - через механизм thunk-ов. Теперь
моя игра работает на всех версиях Windows, начиная с 95!

Если кому-нибудь такая библиотека нужна, пишите в мыло. Если таких окажется
много (в чём я сомневаюсь), я её куда-нибудь выложу.

* Origin: FidoNet Online - http://www.fido-online.com (2:5020/175.2)


Мы где-то виделись, Dmitry?





Для этого свойство Fields должно возвращать объект. Я же тебе уже говорил это!

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)




Подскажите как сохранить в реестре
данные пользовательского типа сложной структуры (строки, числа, boolean).
Hу и обратно прочитать в пользовательскую структуру.
Я нашел как сохранить в реестре byte массив.
Hо как пользовательский тип загнать в массив байтов и обратно?

Сергей.


* Origin: Demos online service (2:5020/400)


Мы где-то виделись, Terekhin?







Все, до меня доперло. :) К тому, что я писал тебе в мыле, нужно добавить
перекодировку из UTF.

Declare Function MultiByteToWideChar Lib "kernel32" _
(ByVal CodePage As Long, ByVal dwFlags As Long, _
ByVal lpMultiByteStr As String, ByVal cchMultiByte As Long, _
ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long

Const CP_UTF8 = 65001

Dim sOut As String, sIn As String, OutLength As Long
sIn = "%D0%A1%D1%82%D1%80%D0%BE%D0%BA%D0%B0"
sOut = sIn
OutLength = 0
Dim i&, Char As Byte, CharPercent As Byte
CharPercent = Asc("%")
For i = 1 To Len(sIn)
Char = Asc(Mid$(sIn, i, 1))
If Char = CharPercent Then
Char = CByte("&H" & Mid$(sIn, i + 1, 2))
i = i + 2
End If
OutLength = OutLength + 1
Mid$(sOut, OutLength, 1) = Chr$(Char)
Next i
sOut = Left$(sOut, OutLength)

Dim s As String
s = sOut
s = Left$(s, MultiByteToWideChar(CP_UTF8, 0, sOut, -1, StrPtr(s), LenB(s)))
MsgBox s

Всего хорошего!
Дмитрий Козырев aka Master

* Origin: Дорогу осилит идущий. (2:5023/11.148)




Добрых дней и приятных ночей All !

Подскажите как привести вот такую строчку
%D0%A1%D1%82%D1%80%D0%BE%D0%BA%D0%B0
к человеческому виду.
__________________________________________________
До будущих All... Terekhin Alexandr. E-mail: didinst [@] rol.ru


* Origin: Алт (2:5020/400)




Hi!


менеджеpа


Поймал, спасибо. Hее, я в ТАКОЕ - не играю. Это разве что для вирусописателей,
*нормальной* проге лазать по спискам процессов в структурах ядра ОС совершенно
ни к чему. Особенно ежели поглядеть на список побочных эффектов - BSODы и
проч...

--
With best regards
Dmitry Viazowkin


* Origin: Me? Organized??? (2:5020/400)