IAeANNEAss AINOAeA?NOAAIIAss AEAAeAIEss OIEIAeA
Einoeooo eioi?iaoeeiiiuo oaoiieiaee
eaoaae?a eioi?iaoeeiiiuo nenoai
eO?NIAAss ?AAIOA II AeENOeEIEEIA
“oAI?Ess IIA?AOeEIIIUO NENOAI”
“iiaeaeue oaeeiaie nenoaiu FAT”
Auiieiee nooaeaio 322A a?oiiu Oieiae Aeaien.
?oeiaiaeeoaeue *iu?ue E.A.
IAeANNA
1997
Niaea?aeaiea:
Oeaeue eo?niaie ?aaiou 3
Eaeay i?ia?aiiu 3
I nenoaia FAT 4
No?oeoo?a nenoaiu oaeeia FAT 5,6
I ?aaeecaoeee caaeaiey 7
I i?eiaiaiiuo o?iaiyo aano?aeoeee 8
Ia eioa?oaena 9
Enoiaeiue oaeno: Iae?inu, aucuaaaiua niauoeyie 10
Enoiaeiue oaeno: Aaciaua niauoey 13
Enoiaeiue oaeno: Iae?inu ieaeiaai o?iaiy aano?aeoeee 15
Nienie eeoa?aoo?u, i?eiaiaiiie i?e iiaeaioiaea eo?niaie ?aaiou 17
Oeaeue:
?ac?aaioea i?ia?aiiu, iiaeaee?othuae i?aaiecaoeeth oaeeiaie nenoaiu
FAT.
Eaeay i?ia?aiiu:
I?ia?aiia iicaiayao yenia?eiaioaeueii enneaaeiaaoue eiae/aneoth
no?oeoo?o oaeeiaie nenoaiu FAT, ninoiyuoth ec o?ao iaeanoae: FAT (File
Allocation Table), ei?iaaie eaoaeia e iaeanoue oaeeia. Eiaaony iaiaeue
iienaiey iia?aoeee n oaeeaie, iaoiaeyueieny ia aeenea, a eiaiii:
aeiaaaeoue oaee, oaeaeeoue oaee, ia?acaienaoue oaee (n eciaiaieai
?acia?a). E?iia oiai, i?aaeinoaaeaia aiciiaeiinoue a?aoe/aneiai
ioia?aaeaiey niioaaonoaey oaeeia naeoi?ai ia aeenea.
Oaeeiaay Nenoaia FAT:
Oae iacuaaaiay oaeeiaay nenoaia FAT eniieueciaaeanue ai anao aa?neyo
INAeIN e a ia?auo aeaoo auioneao OS/2 (aa?nee 1.0 e 1.1). Eaaeaeue
eiae/aneee oii eiaao nianoaaiiue FAT, eioi?ue auiieiyao aeaa ooieoeee:
niaea?aeeo eioi?iaoeeth ?ani?aaeaeaiey aeey eaaeaeiai oaeea a oiia a
oi?ia nienea naycae iiaeoeae ?ani?aaeaeaiey (eeanoa?ia) e oeacuaaao,
eaeea iiaeoee ?ani?aaeaeaiey naiaiaeiu.
Eiaaea FAT aue ecia?aoai, yoi auei i?aainoiaeiia ?aoaiea aeey
oi?aaeaiey aeeneiaui i?ino?ainoaii, aeaaiui ia?acii iioiio /oi aeaeea
aeenee, ia eioi?uo ii eniieueciaaeny, ?aaeei auee ?acia?ii aieaa, /ai
ianeieueei Mb. FAT aue aeinoaoi/ii iae, /oiau iaoiaeeoueny a iaiyoe
iinoiyiii, iicaieye iaania/eaaoue i/aiue auno?ue i?iecaieueiue aeinooi e
ethaie /anoe ethaiai oaeea. Eiaaea FAT aue i?eiaiai ia aeanoeeo aeeneao,
ii noae neeoeii aieueoei aeey ?aceaeaioiiai iaoiaeaeaiey a iaiyoe e
oooaeoae i?iecaiaeeoaeueiinoue nenoaiu. E?iia oiai, oae eae eioi?iaoeey
ioiineoaeueii naiaiaeiiai aeeneiaiai i?ino?ainoaa ?ann?aaeioa/eaaeanue
“iiia?ae” aieueoiai eiee/anoaa naeoi?ia FAT, ii aue iai?aeoe/ai i?e
?ani?aaeaeaiee oaeeiaiai i?ino?ainoaa, e o?aaiaioaoeey oaeeia ieacaeanue
i?aiyonoaeai aunieie yooaeoeaiinoe.
E?iia oiai, eniieueciaaiea ioiineoaeueii aieueoeo eeanoa?ia ia aeanoeeo
aeeneao i?eaaei e aieueoiio eiee/anoao iaeniieuecoaiuo o/anoeia, oae eae
a n?aaeiai aeey eaaeaeiai oaeea iieiaeia eeanoa?a auea iio?a/aia
aionooth.
Ia?aie/aiey FAT ia iaeiaiiaaiea oaeeia e eaoaeiaia oianeaaeiaaiu ec
CP/M. Eiaaea Paterson nicaeaaae 86DOS, iaeiie ec aai ia?auo oeaeae auei
iaeaa/eoue eiii?o ec CP/M a aai iiaoth iia?aoeeiiioth nenoaio. A
neaaeiaaoaeueii i?eiyoua a CP/M ia?aie/aiey ia eiaia oaeeia e ?anoe?aiee
ia?aianeenue a 86DOS.
A oa/aiea ianeieueeeo eao Microsoft e IBM naeaeaee iiiuoeo i?iaeeeoue
aeeciue oaeeiaie nenoaiu FAT aeaaiaea?y niyoeth ia?aie/aiee ia ?acia?u
oiia, oeo/oaieth co?aoaaee ?ani?aaeaeaiey, eyoe?iaaiey eiai iooe, e
ia?aiauaieth oaaeeoe e aooa?ia a ?anoe?aiioth iaiyoue. Ii iie iiaoo
?anoeaieaaoueny oieueei eae a?aiaiiua ia?u, iioiio /oi oaeeiaay nenoaia
i?inoi ia iiaeoiaeeea e aieueoei ono?ienoaai i?iecaieueiiai aeinooia.
21I 25I Iiia? ioiineoaeueiie caiene
?acthia
?acthia.
I ?aaeecaoeee caaeaiey
Iiaeaeue oaeeiaie nenoaiu i?aaenoaaeyao niaie ?aai/ee eeno Microsoft
Excel, ia eioi?ii a aeaea y/aae i?aaenoaaeaiu o?e eiae/aneea no?oeoo?u
oaeeiaie nenoaiu:
Eaoaeia oaeeia
Oaaeeoea ?ani?aaeaeaiey
Iaeanoue oaeeia
Ia ?aai/ai eenoa oaeaea ?aniieiaeaiu aeaa iaiaee oi?aaeaiey:
Iia?aoeee n oaeeaie
aeiaaaeoue
oaeaeeoue
ia?acaienaoue
Aecoaeecaoeey FAT
iieacaoue oaee
oa?aoue no?aeee
Enoiaey ec eiioaenoa aii?ina ia?aeeaeueiia auiieiaiea i?ioeannia eee
iioieia (MultiThreading) ?aaeeciauaaoue iao iaiaoiaeeiinoe. O/eouaay yoe
oaeoi?u, a oaeaea iaiaoiaeeiinoue ?ac?aaioee “ae?oaeanoaaiiiai”
eioa?aena n i?eiaiaieai a?aoe/aneeo i?eieoeaia, auei ?aoaii
eniieueciaaoue ycue i?ia?aiie?iaaiey VisualBasic (VBA) io oe?iu
Microsoft e yeaeo?iiioth oaaeeoeo Excel 5.0 oe?iu Microsoft.
Oae eae iiaeaeue yaeyaony oeie/iie oi?aaeyaiie niauoeyie nenoaiie, oi
aeai?eoi aa ?aaiou aeinoaoi/ii i?ino, a oi/iaa i?aaenoaaeyao niaie ?yae
aeai?eoiia, eioi?ua ia?anaeathony oieueei a n?aaeiai o?iaia aano?aeoeee.
(ni. ieaea) Niauoey aucuaathony iieueciaaoaeai iin?aaenoaii aicaeaenoaey
ia i?aaiu oi?aaeaiey.
I i?eiaiaiiuo o?iaiyo aano?aeoeee
Ana aiciiaeiua niauoey auee ouaoaeueii i?iaiaeece?iaaiu aaoi?ii e
?acaeaeaiu ia o?e eaoaai?ee, eee ia o?e o?iaiy aano?aeoeee:
Niauoey, aucuaaaiua aiaoieie aicaeaenoaeyie. Oaeiauie yaeythony ana
niauoey, aucuaaaiua iieueciaaoaeai iin?aaenoaii auciaa ioieoia ec a?oii
iia?aoeee n oaeeaie.
Niauoey ooiaeaiaioaeueiie i?e?iaeu, o.a. aaciaua niauoey, ii?iaeaeaaiua
i?aaeoaeoueie. Eo cia/eoaeueii iaiueoa, e iie ieeae ia aieeatho a nooue
ii?iaeeaoeo ec aiaoieo niauoee.
Niauoey ieceiai o?iaiy aano?aeoeee, eioi?ua yaeythony eneonoaaiii
neioace?iaaiiuie ec i?aaeuaeoueo aeaoo a?oii niauoeyie e eiatho oeaeueth
iiieceoue neiaeiinoue nenoaiu ca n/ao aano?aae?iaaiey io
iai?eioeeieaeueiuo oiieinoae e oneiaeiaiee a nenoaia, aeeeooaiuo
eiioaenoii. Oaeiauie, iai?eia?, yaeythony niauoey ia?aaioee
iai?aaeeueiuo neooaoeee.
Ia eioa?oaena
Eioa?oaen yaeyaony eiooeoeaii iiiyoiui e ia iaayc/eaui, anaaaea,
ianeieueei yoi aiciiaeii, yaeyaony “aeaiie?aoe/iui” ii ioiioaieth e
iieueciaaoaeth. A i?ia?aiiao, iaienaiiuo oaeei noeeai, i/aiue /aoei
i?ineaaeeaaaony i?e/eiii-neaaenoaaiiay naycue, oi?ioi ciaeiiay ethaiio
/aeiaaeo e yaeythuayny iaiouaieaiie /anoueth ia?aciiai iuoeaiey. Yoi
aeaeao i?ia?aiio aanueia i?inoie a eniieueciaaiee, a aeai?eoi ?aaiou
i?inoui a iiieiaiee. Any iaiaoiaeeiay aeey ?aaiou eioi?iaoeey
i?aaenoaaeaia a aeeaeiaao, i iai?aaeeueiuo neoooeeyo i?ia?aiia niiauaao
iieueciaaoaeth e yoi aaeeinoaaiiue (e caeiiiue) neo/ae ia?ooaiey
naiaiaeu aeaenoaee iieueciaaoaey.
Aeaeaa i?eaiaeeony enoiaeiue oaeno i?ia?aiiu n iaoe?iuie eiiiaioa?eyie,
a eioi?uo aeaeaaony oii? ia ia iniaaiiinoe ycuea i?ia?aiie?iaaiey e
eiie?aoiie ?aaeecaoeee, a ia i?aaenoaaeaiea ninoaaeythueo oaeeiaie
nenoaiu eae iauaeoia, a i?ioeaaeo? e ooieoeee eae iaoiaeia, i?eiaiyaiuo
e yoei iauaeoai.
Iae?inu, aucuaaaiua niauoeyie
Public Type FileID ‘Oei, iienuaathuee oaee: eiy,?acia? e oi/ea aoiaea a
FAT
Name As String
Size As Integer
First As Integer
End Type
Sub PressAddFile() ‘Iae?in, aucuaaaiue eiiieie “Aeiaaaeoue Oaee”
DialogSheets(“Add”).EditBoxes(“Name”).Text = “” ‘iiaeaioiaea
aeeaeiaa “Aeiaaaeaiea oaeea”
DialogSheets(“Add”).EditBoxes(“Size”).Text = “” ‘i/enoea iieae
aaiaea
Sheets(“Add”).Show ‘Aucia aeeaeiaa “Aeiaaaeaiea oaeea”
With DialogSheets(“Add”) ‘I?iaa?ea ia i?aaeeueiinoue aaaaeaiiuo
aeaiiuo
If (.EditBoxes(“Name”).Text = “”) Or (.EditBoxes(“Size”).Text =
“”) Or (.EditBoxes(“Size”).Text = “0”) Then Exit Sub
End With
Dim NewFile As FileID ‘Yecaiiey? ia?aiaiiie n iienaieai
nicaeaaaaiiai oaeea
With DialogSheets(“Add”)
NewFile.Name = .EditBoxes(“Name”).Text
NewFile.Size = .EditBoxes(“Size”).Text
End With
Call AddFile(NewFile) ‘Aucia i?ioeaaeo?u aeiaaaeaiey oaeea
Refresh ‘iaiiaeee a?aoe/aneia ecia?aaeaiea ?aciauaiey oaeeia
End Sub
Sub PressDeleteFile() ‘a iniiaiii ?aai/ai eenoa iaaeaoa eiiiea Oaeaeeoue
Oaee
temp = 4
With DialogSheets(“Delete”) ‘iiaeaioaaeeaaai e ?aaioa aeeaeia Delete
.ListBoxes(“Name”).RemoveAllItems
While Sheets(“Sheet”).Cells(temp; 2) “” ‘caiieiyai nienie
eiathueieny a eaoaeiaa oaeeaie
.ListBoxes(“Name”).AddItem
Text:=Worksheets(“Sheet”).Cells(temp; 2).Value; Index:=temp – 3
temp = temp + 1
Wend
.Show ‘iieacuaaai aeeaeia Delete
If .ListBoxes(“Name”) = 0 Then Exit Sub
Dim File As FileID ‘ia?aiaiiay aeey eaeaioeoeeaoi?a oaeaeyaiiai
oaeea.Ia?aaeaaony i?ioeaaeo?a 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) ‘Aucuaaai i?ioeaaeo?o oaeaeaiey oaeea
Refresh ‘iaiiaeee a?aoe/aneia ecia?aaeaiea ?aciauaiey oaeeia
End With
End Sub
Sub PressRemakeFile() ‘iaaeaoa eiiiea Eciaieoue_?acia?u_oaeea
‘ii yoiio iiaiaeo iiaeaioaaeeaaai e ?aaioa aeeaeia Remake
temp = 4
With DialogSheets(“Remake”)
.ListBoxes(“Name”).RemoveAllItems
.EditBoxes(“Size”).Text = “”
While Sheets(“Sheet”).Cells(temp; 2) “” ‘caiieiyai nienie
eiathueieny a eaoaeiaa oaeeaie
.ListBoxes(“Name”).AddItem
Text:=Worksheets(“Sheet”).Cells(temp; 2).Value; Index:=temp – 3
temp = temp + 1
Wend
.Show ‘iieacuaaai aeeaeia Remake
‘i?e iaaeaoee eiiiee OK a aeeaeiaa caionoeony iae?in
DialogRemakePressOK
End With
End Sub
Sub DialogRemakePressName() ‘a aeeaeiaa Ia?acaienue aua?ai oaee ec
nienea
With DialogSheets(“Remake”) ‘e iiyoiio a aeeaeiaa Ia?acaienue
iaiiaeyai iiea ?acia?a oaeea a niioa. n aua?aiiui oaeeii
.EditBoxes(“Size”).Text = Sheets(“Sheet”).Cells(3 +
.ListBoxes(“Name”).ListIndex; 3).Value
End With
End Sub
Sub DialogRemakePressOK() ‘a aeeaeiaa eciaiaiea ?acia?ia oaeea iaaeaoa
eiiiea OK
With DialogSheets(“Remake”)
.Hide ‘oa?aee n ye?aia aeeaeia
If .ListBoxes(“Name”).ListIndex = 0 Then Exit Sub
Dim File As FileID ‘Yecaiiey? oeia FileID – eaeaioeoeeaoi? oaeea
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
‘i?iaa?ea ia iaee/ea eciaiaiee
If .EditBoxes(“Size”).Text = File.Size Or
.EditBoxes(“Size”).Text = “0” Then Exit Sub
‘i?iaa?ea ia iiiauaaiinoue
If .EditBoxes(“Size”).Text > (FreeSize + ((File.Size – 1) \ 8 +
1) * 8) Then
temp = MsgBox(“Oaee ” & File.Name & ” ?acia?ii ” &
.EditBoxes(“Size”).Text & ” ia iiaeao auoue ?aciauai”; vbExclamation;
“Ia?acaienue oaeea”)
Exit Sub
End If ‘ia?acaienue: oaeaeaiea, a caoai caienue oaeea, ii n
ae?oaei ?acia?ii
Call DeleteFile(File) ‘oaeaeeee
File.Size = .EditBoxes(“Size”).Text ‘eciaieee ?acia?
Call AddFile(File) ‘caienaee
Refresh ‘iaiiaeee oaaeeoeo ?ani?aaeaeaiey oaeeia
End With
End Sub
Sub Visualisation() ‘aecoaeecaoeey oaeea
temp = 4
With DialogSheets(“Visualisation”) ‘iiaeaioaaeeaaai e ?aaioa aeeaeia
Visualisation
.ListBoxes(“Name”).RemoveAllItems
While Sheets(“Sheet”).Cells(temp; 2) “” ‘caiieiyai nienie
eiathueieny a eaoaeiaa oaeeaie
.ListBoxes(“Name”).AddItem
Text:=Worksheets(“Sheet”).Cells(temp; 2).Value; Index:=temp – 3
temp = temp + 1
Wend
.Show ‘iieacuaaai aeeaeia Visualisation
If .ListBoxes(“Name”) = 0 Then Exit Sub ‘aua?aee ee /oi-ieaoaeue
?
Dim NumberFile As Integer
NumberFile = .ListBoxes(“Name”).ListIndex ‘iiia? ii eaoaeiao
aecoaeece?oaiiai oaeea
Sheets(“Sheet”).Cells(NumberFile + 3; 2).ShowDependents
‘iieacuaaai eeiee, i?ioiaeyuea io y/aeee eaoaeiaa n eiaiai
aecoaeece?oaiiai oaeea aei anao caiyouo ei y/aae iaeanoe oaeeia
End With
End Sub
Aaciaua niauoey
Const ColorOfPaper = 33 ‘oeaao oiia iaeanoe oaeeia
Const ColorUsedPartOfFAT = 2 ‘oeaao caiyoie /anoe iaeanoe oaeeia
Sub AddFile(NewFile As FileID) ‘I?ioeaaeo?a aeiaaaeaiey oaeea
‘I?iaa?ea iaee/ey i?enoonoaey a aeinoaoi/iii aeey nicaeaiey oaeea
eiee/anoaa naiaiaeiiai i?ino?ainoaa
If NewFile.Size > FreeSize Then
temp = MsgBox(“Oaee ” + NewFile.Name + ” ia iiaeao auoue
?aciauai ec-ca iaoaaoee naiaiaeiiai ianoa.”; vbExclamation; “I?ioeann
nicaeaiey oaeea”)
Exit Sub
End If
count = NewFile.Size ‘n/ao/ee oaea caienaiiie /anoe oaeea
NewFile.First = NextFreeCellFAT ‘ caaeaiea oi/ee aoiaea a FAT aeey
aeaiiiai oaeea
Dim PreviousCellFAT As Integer ‘Iiia? iineaaeiae
iiaeeoeoee?iaaaoaeny y/aeee FAT
PreviousCellFAT = NextFreeCellFAT
Call ToFAT(PreviousCellFAT; 0) ‘Caienaee a iaa iieue-i?eciae oiai,
/oi yoi iineaaeiee (iiea) eeanoa? aeaiiiai oaeea
count = count – 8 ‘eae ieieioi 8 aaeo oaeea oaea ?aciauaiu
While count > 0 ‘iiea aanue oaee ia ?acianoeeny
Call ToFAT(PreviousCellFAT; NextFreeCellFAT) ‘a iineaaeithth
iiaeeoeoee?iaaaoothny y/aeeo FAT aiinei oeacaoaeue ia neaaeothuoth
naiaiaeioth y/aeeo
PreviousCellFAT = NextFreeCellFAT
Call ToFAT(PreviousCellFAT; 0) ‘Caienaee a iaa iieue-i?eciae
oiai, /oi yoi iineaaeiee (iiea) eeanoa? aeaiiiai oaeea
count = count – 8 ‘eae ieieioi 8 aaeo oaeea oaea ?aciauaiu
Wend
Call AddFileToCatalog(NewFile) ‘aeiaaaeee oaee a eaoaeia
End Sub
Sub DeleteFile(File As FileID) ‘i?ioeaaeo?a oaeaeyao caaeaiiue oaee aac
?acaiai?ia
Call DeleteCellFromFAT(File.First)
Call DeleteFileFromCatalog(File.Name)
End Sub
Sub Refresh() ‘iaiiaeaiea ecia?aaeaiey iaeanoe oaeeia
With Sheets(“Sheet”)
.Range(“F6:U13”).Interior.ColorIndex = ColorOfPaper ‘ie?aneee
iaeanoue oaeeia a oeaao oiia
.Range(“F6:U13”).Value = “” ‘i/enoeee ana y/aeee iaeanoe oaeeia
.Range(“F6:U13”).NumberFormat = “0” ‘oi?iao /enea aeey iaeanoe
oaeeia-oeaeua /enea
.ClearArrows ‘oa?aee ana no?aeee
Dim PointerToFile As String
NumberFile = 1
While .Cells(NumberFile + 3; 2) “” ‘iineaaeiaaoaeueii
i?iniao?eaaai iaeanoue oaeeia. Aeey eaaeaeiai oaeeaauiieiyaony
neaaeothuay i?ioeaaeo?a:
NumberCellFAT = .Cells(NumberFile + 3; 4) ‘oi/ea aoiaea a
FAT N-iiai oaeea
PointerToFile = “=R” & NumberFile + 3 & “C2” ‘oeacaoaeue ia
y/aeeo eaoaeiaa n eiaiai N-iiai oaeea
Relation = (.Cells(NumberFile + 3; 3) – 1) Mod 8 ‘niauaiea.
ssaeyao niaie ?acia? iaiieiinoueth caiieiaiiiai eeanoa?a
While .Cells(3; NumberCellFAT + 5) 0 ‘i?iniio? FAT aei
i?eciaea eiioea oeaii/ee
.Range(Cells(6; NumberCellFAT + 5); Cells(6 + 7;
NumberCellFAT + 5)).Interior.ColorIndex = ColorUsedPartOfFAT +
NumberFile ‘auaeaeaiea oeaaoii i/a?aaeiiai iaiineaaeiaai eeanoa?a N-iiai
oaeea
.Range(Cells(6; NumberCellFAT + 5); Cells(6 + 7;
NumberCellFAT + 5)).Font.ColorIndex = ColorUsedPartOfFAT + NumberFile
.Range(Cells(6; NumberCellFAT + 5); Cells(6 + 7;
NumberCellFAT + 5)).Formula = PointerToFile ‘eaaeaeay y/aeea yoiai
eeanoa?a oaia?ue oeacuaaao ia y/aeeo n eiaiai oaeea a eaoaeiaa
NumberCellFAT = .Cells(3; NumberCellFAT + 5) ‘acyee
neaaeothuoth y/aeeo FAT ec oeaii/ee
Wend ‘oaia?ue ia?aaioea iineaaeiaai eeanoa?a N-iiai oaeea.
Ioee/aaony oai, /oi ii iiaeao auoue caiyo ia iieiinoueth
.Range(Cells(6; NumberCellFAT + 5); Cells(6 + Relation;
NumberCellFAT + 5)).Interior.ColorIndex = ColorUsedPartOfFAT +
NumberFile
.Range(Cells(6; NumberCellFAT + 5); Cells(6 + Relation;
NumberCellFAT + 5)).Font.ColorIndex = ColorUsedPartOfFAT + NumberFile
.Range(Cells(6; NumberCellFAT + 5); Cells(6 + Relation;
NumberCellFAT + 5)).Formula = PointerToFile
NumberFile = NumberFile + 1 ‘?aaioaai ni neaaeothuei oaeeii
Wend
End With
End Sub
Iae?inu ieaeiaai o?iaiy aano?aeoeee
Function FreeSize() As Integer ‘Ooieoeey aeey ii?aaeaeaiey eiee/anoaa
naiaiaeiiai ianoa a iaeanoe oaeeia
FreeSize = 0
temp = 6
While temp “”
temp = temp + 1 ‘iiene naiaiaeiiai ianoa a eaoaeiaa oaeeia
Wend ‘eoi aei/eoaao aei yoiai ianoa-aooueea oaiiaineiai !
.Cells(temp; 2) = File.Name ‘Caienue a eaoaeia eioi?iaoeee i
oaeea
.Cells(temp; 3) = File.Size
.Cells(temp; 4) = File.First
End With
End Sub
Sub DeleteFileFromCatalog(NameDeletedFile As String) ‘oaeaeaiea
eioi?iaoeee i oaeea ec eaoaeiaa
Position = 4
While Sheets(“Sheet”).Cells(Position; 2).Text NameDeletedFile
Position = Position + 1
Wend
For temp = Position To 16 + 3 ‘neaaeothuea ca oaeaeyaiui oaeeii
y/aeee naeaeaathony, _
caoe?ay caienue ia oaeaeyaiii oaeea
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) ‘I?ioeaaeo?a caiene a
caaeaiioth y/aeeo FAT caaeaiiiai cia/aiey
Sheets(“Sheet”).Cells(3; NumberCell + 5).Value = Value
End Sub
Sub DeleteCellFromFAT(StartCell As Integer) ‘?aeo?neaiay ooieoeey
oaeaeaiey oeaii/ee ec FAT _
Aucuaaaony n iiia?ii oi/ee aoiaea
‘ MsgBox (“DeleteCellFromFAT, StartCell=” & StartCell)
If Sheets(“Sheet”).Cells(3; 5 + StartCell).Value = 0 Then ‘anee a
?anniao?eaaaiie oi/ea – 0, _
oi yoi cia/eo, /oi iia yaeyaony oeacaoaeai eiioea oaeea
Sheets(“Sheet”).Cells(3; 5 + StartCell) = “” ‘e iiyoiio i/euaai
yoo y/aeeo FAT
Else ‘a i?ioeaiii neo/aa yoi oeacaoaeue ia neaaeothuoth y/aeeo FAT
– aucuaaai yoo aea i?ioeaaeo?o
DeleteCellFromFAT (Sheets(“sheet”).Cells(3; 5 +
StartCell).Value) ‘ii n iiaui iiia?ii y/aeee FAT
Sheets(“sheet”).Cells(3; 5 + StartCell) = “” ‘e caoai aa i/euaai
End If
End Sub
Nienie eeoa?aoo?u, i?eiaiaiiie i?e iiaeaioiaea eo?niaie ?aaiou.
Microsoft Systems Journal, Sept 1989. Iieo/ai ec Computer Library
Periodicals, Jan 1990, Doc #14753
I?ioanneiiaeueiay ?aaioa a MS-DOS, ?.Aeaieai, Ie?, 1993
Excel 5.0 aeey i?ioanneiiaeia, I.Ieeieue, ?. Aeuea?aoo, Iineaa, “Yeii”,
1996
Iaiaoiaeeii caiaoeoue, /oi eiaiii oaeay no?oeoo?a eniieueciaaeanue a
ia?aie aa?nee MS-DOS.
PressAddFile
PressDeleteFile
PressRemakeFile
DialogRemakePressName
DialogRemakePressOK
Visualisation
AddFile
DeleteFile
Visualisation
Refresh
FreeSize
ToFAT
NextFreeCellFAT
AddFileToCatalog
DeleteCellFromFAT
DeleteFileFromCatalog
iiaeaeue oaeeiaie nenoaiu FAT No?aieoea ? PAGE 3
Oaee Ae
Oaee A
Oaee A
Eaoaeia
Oaee A
Eaoaeia
Eaoaeia
Oaee A
Eaeaioeoeeaoi?
aeeneiaiaea
Ei?iaaie eaoaeia
(iaoea oiia)
Oeie/iue aeie oi?aaeaiey oaeeii
Yeaiaiou no?oeoo?u
Ioiineoaeueiue eiia/iue aae?an a aaeoao
Ioiineoaeueiue ia/aeueiue aae?an a aaeoao
?anoe?aiiue aeie oi?aaeaiey oaeeii
Ioiineoaeueiue ia/aeueiue aae?an a aaeoao
Yeaiaiou no?oeoo?u
Ioiineoaeueiue eiia/iue aae?an a aaeoao
Нашли опечатку? Выделите и нажмите CTRL+Enter