Конференция VBStreets

**Zak** » 11.05.2005 (Ср) 9:53

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

**Шурик** » 11.05.2005 (Ср) 9:55

Open "test.txt" for output #1
.....
Print #1, "TEST TEXT FILE"
.....
Close #1

**Шурик** » 11.05.2005 (Ср) 10:09

И засунь эту фигню в Form_Load

**Alex_2005** » 11.05.2005 (Ср) 10:13

юзай FSO! Неплохая вещица! Хотя если тебе только чтоб вот пустой текстовой файл создать тогда подойдёт и вариант Шурика. Но FSO поюзай, поюзай..

**Zak** » 11.05.2005 (Ср) 10:46

Я пока еще в VB полный ламо..... что такое FSO?

**Zak** » 11.05.2005 (Ср) 11:05

Шурик писал(а):Open "test.txt" for output #1
.....
Print #1, "TEST TEXT FILE"
.....
Close #1

Если можно напиши плз эту процедуру с начала.... а то у меня ругается на синтаксис...........

**Шурик** » 11.05.2005 (Ср) 11:07

File System Object
если в поиске не ламо :wink:

**Шурик** » 11.05.2005 (Ср) 11:12

Код: Выделить всё: Private Sub Form_Load() Open "test.txt" For Output As #1 Print #1, "TEST" Close #1 End Sub

**Zak** » 11.05.2005 (Ср) 12:27

Спасибки, все работает............ а на счет FSO я пока не заморачивался..... но ссылку зацепил.....

**NIC** » 13.05.2005 (Пт) 8:28

Можно так:
Private Sub Form_Load()
Open "test.txt" For Append As #1
Print #1, "TEST"
Close
End Sub

**Alex_2005** » 13.05.2005 (Пт) 9:21

NIC , так ты тогда уж и разницу ему объясни между Append and Output , раз уж написал :wink:

**Igor_123** » 13.05.2005 (Пт) 12:02

2 Alex_2005 :thumleft:

**Alex_2005** » 13.05.2005 (Пт) 12:32

2 Igor_123 И тебе того же :lol:

Кстати Zak, ты можешь и так сделать:

Код: Выделить всё: Private Sub Form_Load() Dim f f = FreeFile Open "c:\ test.txt" For Output As f Print #f, "TEST" Close #f End Sub

**NIC** » 15.05.2005 (Вс) 6:13

Alex_2005 писал(а):NIC , так ты тогда уж и разницу ему объясни между Append and Output , раз уж написал

Такие темы еще с QBasic наверно известны! Append - догнать файл Output-полностью заменить

Создание файла