VBNet - Форум - Open App.Path & "\act

Вопрос: Open App.Path & "\act_s4et.txt Добавлено: 05.06.10 17:22

Автор вопроса: goodwen

Здравствуйте, у меня есть простая программа, написанная на VB6, я хочу её результаты вычислений записать в отдельный файл. Знаю, что App.Path - значит создать файл по тому же пути, где лежит сам проэкт. Вот код той части, где результат вычислений заносится в файл:

Open App.Path & "\result.txt" For Output As #1
   Write #1, A
  Close #1

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

Open App.Path & "\folder_result/result1.txt" For Output As #1
   Write #1, A
  Close #1

И папку folder_result он естественно несоздаёт, можно конечно прописать путь, но при перемещение проекта, или к примеру созданного exe-файла, файл с результатом всё равно записывается по тому пути, что был прописан в коде, а нужно чтобы где лежит проект, создавалась папка а в ней файл, как это можно былобы сделать?
Ответить

Ответы Всего ответов: 8

Номер ответа: 1 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| Цитата \| #1	Добавлено: 05.06.10 18:42
	Гудвин, я уже непомню имя оператора в вб6 создающего папку потому, что давно и успешно использую FileSystemObject, погугли и найдешь неплохой справочник в .chm формате. Ответить

Номер ответа: 2 Автор ответа: VerhoLom Вопросов: 20 Ответов: 285	Профиль \| Цитата \| #2	Добавлено: 11.08.10 11:49
	Dim s As String: s = "c:\papka" If Len(Dir$(s)) = 0 Then MkDir s Ответить

Номер ответа: 3 Автор ответа: VerhoLom Вопросов: 20 Ответов: 285	Профиль \| Цитата \| #3	Добавлено: 11.08.10 11:50
	Smith, Нафига лишние библиотеки с проектом таскать, когда все уже есть? Ответить

Номер ответа: 4 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| Цитата \| #4	Добавлено: 11.08.10 13:51
	это кудаж надо утащить прогу, чтоб там небыло FSO? Ответить

Номер ответа: 5 Автор ответа: VerhoLom Вопросов: 20 Ответов: 285	Профиль \| Цитата \| #5	Добавлено: 13.08.10 15:04
	Зачем пользоваться внешним объектом, когда все-равно с программой таскаешь рантайму с УЖЕ реализованной функциональностью? По-моему это неразумно... Ответить

Номер ответа: 6 Автор ответа: Artyom Разработчик Вопросов: 130 Ответов: 6602	Профиль \| Цитата \| #6	Добавлено: 13.08.10 16:24
	Зачем писать на VB6 когда можно писать на .NET? По-моему это неразумно Ответить

Номер ответа: 7 Автор ответа: AgentFire ICQ: 192496851 Вопросов: 75 Ответов: 3178	Профиль \| Цитата \| #7	Добавлено: 13.08.10 16:56
	я 100% знал что ты это напишешь. ибо если не ты то.. Ответить

Номер ответа: 8 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| Цитата \| #8	Добавлено: 13.08.10 19:37
	Еслиб не он, то ты написалбы точно . Верхолом, ты прав, но во многих случаях ФСО намного удобнее. Ответить

Страница: 1 |