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

Страница 1 из 1
1

lorents

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

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

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

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

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

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

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

Sower

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

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

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

Сообщений: 916

Репутация: 11

Награды: 3

Статус: Offline

Quote (lorents)

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

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

DEMBEL

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

Наш дизайнер

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

Сообщений: 2266

Репутация: 135

Награды: 32

Статус: Offline

FileExist("Path","Variable") ?

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

Sower

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

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

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

Сообщений: 916

Репутация: 11

Награды: 3

Статус: Offline

Quote (Grand)

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

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

DEMBEL

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

Наш дизайнер

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

Сообщений: 2266

Репутация: 135

Награды: 32

Статус: Offline

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

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

Sower

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

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

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

Сообщений: 916

Репутация: 11

Награды: 3

Статус: Offline

Quote (DEMBEL)

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

lorents

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

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

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

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

Quote (DEMBEL)

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

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

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

Quote (Grand)

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

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

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

Sower

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

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

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

Сообщений: 916

Репутация: 11

Награды: 3

Статус: Offline

Quote (lorents)

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

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

DEMBEL

Дата: Пятница, 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

lorents

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

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

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

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

DEMBEL, спасибо!

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

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

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

Sower

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

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

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

Сообщений: 916

Репутация: 11

Награды: 3

Статус: Offline

Quote (lorents)

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

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

lorents

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

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

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

Сообщений: 1082

Репутация: 7

Награды: 2

Статус: Offline

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

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

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

DEMBEL

Дата: Суббота, 30 Мая 2009, 15:32 | Сообщение # 13

Наш дизайнер

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

Сообщений: 2266

Репутация: 135

Награды: 32

Статус: Offline

пиши - "не могу найти файлы" и отправляй комп в синий экран, затем ребутни еще на всякий случай.

Добавлено (30 Май 2009, 15:32)
---------------------------------------------
Произошла ошибка при запуске. Возможно программа будет работать некорректно. Вы хотите продолжить работу?

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

Bodi

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