• Ваш ребенок очень много играет в компьютерные игры и не хочет учиться? Покажите ему программирование — он начнет учиться играя, а продолжит — глядя, как в созданные им игры играют другие.

Работа с файлами

Программа иллюстрирует различные способы работы с файлами и папками.

Microsoft Small Basic использует класс File для создания файлов, директорий, а также, копирования файлов из одной директории в другую. Также этот класс позволяет читать информацию из файлов и записать её в файлы.

Вы можете скопировать указанный ниже код программы в IDE Small Basic и запустить:

 

' Этот код предполагает, что каталог C:\Temp\ уже существует

TextWindow.WriteLine("Создание поддиректории: " + File.CreateDirectory("C:\Temp\TempSubdirectory\"))

subdirectories = File.GetDirectories("C:\Temp")

If Array.GetItemCount(subdirectories) = 1 Then

TextWindow.WriteLine("C:\Temp имеет 1 поддиректорию.")

Else

TextWindow.WriteLine("C:\Temp имеет " + Array.GetItemCount(subdirectories) + " поддиректорий.")

EndIf

For i = 1 To Array.GetItemCount(subdirectories)

TextWindow.WriteLine("Поддиректория " + i + ": " + subdirectories[i])

files = File.GetFiles("C:\Temp\" + subdirectories[i])

For j = 1 To Array.GetItemCount(files)

TextWindow.WriteLine(" файл " + i + ": " + files[i])

EndFor

EndFor

TextWindow.WriteLine("Путь к файлу этой программы " + File.GetSettingsFilePath())

filePath = File.GetTemporaryFilePath()

TextWindow.WriteLine("Временный файл был создан в: " + filePath + ".")

TextWindow.WriteLine("Записать в файл: " + File.WriteContents(filePath, "Привет, Мир!"))

TextWindow.WriteLine("Записать строку в файл: " + File.WriteLine(filePath, 15, "Снова привет, Мир!"))

TextWindow.WriteLine("Вставить строку в файл: " + File.InsertLine(filePath, 20, "Привет ещё раз, Мир!"))

TextWindow.WriteLine("Добавить в файл: " + File.AppendContents(filePath, "Привет снова, Мир!"))

TextWindow.WriteLine("Файл содержит: " + File.ReadContents(filePath))

TextWindow.WriteLine("Копирует файл: " + File.CopyFile(filePath, "C:\Temp\TempSubdirectory\"))

If File.LastError <> "" Then

TextWindow.WriteLine("Последняя файловая ошибка: " + File.LastError)

EndIf


Поделиться: