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

**skulida** » 01.07.2003 (Вт) 9:41

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

**GSerg** » 01.07.2003 (Вт) 9:50

Open "c:\" & Date for output as #1
Print #1, DesiredVariable
Close #1

**Лёха_Virus** » 01.07.2003 (Вт) 9:53

Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0

Dim fso, f, ts
Set fso = CreateObject("Scripting.FileSystemObject")

'создание файла:
Set f = fso.CreateTextFile("C:\" & Date, True)
f.Close

'запись в файл:
Set f = fs.GetFile("C:\" & date)
Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault)
ts.write "бла бла бла"
ts.Close

'так же можно писать в файл и при его создании:
Set f = fso.CreateTextFile("C:\" & Date, True)
f.write "бла бла бла"
f.Close

**Лёха_Virus** » 01.07.2003 (Вт) 9:54

опередил блин на 3 минуты

**skulida** » 01.07.2003 (Вт) 12:12

GSerg
Спасибо заработало. только пришлось добавить еще & ".html"
чтоб с разрешением был.
Но толлько вот беда, после компиляции и запуска exe на машине где нет бэйсика вываливается ошибка:
Cmponent 'MSINET.OCX' or one of its dependencies not correctly registered: a file is missing or invalid
Подскажите, что мне нужно скопировать или еще что?

**Cyrax** » 01.07.2003 (Вт) 12:16

skulida писал(а):GSerg
Спасибо заработало. только пришлось добавить еще & ".html"
чтоб с разрешением был.
Но толлько вот беда, после компиляции и запуска exe на машине где нет бэйсика вываливается ошибка:
Cmponent 'MSINET.OCX' or one of its dependencies not correctly registered: a file is missing or invalid
Подскажите, что мне нужно скопировать или еще что?

для решения этой проблемы существуют такие программы, как Package & Deployment Wizard, Visual Studio Installer, Setup Factory, Instal Shield, Wise Installer и еще целый состав и маленькая тележка...

**skulida** » 01.07.2003 (Вт) 15:05

Cyrax
прошу прощения, а можно поподробнее?
это что пакеты, где их искать (в VB ?), самому надо разрабатывать визард и копировать в систему?
или вот вопрос: с использованием АПИ функций такие проблемы возникают ?

**FaKk2** » 01.07.2003 (Вт) 16:03

skulida писал(а):Cyrax
прошу прощения, а можно поподробнее?
это что пакеты, где их искать (в VB ?), самому надо разрабатывать визард и копировать в систему?
или вот вопрос: с использованием АПИ функций такие проблемы возникают ?

Визард есть в самом ВБ (Tools-Add-ins Manager-Package and Employ)
А с АПИ проблем нигде не будет :lol:

Так как сам Windows на них работает :wink:

**Cyrax** » 01.07.2003 (Вт) 16:37

2 FAKK2: пасибо, выручил маленько...

про P&D Wizard можно почитать тут и тут

**skulida** » 02.07.2003 (Ср) 9:42

to ALL
Спасибо всем, заработало !

**Каденов Мират** » 02.07.2003 (Ср) 10:21

Может уже поздно, но все-таки:

F = FreeFile
Open FilePath&Date For Output As #F
Print #F,Variable
Close #F

**ShadowCaster** » 02.07.2003 (Ср) 23:22

А вы поставьте формат даты в "DD:MM:YY" и посмотрим, как она будет создавать ТАКОЙ файл...

...
open File_Path+Format("dd-mm-yy") ...

...
fso.createtextfile File_Path+Format("dd-mm-yy") ...

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

как создать файл..

как создать файл..

Кто сейчас на конференции