Форум: Программирование для КПК
Тема: Можна ли EVB 3 работать с файлами, как на VB а не через API
[Ответить]
Любомир [24.12.2004 16:32] Можна ли EVB 3 работать с файлами, как на VB а не через API:
Пробую писать в файл в файл на 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, и если "да", то как именно?
(Желательно фрагмент кода записи в файл)
nidl [30.12.2004 15:01] :
Можно
nidl [31.12.2004 12:49] :
Например:
File.Open Имя_файла, fsAccessWrite
File.LinePrint Строка_с_инфой
File.Close
Где File - это File System Control
Любомир [31.12.2004 14:28] :
Так я так и делаю.
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'
nidl [01.01.2005 15:26] :
Прошу прощения нужно использовать File.
Имя файла использовать как "\...\Имя_файла"
[Ответить]