Проверить наличие файла.
If Dir("Files/Base.mdb") <> "" Then GoTo XXX200 ' если файл Base.mdb в папке Files есть то переход на строку xxx200

а как проверить наличие файла в папке Windows/system32
если заранее не знаешь на каком диске папка Windows/system32
и windows может быть установлена в папку не по умолчанию (windows), а например в папку winxp

Есть API-шные функции GetWindowsDirectory и GetSystemDirectory. Они возвращают пути к папке винды и к ее системной папке.

А нате вам!

Функции API - это дикая куча (больше двух тысяч) функций, поставляемых вместе с Windows в ее DLL.

Поскольку функции эти внешние для VB-шной проги, то их надо объявить оператором Declare. Приблизительно так:



Выше объявляется функция GetSystemDirectory из библиотеки kernel32 (версия для ANSI). Подробнее про синтаксис Declare - погляди где-нибудь в книжках, хэлпах или, думаю, даже на этом форуме найдется.

Чтоб ты каждый раз не парился с этими Declare, разработчики вижл-бейсика уже объявили все возможные функции и упрятали их объявления в текстовый файл, который поставляется вместе с VB. Там еще виндосовские типы данных и константы.

В поставку VB6 (и VB5, и VB4...) входит прога API Viewer (посмотри в папке VB6 в меню "Программы2 кнопки "Пуск"). Запусти, нажми File->Load Text File и выбери win32api.exe. Там все функции API на момент издания VB6. С тех пор их, думаю, прибавилось, но для начала тебе хватит. Щелкни на функцию в списке, появится ее Declare. Находишь те объявления функций, которые тебе нужны, жмешь кнопку Copy и вставляешь их в модуль своей проги.

Самое главное - знать, что делает каждая из этих функций (тут иронично ). Их описания можно найти в MSDN. А можешь набрать функцию в поисковой строке браузера и посмотреть, что найдется.

А теперь пример. Узнаем системную директорию Винды:



Таким вот образом.
Добавлено @ 21:35
Akina, ты меня сделал! Твоё, ясен пень, короче!

а создать там файл?



не работает.

Интересно, что ты пытался сказать вот этим...



.

Это сообщение отредактировал(а) Тутанхамец - 19.2.2006, 16:48

А модуль FSO(File System Object) не пробывал использывать...

ArtNeoX, что именно не работает? поконкретнее плиз.

Как системную директорию определить я понял.
А как сосдать туда файл и проверить наличие определенного файла в системной папке.

Смысл вот в чем.

1. Пользователь запускает отдельную программу которая определяет системную папку и проверяет наличие там файла xxx.txt
Если он там есть, то программа завершает работу, если его там нет файл с таким именем будет создан.
2. Пользователь запускает программу. Программа определяет системную папку и проверяет наличие там файла xxx.txt
Если он там есть, программа запустится, если его там нет программа не запускается.

То есть это такой способ защиты от копирования твоих трудов.

не понял в чём проблема - ты же сам в первом посте писал это - токо путь был литералом записан - а ты его переменной напиши
узнаёш апишной функцией путь к систему - и дальше как обычно
или я что-то пропустил?

прикольную штуку Akina подсказал - я до этого был не в курсе
вот чего в мсдн на эту тему нашел:

а вот результат выполнения суперпрограммы:

меня пропёрло
Akina - ты если ещё такое что знаеш - то колись давай

Могу подсказать еще один простенький способ защиты трудов. При установке своей проги записывай в файл серийный номер диска. А защищаемый труд при запуске проверяет - если этот файл есть и в нём действительно записан номер диса, то запускаемся, а если нет - то и суда нет, и запускаться не будем. Так можно привязать своё творение к конкретному диску. И нет особой нужды писаться в системную папку. А то XP и 2000 не всегда дают это сделать, если, скажем, ты вошёл под "юзером".

Для получения номера диска - APIшная GetVolumeInformation.

P.S. Нда, environ, оказывается, прикольная штука... Кстати, а переменные среды железно определены? Во всех версиях винды? Всегда-всегда?

Это сообщение отредактировал(а) Тутанхамец - 21.2.2006, 08:24

Мониторинг изменений на диске и в реестре - и твоя защита отдыхает.


а MSDN вообще полезно проматривать что же до твоей суперпрограммы, то можно просто Пуск-Выполнить-CMD-Set<Enter>


Некоторые - да. Но их можно изменить - причем в локальном сеансе, дабы не нарушить работоспособности системы. Остальные создаются программами и сервисами конкретной системы и на другой могут отсутствовать.
Для получения тех же данных, но "заведомо верно", лучше исользовать WMI.

Про мсдн согласен . темболее что она у меня на диске - к vs98 - токо я её пока не сильно понял .
Я имелл ввиду, что к чему-то из этого тоже привязываться можно - к параметрам процессора например + ещё что-то(как самостоятельный вариант не рекоммендую).


Чи не функция - в барсике и без неё можно. Библиотека скриптинг рантайм, объект драйв вроде. Свойство сериалнамбер. И апи и этот метод выдают номер, который вроде виндой прописывается - что-то такое. Суть в том, что это не есть оригинальный заводской серийник винта и он меняется при переустановке винды - второй год мучаюсь с етой какой - приходится людям верить на слово (а я с клиентами токо по телефону общаюсь - они иногородние все у меня).
Но годится вообще то - как вы поняли я сам активно пользую - но постоянно думаю как по другому сделать.