Программа иллюстрирует различные способы работы с файлами и папками.
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
Поделиться: