Пробую писать в файл в файл на EVB 3
Dim file As FileSystem
file.Open "Dann", 2, 2
file.WriteFields " proba1"
file.WriteFields " proba2"
file.WriteFields " proba3"
file.Close
по аналогии с VB6
Const Data_zvit = "C:\TMP\dat_zv.txt"
Open Data_zvit For Input As #1
Input #1, Data1, Data2, Data3
Close #1
но ошибка.
Нашел в инете для EVB3 через WinAPI типа
hFile = CreateFile(txtFileName.Text, GENERIC_READ + GENERIC_WRITE, _0, 0, flag, 0, 0)
WriteFile hFile, MyString, LenB(MyString), lWritten, 0
CloseHandle hFile
Но это слишком сложно.Вопрос: Можна ли EVB 3 работать с файлами, как на VB а не через Win Api, и если "да", то как именно?
(Желательно фрагмент кода записи в файл)
Можна ли EVB 3 работать с файлами, как на VB а не через API
Так я так и делаю.
Public Function SaveList(FileName, FileCtl)
FileCtl.Open FileName, fsAccessWrite
FileCtl.LinePrint " proba1"
FileCtl.LinePrint " proba2"
FileCtl.LinePrint " proba3"
FileCtl.Close
End Function
Выполняю на Емуляторе
Если
MsgBox "Начало"
Call SaveList("proba.txt", File)
MsgBox "Конец"
то вроде выполняется, никаких ошибок, но файла proba?.* на ПК нет,
А если
Call SaveList("C:\proba.txt", File)
то ошибка на этапе компиляции
И еще, что означает: "File - это File System Control"
Есть елементы управления File и File System.
Я использовал елемент управления File.
Если File System тогда ошибка
An error was encountered while running this program:
Object doesn't support this property or method 'FileCtl.Open'
Public Function SaveList(FileName, FileCtl)
FileCtl.Open FileName, fsAccessWrite
FileCtl.LinePrint " proba1"
FileCtl.LinePrint " proba2"
FileCtl.LinePrint " proba3"
FileCtl.Close
End Function
Выполняю на Емуляторе
Если
MsgBox "Начало"
Call SaveList("proba.txt", File)
MsgBox "Конец"
то вроде выполняется, никаких ошибок, но файла proba?.* на ПК нет,
А если
Call SaveList("C:\proba.txt", File)
то ошибка на этапе компиляции
И еще, что означает: "File - это File System Control"
Есть елементы управления File и File System.
Я использовал елемент управления File.
Если File System тогда ошибка
An error was encountered while running this program:
Object doesn't support this property or method 'FileCtl.Open'