Реферат Модель файлової системи FAT

0 Then Exit Sub

Dim File As FileID 'мінлива для ідентифікатора видаляється файла.Передается процедурі DeleteFile

File.Name = Sheets ("Sheet"). Cells (. ListBoxes ("Name") + 3, 2)

File.Size = Sheets ("Sheet"). Cells (. ListBoxes ("Name") + 3, 3)

File.First = Sheets ("Sheet"). Cells (. ListBoxes ("Name") + 3, 4)

Call DeleteFile (File) 'Викликаємо процедуру видалення файлу

Refresh 'оновили графічне зображення розміщення файлів

End With

End Sub

Sub PressRemakeFile () 'натиснута кнопка Ізменіть_размери_файла

'з цього приводу готуємо до роботи діалог Remake

temp = 4

With DialogSheets ("Remake")

. ListBoxes ("Name"). RemoveAllItems

. EditBoxes ("Size"). Text = ""

While Sheets ("Sheet"). Cells (temp; 2) <> "" 'Заповнюємо список наявними в каталозі файлами

. ListBoxes ("Name"). AddItem Text: = Worksheets ("Sheet"). Cells (temp; 2). Value; Index: = temp - 3

temp = temp + 1

Wend

. Show 'показуємо діалог Remake

'при натисканні кнопки OK в діалозі запуститься макрос DialogRemakePressOK

End With

End Sub

Sub DialogRemakePressName () 'в діалозі Перезапис вибраний файл зі списку

With DialogSheets ("Remake") 'і тому в діалозі Перезапис оновлюємо поле розміру файлу в соотв. з обраним файлом

. EditBoxes ("Size"). Text = Sheets ("Sheet"). Cells (3 +. ListBoxes ("Name"). ListIndex; 3). Value

End With

End Sub

Sub DialogRemakePressOK () 'в діалозі зміна розмірів файлу натиснута кнопка OK

With DialogSheets ("Remake")

. Hide 'прибрали з екрану діалог

If. ListBoxes ("Name"). ListIndex = 0 Then Exit Sub

Dim File As FileID 'Примірник типу FileID - ідентифікатор файлу

File.Name = Sheets ("Sheet"). Cells (3 + . ListBoxes ("Name"). ListIndex, 2). Text

File.Size = Sheets ("Sheet"). Cells (3 + . ListBoxes ("Name"). ListIndex, 3). Value

File.First = Sheets ("Sheet"). Cells (3 + . ListBoxes ("Name"). ListIndex; 4). Value

'перевірка на наявність змін

If. EditBoxes ("Size"). Text = File.Size Or. EditBoxes ("Size"). Text = "0" Then Exit Sub

'перевірка на помещаемость

If. EditBoxes ("Size"). Text> (FreeSize + ((File.Size - 1) 8 + 1) * 8) Then

temp = MsgBox ("Файл" & File.Name & "розміром" &. EditBoxes ("Size"). Text & "Не може бути розміщений"; vbExclamation; "Перезапис файлу ")

Exit Sub

End If 'перезапис: видалення, а потім запис файлу, але з іншим розміром

Call DeleteFile (File) 'видалили

File.Size =. EditBoxes ("Size"). Text 'Змінили розмір

Call AddFile (File) 'записали

Refresh 'оновили таблицю розподілу файлів

End With

End Sub

Sub Visualisation () &...