алогу
temp = 4
With Sheets ("Sheet")
While. Cells (temp; 2) <> ""
temp = temp + 1 'пошук вільного місця в каталозі файлів
Wend 'хто дочитає до цього місця-пляшка шампанського!
. Cells (temp; 2) = File.Name 'Запис у каталог інформації про фото
. Cells (temp; 3) = File.Size
. Cells (temp; 4) = File.First
End With
End Sub
Sub DeleteFileFromCatalog (NameDeletedFile As String) 'Видалення інформації про фото з каталогу
Position = 4
While Sheets ("Sheet"). Cells (Position; 2). Text <> NameDeletedFile
Position = Position + 1
Wend
For temp = Position To 16 + 3 'наступні за що видаляється файлом комірки зсуваються, _
затираючи запис про удаляемом файлі
Sheets ("sheet"). Range (Cells (temp; 2); Cells (temp; 4)). Value = _
Sheets ("sheet"). Range (Cells (temp + 1, 2); Cells (temp + 1; 4)). Value
Next
End Sub
Sub ToFAT (NumberCell As Integer; Value As Integer) 'Процедура запису в задану клітинку FAT заданого значення
Sheets ("Sheet"). Cells (3; NumberCell + 5). Value = Value
End Sub
Sub DeleteCellFromFAT (StartCell As Integer) 'рекурсивна функція видалення ланцюжки з FAT _
Викликається з номером точки входу
'MsgBox ("DeleteCellFromFAT, StartCell =" & StartCell)
If Sheets ("Sheet"). Cells (3; 5 + StartCell). Value = 0 Then 'якщо в розглянутій точці - 0, _
то це значить, що вона є покажчиком кінця файлу
Sheets ("Sheet"). Cells (3; 5 + StartCell) = "" 'І тому очищаємо цю клітинку FAT
Else 'в іншому випадку це покажчик на наступну комірку FAT - викликаємо цю ж процедуру
DeleteCellFromFAT (Sheets ("sheet"). Cells (3; 5 + StartCell). Value) 'але з новим номером осередку FAT
Sheets ("sheet"). Cells (3; 5 + StartCell) = "" 'І потім її очищаємо
End If
End Sub
p align=center> Список літератури, застосованої при підготовці курсової роботи.
1. Microsoft Systems Journal, Sept 1989. Одержаний з Computer Library Periodicals, Jan 1990, Doc # 14753
2. Професійна робота в MS-DOS, Р. Данкан, Мир, 1993
3. Excel 5.0 для професіоналів, Н.Ніколь, Р. Альбрехт, Москва, "Еком", 1996
[1] Необхідно зауважити, що саме така структура використовувалася в першій версії MS-DOS.
[2] PressAddFile
PressDeleteFile
PressRemakeFile
DialogRemakePressName
DialogRemakePressOK
Visualisation
[3] AddFile
DeleteFile
Visualisation
