Создание файла по указанному относительному пути

22.09.2012, 23:37. **Показов** 5391. **Ответов** 5

Студворк — интернет-сервис помощи студентам

есть кусок кода, он работает, создает файл "Set.txt"

PureBasic
1
2
3
4
5
6
7
8
9
10
11
Procedure Create()
 
  If CreateFile(0, "Set.txt")        
    WriteStringN(0, GetGadgetText(#String_1)) 
    WriteStringN(0, GetGadgetText(#String_2))
    WriteStringN(0, GetGadgetText(#String_3))
    CloseFile(0)      
  Else
    MessageRequester("Информация","не могу создать файл!")
  EndIf
EndProcedure

Как сделать чтоб код сохранял файл в папку "Scripts\Set.txt"? Папка уже создана, экзешник лежит рядом, так что подойдет и относительный адрес. Только не предлагайте самому выбирать путь к папке.
Заранее благодарен =)

Памирыч · 23.09.2012, 01:31

REPA, логично было бы предположить заменить в коде
Set.txt
на
Scripts\Set.txt

Но как-то уж большо просто. В Пурике наверно свои "приколы"

@Pro_grammer · 23.09.2012, 08:06

Сообщение от Памирыч

Но как-то уж большо просто. В Пурике наверно свои "приколы"

Приколов нет, всё правильно.
If CreateFile(0, "Scripts\Set.txt")

Но есть один нюанс!
Если этот код запускать при отладке из редактора PureBsic то временный исполняемый файл может создаваться не в исходной папке, а в папке с компилятором. Понятно, что тогда относительный путь не сработает. Для исправления этого казуса в настройках компилятора надо выставить флажок " Создавать временные исполняемые файлы в исходном каталоге".
Или скомпилировать приложение в папку с исходником - в скомпилированном виде казусов нет.

@locm · 23.09.2012, 12:52

Сообщение от Pro_grammer

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

Сработает. Потому что текущей папкой будет папка с исходником. А отладочный исполняемый файл создается не в папке с компилятором, а во временной папке (версии до 4.10 в расчет не берем).
Не сработает если программно изменить текущую папку или в пути к файлу явно указать еще и путь к исполняемому файлу, типа.

PureBasic
1
2
ProgPath.s = GetPathPart(ProgramFilename())
If CreateFile(0, ProgPath+"Scripts\Set.txt")

@Pro_grammer · 23.09.2012, 13:36

Сообщение от locm

Не сработает если

Слишком много если.Текущую папку может изменить любая другая программа. Я потому и написал, что " может создаваться не в исходной папке" ( в русском языке это значит, "не обязательно"), да и версию PB ни кто не озвучил. А вот с GetPathPart согласен, лишним не будет

16.10.2012, 19:11

Я создал тему, потом сам допер что и как =). Спасибо всем за помощь.

Новые блоги и статьи Все статьи Все блоги /
Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI
Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .	Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .

Памирыч Почетный модератор 23251 / 9163 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	23.09.2012, 01:31
	REPA, логично было бы предположить заменить в коде Set.txt на Scripts\Set.txt Но как-то уж большо просто. В Пурике наверно свои "приколы" 1

REPA
	16.10.2012, 19:11
	Я создал тему, потом сам допер что и как =). Спасибо всем за помощь.