Проверка на наличие файла

Дата: Пятница, 29 Мая 2009, 15:55 | Сообщение # 1

Ветеран форума

Группа: Проверенные

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

Давно есть идея сделать проверку на наличия все ли файлы есть в проекте или чего-то не хватает, но не знаю как это осуществить корректно, если кто знает как это сделать, пожалуйста подскажите, меня интересует сама идея, код я сам постараюсь написать.

P.S.: пишу в теме "свободное общение" т.к. вопрос относиться не только к MMB, но и NB.

Image Optimizer - сборник программ для оптимизации картинок без потери качества.

Дата: Пятница, 29 Мая 2009, 16:10 | Сообщение # 2

Ветеран форума

Группа: Проверенные

Сообщений: 916

Репутация: 11

Награды: 3

Статус: Offline

Quote (lorents)

проверку на наличия все ли файлы есть в проекте

в каком смысле

Дата: Пятница, 29 Мая 2009, 16:10 | Сообщение # 3

Наш дизайнер

Группа: Модераторы

Сообщений: 2266

Репутация: 135

Награды: 32

Статус: Offline

FileExist("Path","Variable") ?

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62

Дата: Пятница, 29 Мая 2009, 16:11 | Сообщение # 4

Ветеран форума

Группа: Проверенные

Сообщений: 916

Репутация: 11

Награды: 3

Статус: Offline

Quote (Grand)

в каком смысле

Имеешь ввиду, что все файлы, которые использует проект?

Дата: Пятница, 29 Мая 2009, 16:15 | Сообщение # 5

Наш дизайнер

Группа: Модераторы

Сообщений: 2266

Репутация: 135

Награды: 32

Статус: Offline

Заносишь все имена файлов в массив строковых переменных, да и потом в цикле проверяешь этот массив через ФилеЕхист, счетчик цикла - номер переменной в массиве. Ну ты понял короче...

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62

Дата: Пятница, 29 Мая 2009, 16:20 | Сообщение # 6

Ветеран форума

Группа: Проверенные

Сообщений: 916

Репутация: 11

Награды: 3

Статус: Offline

Quote (DEMBEL)

А чтобы не писать это всё в массив, ты лучше, тогда когда у тебя точно все файлы есть, просканируй папку SearchForFiles("директория","фильтр расширений"), загрузи в лист, сохрани в файл SongListSave, потом читайт по строке из того файла и проверяй, как DEMBEL сказал

Дата: Пятница, 29 Мая 2009, 16:23 | Сообщение # 7

Ветеран форума

Группа: Проверенные

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

Quote (DEMBEL)

Ну ты понял короче...

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

Добавлено (29 Май 2009, 16:23)
---------------------------------------------

Quote (Grand)

А чтобы не писать это всё в массив, ты лучше, тогда когда у тебя точно все файлы есть, просканируй

ну это понятно, я просто не могу догнать как сделать проверку файлов, всех чтобы каждый раз не писать их

Image Optimizer - сборник программ для оптимизации картинок без потери качества.

Дата: Пятница, 29 Мая 2009, 16:32 | Сообщение # 8

Ветеран форума

Группа: Проверенные

Сообщений: 916

Репутация: 11

Награды: 3

Статус: Offline

Quote (lorents)

ну это понятно, я просто не могу догнать как сделать проверку файлов, всех чтобы каждый раз не писать их

надеюсь щас понял

Дата: Пятница, 29 Мая 2009, 18:18 | Сообщение # 9

Наш дизайнер

Группа: Модераторы

Сообщений: 2266

Репутация: 135

Награды: 32

Статус: Offline

Quote (Grand)

name$[1]='<SrcDir>\file.exe'
name$[2]='c:\lorents.btn'
name$[3]='c:\temp\info.chm'
...
name$[10]='file.txt'

For x=1 To 10
FileExist ("name$[x]","Check")
Count=Count+Check
Next x

If (Count=х) Then
Message ("Все файлы есть","")
Else
Message ("Файлов не хватает","")
End

Quote (Grand)

Если файлы известны, то так прямо и запиши их в текст. файл с путями, потом читаешь по строке (не забыл как ?) - пихаешь это в цикл, а в нем проверяешь эту переменную со строкой в FileExist. Счетчик цикла здесь (х) - кол-во линий в файле.

Win7x64 SP1 Neobook v5.70 (Trial)
WinXP SP3 Neobook v5.62

Дата: Суббота, 30 Мая 2009, 14:04 | Сообщение # 10

Ветеран форума

Группа: Проверенные

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

DEMBEL, спасибо!

Добавлено (30 Май 2009, 14:04)
---------------------------------------------
Не подскажите что написать в диалоговых окнах если произошли следующая ошибка при загрузке файла .txt
При запуске программы произошла ошибка. Возможно программа будет работать не корректно. Вы хотите продолжить?
не могу придумать как написать корректно

Image Optimizer - сборник программ для оптимизации картинок без потери качества.

Сообщение отредактировал lorents - Суббота, 30 Мая 2009, 14:06

Дата: Суббота, 30 Мая 2009, 14:49 | Сообщение # 11

Ветеран форума

Группа: Проверенные

Сообщений: 916

Репутация: 11

Награды: 3

Статус: Offline

Quote (lorents)

произошли следующая ошибка при загрузке

MessageEx("Внимание!","text$,1")
Так и напиши!

Дата: Суббота, 30 Мая 2009, 14:51 | Сообщение # 12

Ветеран форума

Группа: Проверенные

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

Grand, ты не понял меня, меня интересует ни как это сделать, а как написать это корректно, вот эту вот ошибку

Image Optimizer - сборник программ для оптимизации картинок без потери качества.

Сообщение отредактировал lorents - Суббота, 30 Мая 2009, 14:52