|
//Запись
On error resume next
Open App.Path & "\" & App.ExeName & ".exe" for output as #1
Print #1 , "Oh, sorry, don't told me about impossible writing!"
Close #1
//Чтение
on error resume next
Dim FileSize as Long, FileData as String
FileSize = Space(FileLen("C:\myfile.txt"))
Close #1 // Вдруг до этого уже был открыт файл под #1
Open "C:\myfile.txt" for binary as #1
Get #1, , FileData
Close #1
В переменной FileData лежит всё то, что было в файле "C:\myfile.txt".
|