FSO β ΡΡΠΆΠ΅Π»Π°Ρ Π°ΡΡΠΈΠ»Π»Π΅ΡΠΈΡ VB6
Π Π°Π±ΠΎΡΠ° Ρ Files (Π€Π°ΠΉΠ»Π°ΠΌΠΈ) ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ°Π±ΠΎΡΠ°ΡΡ Ρ ΡΠ°ΠΉΠ»Π°ΠΌΠΈ Π² Visual Basic, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ Π½ΠΎΠ²ΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΡ FSO ΡΠΈΠΏΠ° Copy, Delete, Move ΠΈ OpenAsTextStream, ΡΠ°ΠΊ ΠΆΠ΅, ΠΊΠ°ΠΊ ΠΈ Π±ΠΎΠ»Π΅Π΅ ΡΡΠ°ΡΡΠ΅ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΡΠΈΠΏΠ° Open, Close, FileCopy, GetAttr, ΠΈ Ρ. Π΄. ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°ΡΡ, ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΈΠ»ΠΈ ΡΠ΄Π°Π»ΡΡΡ ΡΠ°ΠΉΠ»Ρ Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΠΎ ΠΎΡ ΡΠΈΠΏΠ° ΡΠ°ΠΉΠ»Π°. ΠΠΌΠ΅ΡΡΡΡ Π΄Π²Π΅ Π³Π»Π°Π²Π½ΡΡ ΠΊΠ°ΡΠ΅Π³ΠΎΡΠΈΠΈ… Π§ΠΈΡΠ°ΡΡ Π΅ΡΡ >
FSO β ΡΡΠΆΠ΅Π»Π°Ρ Π°ΡΡΠΈΠ»Π»Π΅ΡΠΈΡ VB6 (ΡΠ΅ΡΠ΅ΡΠ°Ρ, ΠΊΡΡΡΠΎΠ²Π°Ρ, Π΄ΠΈΠΏΠ»ΠΎΠΌ, ΠΊΠΎΠ½ΡΡΠΎΠ»ΡΠ½Π°Ρ)
FSO — ΡΡΠΆΠ΅Π»Π°Ρ Π°ΡΡΠΈΠ»Π»Π΅ΡΠΈΡ VB6
ΠΠ±ΡΠ΅ΠΊΡΠ½Π°Ρ Π€Π°ΠΉΠ»ΠΎΠ²Π°Ρ Π‘ΠΈΡΡΠ΅ΠΌΠ°, ΠΊΠΎΡΠΎΡΠ°Ρ ΠΎΠ±Π΅ΡΠΏΠ΅ΡΠΈΠ²Π°Π΅Ρ ΠΎΡΠ½ΠΎΠ²Π°Π½Π½ΡΠΉ Π½Π° ΠΎΠ±ΡΠ΅ΠΊΡΠ°Ρ ΠΈΠ½ΡΡΡΡΠΌΠ΅Π½Ρ Π΄Π»Ρ ΡΠ°Π±ΠΎΡΡ Ρ ΠΏΠ°ΠΏΠΊΠ°ΠΌΠΈ ΠΈ ΡΠ°ΠΉΠ»Π°ΠΌΠΈ. ΠΡΠΎ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΠ°ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π·Π½Π°ΠΊΠΎΠΌΡΠΉ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡ object. method Ρ Π±ΠΎΠ³Π°ΡΡΠΌ Π½Π°Π±ΠΎΡΠΎΠΌ ΡΠ²ΠΎΠΉΡΡΠ², ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ², ΠΈ ΡΠΎΠ±ΡΡΠΈΠΉ, ΡΡΠΎΠ±Ρ ΠΎΠ±ΡΠ°Π±ΠΎΡΠ°ΡΡ ΠΏΠ°ΠΏΠΊΠΈ ΠΈ ΡΠ°ΠΉΠ»Ρ, Π² Π΄ΠΎΠΏΠΎΠ»Π½Π΅Π½ΠΈΠ΅ ΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΡΡΠ°Π΄ΠΈΡΠΈΠΎΠ½Π½ΡΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² ΠΈ ΠΊΠΎΠΌΠ°Π½Π΄ Visual Basic. ΠΠ±ΡΠ΅ΠΊΡΠ½Π°Ρ ΠΌΠΎΠ΄Π΅Π»Ρ FSO Π΄Π°Π΅Ρ Π²Π°ΡΠΈΠΌ ΠΏΡΠΈΠΊΠ»Π°Π΄Π½ΡΠΌ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ°ΠΌ ΡΠΏΠΎΡΠΎΠ±Π½ΠΎΡΡΡ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ, ΠΈΠ·ΠΌΠ΅Π½ΡΡΡ, ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°ΡΡ, ΠΈ ΡΠ΄Π°Π»ΠΈΡΡ ΠΏΠ°ΠΏΠΊΠΈ, ΠΈΠ»ΠΈ Π²ΡΡΡΠ½ΡΡΡ, Π΅ΡΠ»ΠΈ ΡΠΏΠ΅ΡΠΈΡΠΈΡΠ΅ΡΠΊΠΈΠ΅ ΠΏΠ°ΠΏΠΊΠΈ ΡΡΡΠ΅ΡΡΠ²ΡΡΡ, ΠΈ Π΅ΡΠ»ΠΈ ΡΠ°ΠΊ, ΡΠΎ Π³Π΄Π΅. ΠΡΠΎ ΡΠ°ΠΊΠΆΠ΅ Π΄Π°Π΅Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΠΠ°ΠΌ ΠΏΠΎΠ»ΡΡΠΈΡΡΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΠΏΠ°ΠΏΠΎΠΊ, ΡΠΈΠΏΠ° ΠΈΡ ΠΈΠΌΠ΅Π½, Π΄Π°Ρ, ΠΊΠΎΠ³Π΄Π° ΠΎΠ½ΠΈ Π±ΡΠ»ΠΈ ΡΠΎΠ·Π΄Π°Π½Ρ ΠΈΠ»ΠΈ Π² ΠΏΠΎΡΠ»Π΅Π΄Π½ΠΈΠΉ ΡΠ°Π· ΠΈΠ·ΠΌΠ΅Π½ΡΠ»ΠΈΡΡ, ΠΈ Ρ. Π΄. ΠΠ±ΡΠ΅ΠΊΡΠ½Π°Ρ ΠΌΠΎΠ΄Π΅Π»Ρ FSO ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ Π½Π°ΠΌΠ½ΠΎΠ³ΠΎ ΠΏΡΠΎΡΠ΅ ΠΏΡΠΎΠ²ΠΎΠ΄ΠΈΡΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΡ ΡΠ°ΠΉΠ»ΠΎΠ². ΠΡΠΈ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠ΅ ΡΠ°ΠΉΠ»ΠΎΠ², Π²Π°ΡΠ° ΠΎΡΠ½ΠΎΠ²Π½Π°Ρ ΡΠ΅Π»Ρ ΡΠΎΡΡΠΎΠΈΡ Π² ΡΠΎΠΌ, ΡΡΠΎΠ±Ρ ΡΠΎΡ ΡΠ°Π½ΠΈΡΡ Π΄Π°Π½Π½ΡΠ΅ Π² ΠΎΠ±Π»Π°ΡΡΠΈ — ΠΈ ΡΠ΅ΡΡΡΡΠΎ-ΡΡΡΠ΅ΠΊΡΠΈΠ²Π½ΠΎΠΌ, Π»Π΅Π³ΠΊΠΎ Π΄ΠΎΡΡΡΠΏΠ½ΠΎΠΌ ΡΠΎΡΠΌΠ°ΡΠ΅. ΠΡ ΡΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ ΡΠ°ΠΉΠ»Ρ, Π²ΡΡΠ°Π²Π»ΡΡΡ ΠΈ ΠΈΠ·ΠΌΠ΅Π½ΡΡΡ (Π·Π°ΠΌΠ΅Π½ΡΡΡ) ΠΈ Π²ΡΠ²ΠΎΠ΄ΠΈΡΡ (ΡΡΠΈΡΡΠ²Π°ΡΡ) Π΄Π°Π½Π½ΡΠ΅ ΠΠ±ΡΠ΅ΠΊΡΠ½Π°Ρ ΠΌΠΎΠ΄Π΅Π»Ρ FSO, ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠΎΠ΄Π΅ΡΠΆΠΈΡΡΡ Π² Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ΅ ΡΠΈΠΏΠΎΠ² Scripting type library (Scrrun.Dll), ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°Π΅Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° ΠΈ ΠΌΠ°Π½ΠΈΠΏΡΠ»ΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈΠΌ ΡΠ΅ΡΠ΅Π· ΠΎΠ±ΡΠ΅ΠΊΡ TextStream. ΠΠ΄Π½Π°ΠΊΠΎ ΡΡΠΎ Π½Π΅ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°Π΅Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈΠ»ΠΈ ΠΌΠ°Π½ΠΈΠΏΡΠ»ΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π΄Π²ΠΎΠΈΡΠ½ΡΠΌΠΈ ΡΠ°ΠΉΠ»Π°ΠΌΠΈ. Π§ΡΠΎΠ±Ρ ΡΠΏΡΠ°Π²Π»ΡΡΡ Π΄Π²ΠΎΠΈΡΠ½ΡΠΌΠΈ ΡΠ°ΠΉΠ»Π°ΠΌΠΈ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΠΊΠΎΠΌΠ°Π½Π΄Π° Open Ρ Π±ΠΈΠ½Π°ΡΠ½ΡΠΌ ΡΠ»Π°Π³ΠΎΠΌ. ΠΠ±ΡΠ΅ΠΊΡΡ Π€Π°ΠΉΠ»ΠΎΠ²ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡΠΠ±ΡΠ΅ΠΊΡΠ½Π°Ρ ΠΌΠΎΠ΄Π΅Π»Ρ FSO ΠΈΠΌΠ΅Π΅Ρ ΡΠ»Π΅Π΄ΡΡΡΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΡ: Drive (ΠΠΈΡΠΊΠΎΠ²ΠΎΠ΄) — ΠΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΠ°ΠΌ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄ΠΎΠ² ΠΏΡΠΈΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½Π½ΡΡ ΠΊ ΡΠΈΡΡΠ΅ΠΌΠ΅, ΠΈΡ ΡΠΈΠΏΠ°, ΠΊΠΎΠ»ΠΈΡΠ΅ΡΡΠ²Π° Π΄ΠΎΡΡΡΠΏΠ½ΠΎΠ³ΠΎ ΡΡΠ°ΡΡΠΊΠ° ΠΏΠ°ΠΌΡΡΠΈ, ΠΈΡ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΡ, ΠΈ Ρ. Π΄. ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ «Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄ «Π½Π΅ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ ΠΆΠ΅ΡΡΠΊΠΈΠΉ Π΄ΠΈΡΠΊ. ΠΡΠΎ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄ CD-ROM, Π²Π΅ΡΡΡΠ°Π»ΡΠ½ΡΠΉ Π΄ΠΈΡΠΊ, ΠΈ Ρ. Π΄. Π’Π°ΠΊΠΆΠ΅ Π½Π΅ ΠΎΠ±ΡΠ·Π°ΡΠ΅Π»ΡΠ½ΠΎ, ΡΡΠΎΠ±Ρ Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄Ρ Π±ΡΠ»ΠΈ ΡΠΈΠ·ΠΈΡΠ΅ΡΠΊΠΈ ΠΏΡΠΈΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½Π½ΡΠΌΠΈ ΠΊ ΡΠΈΡΡΠ΅ΠΌΠ΅; ΠΎΠ½ΠΈ ΠΌΠΎΠ³ΡΡ Π±ΡΡΡ ΡΠ°ΠΊΠΆΠ΅ Π»ΠΎΠ³ΠΈΡΠ΅ΡΠΊΠΈ ΠΏΠΎΠ΄ΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½Ρ ΡΠ΅ΡΠ΅Π· Π»ΠΎΠΊΠ°Π»ΡΠ½ΡΡ ΡΠ΅ΡΡ.
Folder (ΠΠ°ΠΏΠΊΠ°) — ΠΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΠ°ΠΌ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ, ΡΠ΄Π°Π»ΡΡΡ, ΠΈΠ»ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°ΡΡ ΠΏΠ°ΠΏΠΊΠΈ, ΠΏΠ»ΡΡ Π·Π°ΠΏΡΠΎΡ ΡΠΈΡΡΠ΅ΠΌΡ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΠΈΡ ΠΈΠΌΠ΅Π½, ΠΏΡΡΠ΅ΠΉ, ΠΈ ΡΠ°ΠΊ Π΄Π°Π»Π΅Π΅.
Files (Π€Π°ΠΉΠ»Ρ) — ΠΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΠ°ΠΌ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ, ΡΠ΄Π°Π»ΡΡΡ, ΠΈΠ»ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°ΡΡ ΡΠ°ΠΉΠ»Ρ, ΠΏΠ»ΡΡ Π·Π°ΠΏΡΠΎΡ ΡΠΈΡΡΠ΅ΠΌΡ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΠΈΡ ΠΈΠΌΠ΅Π½, ΠΏΡΡΠ΅ΠΉ, ΠΈ ΡΠ°ΠΊ Π΄Π°Π»Π΅Π΅.
FileSystemObject — ΠΡΠ½ΠΎΠ²Π½ΠΎΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ Π³ΡΡΠΏΠΏΡ, Ρ ΠΏΠΎΠ»Π½ΡΠΌΠΈ ΠΌΠ΅ΡΠΎΠ΄Π°ΠΌΠΈ, ΠΊΠΎΡΠΎΡΡΠ΅ ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡ ΠΠ°ΠΌ ΡΠΎΠ·Π΄Π°ΡΡ, ΡΠ΄Π°Π»ΡΡΡ, ΠΏΠΎΠ»ΡΡΠ°ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎΠ±ΠΎΠ²ΡΠ΅ΠΌ, ΠΈ Π²ΠΎΠΎΠ±ΡΠ΅, ΡΠΏΡΠ°Π²Π»ΡΠ΅Ρ Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄Π°ΠΌΠΈ, ΠΏΠ°ΠΏΠΊΠ°ΠΌΠΈ, ΠΈ ΡΠ°ΠΉΠ»Π°ΠΌΠΈ. ΠΠ½ΠΎΠ³ΠΈΠ΅ ΠΈΠ· ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ², ΡΠ²ΡΠ·Π°Π½Π½ΡΡ Ρ ΡΡΠΈΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠΌ Π΄ΡΠ±Π»ΠΈΡΠΎΠ²Π°Π½Ρ Π² Π΄ΡΡΠ³ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ°Ρ .
TextStream — ΠΠ°Π΅Ρ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΡ ΠΠ°ΠΌ ΡΠΈΡΠ°ΡΡ ΠΈ ΠΏΠΈΡΠ°ΡΡ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠ΅ ΡΠ°ΠΉΠ»Ρ.
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² ΠΠ±ΡΠ΅ΠΊΡΠ½ΠΎΠΉ ΠΠΎΠ΄Π΅Π»ΠΈ FSO.
ΠΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ Π² ΠΠ±ΡΠ΅ΠΊΡΠ½ΠΎΠΉ ΠΠΎΠ΄Π΅Π»ΠΈ FSO Π²ΠΊΠ»ΡΡΠ°Π΅Ρ ΡΡΠΈ ΠΎΡΠ½ΠΎΠ²Π½ΡΡ Π·Π°Π΄Π°ΡΠΈ:
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΌΠ΅ΡΠΎΠ΄Π° CreateObject ΠΈΠ»ΠΈ ΠΎΠ±ΡΡΠ²Π»Π΅Π½ΠΈΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΊΠ°ΠΊ ΠΎΠ±ΡΠ΅ΠΊΡ FileSystemObject, Π΄Π»Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° FileSystemObject;
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠ΅Π³ΠΎ ΠΌΠ΅ΡΠΎΠ΄Π° Π² Π½Π΅Π΄Π°Π²Π½ΠΎ ΡΠΎΠ·Π΄Π°Π½Π½ΠΎΠΌ ΠΎΠ±ΡΠ΅ΠΊΡΠ΅;
ΠΡΠ·ΠΎΠ² ΡΠ²ΠΎΠΉΡΡΠ² ΠΎΠ±ΡΠ΅ΠΊΡΠ°.
ΠΠ±ΡΠ΅ΠΊΡΠ½Π°Ρ ΠΠΎΠ΄Π΅Π»Ρ FSO ΡΠΎΠ΄Π΅ΡΠΆΠΈΡΡΡ Π² Π±ΠΈΠ±Π»ΠΈΠΎΡΠ΅ΠΊΠ΅ ΡΠΈΠΏΠΎΠ², Π½Π°Π·ΡΠ²Π°Π΅ΠΌΠΎΠΉ Scripting, ΠΊΠΎΡΠΎΡΠ°Ρ ΡΠ°Π·ΠΌΠ΅ΡΠ΅Π½Π° Π² ΡΠ°ΠΉΠ»Π΅ Scrrun.Dll. ΠΡΠ»ΠΈ ΠΡ ΠΏΠΎΠΊΠ° Π½Π΅ ΠΈΠΌΠ΅Π΅ΡΠ΅ ΡΡΡΠ»ΠΊΡ, ΡΠΎ ΠΏΠΎΡΡΠ°Π²ΡΡΠ΅ Π΅Π΅ Π² ΠΌΠ΅Π½Ρ References| Microsoft Scripting Runtime. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π·Π°ΡΠ΅ΠΌ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Object Browser, ΡΡΠΎΠ±Ρ ΠΏΡΠΎΡΠΌΠΎΡΡΠ΅ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΡ, ΡΠ²ΠΎΠΉΡΡΠ²Π°, ΠΌΠ΅ΡΠΎΠ΄Ρ ΠΈ ΡΠΎΠ±ΡΡΠΈΡ, Π° ΡΠ°ΠΊΠΆΠ΅ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΡ.
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ° FileSystemObject.
ΠΠ΅ΡΠ²ΡΠΉ ΡΠ°Π³ Π΄ΠΎΠ»ΠΆΠ΅Π½ ΡΠΎΠ·Π΄Π°ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡ FileSystemObject, ΡΡΠΎΠ±Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ Ρ Π½ΠΈΠΌ. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ΄Π΅Π»Π°ΡΡ ΡΡΠΎ Π΄Π²ΡΠΌΡ ΡΠΏΠΎΡΠΎΠ±Π°ΠΌΠΈ: ΠΠ±ΡΡΠ²ΠΈΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ, ΠΊΠ°ΠΊ ΠΎΠ±ΡΠ΅ΠΊΡ:
Dim fso As New FileSystemObject.
ΠΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΌΠ΅ΡΠΎΠ΄ CreateObject ΡΠΎΠ·Π΄Π°ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡ FileSystemObject:
Set fso = CreateObject («Scripting.FileSystemObject »).
ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ ΠΏΠ΅ΡΠ²ΡΠΉ ΠΌΠ΅ΡΠΎΠ΄ ΡΠ°Π±ΠΎΡΠ°Π΅Ρ ΡΠΎΠ»ΡΠΊΠΎ Π² Visual Basic, Π² ΡΠΎ Π²ΡΠ΅ΠΌΡ, ΠΊΠ°ΠΊ Π²ΡΠΎΡΠΎΠΉ ΠΌΠ΅ΡΠΎΠ΄ ΡΠ°Π±ΠΎΡΠ°Π΅Ρ ΠΈ Π² Visual Basic ΠΈ Π² VBScript.
ΠΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² Π‘Π»Π΅Π΄ΡΡΡΠΈΠΉ ΡΠ°Π³ Π΄ΠΎΠ»ΠΆΠ΅Π½ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΉ ΠΌΠ΅ΡΠΎΠ΄ ΠΎΠ±ΡΠ΅ΠΊΡΠ° FileSystemObject. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π΅ΡΠ»ΠΈ ΠΡ Ρ ΠΎΡΠΈΡΠ΅ ΡΠΎΠ·Π΄Π°Π²Π°ΡΡ Π½ΠΎΠ²ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ, ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΈΠ»ΠΈ CreateFolder ΠΈΠ»ΠΈ CreateTextFile. (ΠΠΎΠ΄Π΅Π»Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ° FSO Π½Π΅ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°Π΅Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΈΠ»ΠΈ ΡΡΠΈΡΠ°Π½ΠΈΠ΅ Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄ΠΎΠ².). ΠΡΠ»ΠΈ ΠΡ Ρ ΠΎΡΠΈΡΠ΅ ΡΠ΄Π°Π»ΠΈΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΡ, ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ΅ΡΠΎΠ΄Ρ DeleteFile ΠΈΠ»ΠΈ DeleteFolder ΠΎΠ±ΡΠ΅ΠΊΡΠ° FileSystemObject, ΠΈΠ»ΠΈ ΠΌΠ΅ΡΠΎΠ΄ Delete ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² File ΠΈΠ»ΠΈ Folder. ΠΡΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠΈ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ², ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ°ΠΊΠΆΠ΅ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°ΡΡ ΡΠ°ΠΉΠ»Ρ ΠΈ ΠΏΠ°ΠΏΠΊΠΈ. ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ Π½Π΅ΠΊΠΎΡΠΎΡΡΠ΅ ΡΡΠ½ΠΊΡΠΈΠΎΠ½Π°Π»ΡΠ½ΡΠ΅ Π²ΠΎΠ·ΠΌΠΎΠΆΠ½ΠΎΡΡΠΈ Π² ΠΌΠΎΠ΄Π΅Π»ΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠ° FileSystemObject ΠΈΠ·Π±ΡΡΠΎΡΠ½Ρ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΡΠ°ΠΉΠ», ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡΡΠΈΠΉ ΠΈΠ»ΠΈ ΠΌΠ΅ΡΠΎΠ΄ CopyFile ΠΎΠ±ΡΠ΅ΠΊΡΠ° FileSystemObject, ΠΈΠ»ΠΈ ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ΅ΡΠΎΠ΄ Copy ΠΎΠ±ΡΠ΅ΠΊΡΠ° File. ΠΠ΅ΡΠΎΠ΄Ρ ΡΠ°Π±ΠΎΡΠ°ΡΡ ΡΠ°ΠΊΠΆΠ΅. Π ΡΡΡΠ΅ΡΡΠ²ΡΡΡ, ΡΡΠΎΠ±Ρ Π΄Π°ΡΡ ΠΠ°ΠΌ ΠΌΠ°ΠΊΡΠΈΠΌΡΠΌ Π³ΠΈΠ±ΠΊΠΎΡΡΠΈ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠΈΡΠΎΠ²Π°Π½ΠΈΡ.
ΠΡΠ·ΠΎΠ², ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠΈΡ Drives (ΠΠΈΡΠΊΠΎΠ²ΠΎΠ΄ΠΎΠ²), Files (Π€Π°ΠΉΠ»ΠΎΠ²) ΠΈ Folders (ΠΠ°ΠΏΠΎΠΊ) Π§ΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ Π΄ΠΎΡΡΡΠΏ ΠΊ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠ΅ΠΌΡ Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄Ρ, ΡΠ°ΠΉΠ»Ρ ΠΈΠ»ΠΈ ΠΏΠ°ΠΏΠΊΠ΅, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΉ ΠΌΠ΅ΡΠΎΠ΄ «Get «ΠΎΠ±ΡΠ΅ΠΊΡΠ° FileSystemObject:
GetDrive;
GetFolder;
GetFile;
ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ:
Dim fso As New FileSystemObject, fil As File.
Set fil = fso. GetFile («c:test.txt »).
ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΠΎΠ΄Π½Π°ΠΊΠΎ, ΡΡΠΎ ΠΡ Π½Π΅ Π΄ΠΎΠ»ΠΆΠ½Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ΅ΡΠΎΠ΄Ρ «Get «Π΄Π»Ρ Π½Π΅Π΄Π°Π²Π½ΠΎ ΡΠΎΠ·Π΄Π°Π½Π½ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ², ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΡΡΠ½ΠΊΡΠΈΠΈ «Get «ΡΠΆΠ΅ Π²ΠΎΠ·Π²ΡΠ°ΡΠ°Π΅Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ΅ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ Π½Π΅Π΄Π°Π²Π½ΠΎ ΡΠΎΠ·Π΄Π°Π½Π½ΡΠΉ ΠΎΠ±ΡΠ΅ΠΊΡ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π΅ΡΠ»ΠΈ ΠΡ ΡΠΎΠ·Π΄Π°Π΅ΡΠ΅ Π½ΠΎΠ²ΡΡ ΠΏΠ°ΠΏΠΊΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ ΠΌΠ΅ΡΠΎΠ΄ CreateFolder, ΠΡ Π·Π°ΡΠ΅ΠΌ Π½Π΅ Π΄ΠΎΠ»ΠΆΠ½Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ΅ΡΠΎΠ΄ GetFolder, ΡΡΠΎΠ±Ρ ΠΎΠ±ΡΠ°ΡΠΈΡΡΡΡ ΠΊ ΡΠ²ΠΎΠΉΡΡΠ²Π°ΠΌ, ΡΠΈΠΏΠ° Name, Path, Size ΠΈ Ρ. Π΄. Π’ΠΎΠ»ΡΠΊΠΎ ΠΎΠ±ΡΡΠ²ΠΈΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΡΡΠ½ΠΊΡΠΈΠΈ CreateFolder, ΡΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΡ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ Π½Π΅Π΄Π°Π²Π½ΠΎ ΡΠΎΠ·Π΄Π°Π½Π½ΠΎΠΉ ΠΏΠ°ΠΏΠΊΠ΅, Π·Π°ΡΠ΅ΠΌ ΠΎΠ±ΡΠ°ΡΠΈΡΠ΅ΡΡ ΠΊ ΡΠ²ΠΎΠΉΡΡΠ²Π°ΠΌ, ΠΌΠ΅ΡΠΎΠ΄Π°ΠΌ, ΠΈ ΡΠΎΠ±ΡΡΠΈΡΠΌ:
Private Sub Create_Folder ().
Dim fso As New FileSystemObject, fldr As Folder.
Set fldr = fso. CreateFolder («C:MyTest »).
MsgBox «Created folder: «& fldr.Name.
End Sub.
ΠΠ±ΡΠ°ΡΠ΅Π½ΠΈΠ΅ ΠΊ Properties (Π‘Π²ΠΎΠΉΡΡΠ²Π°ΠΌ) ΠΠ±ΡΠ΅ΠΊΡΠ° ΠΠ°ΠΊ ΡΠΎΠ»ΡΠΊΠΎ ΠΡ ΠΈΠΌΠ΅Π΅ΡΠ΅ ΠΊΠΎΠ΄ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠ°, ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΎΠ±ΡΠ°ΡΠ°ΡΡΡΡ ΠΊ Π΅Π³ΠΎ ΡΠ²ΠΎΠΉΡΡΠ²Π°ΠΌ. ΠΠ°ΠΏΡΠΈΠΌΠ΅Ρ, Π΅ΡΠ»ΠΈ ΠΡ Ρ ΠΎΡΠΈΡΠ΅ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΈΠΌΡ ΡΠΏΠ΅ΡΠΈΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΠΏΠ°ΠΏΠΊΠΈ. Π‘Π½Π°ΡΠ°Π»Π° ΠΡ ΡΠΎΠ·Π΄Π°Π΅ΡΠ΅ ΠΎΠ±ΡΠ°Π·Π΅Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ°, Π·Π°ΡΠ΅ΠΌ ΠΡ ΠΏΠΎΠ»ΡΡΠ°Π΅ΡΠ΅ ΠΊΠΎΠ΄ Π΄Π»Ρ Π΅Π³ΠΎ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠΎΠΎΡΠ²Π΅ΡΡΡΠ²ΡΡΡΠΈΠΌ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠΌ (Π² ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ ΠΌΠ΅ΡΠΎΠ΄ GetFolder, ΡΠ°ΠΊ ΠΊΠ°ΠΊ ΠΏΠ°ΠΏΠΊΠ° ΡΠΆΠ΅ ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ):
Set fldr = fso. GetFolder («c: »).
Π’Π΅ΠΏΠ΅ΡΡ, ΠΊΠΎΠ³Π΄Π° ΠΡ ΠΈΠΌΠ΅Π΅ΡΠ΅ ΠΊΠΎΠ΄ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Folder, ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΡΠΎΠ²Π΅ΡΠΈΡΡ ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ Name:
Debug.Print «Folder name is: »; fldr.Name.
ΠΡΠ»ΠΈ ΠΡ Ρ ΠΎΡΠΈΡΠ΅ Π²ΡΡΡΠ½ΡΡΡ ΠΊΠΎΠ³Π΄Π° Π² ΠΏΠΎΡΠ»Π΅Π΄Π½ΠΈΠΉ ΡΠ°Π·, ΡΠ°ΠΉΠ» ΠΈΠ·ΠΌΠ΅Π½ΡΠ»ΡΡ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΡΡ ΡΠ»Π΅Π΄ΡΡΡΠΈΠΉ ΡΠΈΠ½ΡΠ°ΠΊΡΠΈΡ:
Dim fso As New FileSystemObject, fil As File.
" ΠΠΎΠ»ΡΡΠ°Π΅ΠΌ ΠΎΠ±ΡΠ΅ΠΊΡ File, ΡΡΠΎΠ±Ρ ΡΠ΄Π΅Π»Π°ΡΡ Π·Π°ΠΏΡΠΎΡ.
Set fil = fso. GetFile («C:detlog.txt »).
" ΠΠ΅ΡΠ°ΡΠ°Π΅ΠΌ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ.
Debug.Print «File last modified: »; fil.DateLastModified.
Π Π°Π±ΠΎΡΠ° Ρ Drives (ΠΠΈΡΠΊΠΎΠ²ΠΎΠ΄Π°ΠΌΠΈ) ΠΈ Folders (ΠΠ°ΠΏΠΊΠ°ΠΌΠΈ) ΠΠ±ΡΠ΅ΠΊΡΠ½Π°Ρ ΠΌΠΎΠ΄Π΅Π»Ρ FSO ΠΌΠΎΠΆΠ΅Ρ ΠΏΡΠΎΠ³ΡΠ°ΠΌΠΌΠ½ΠΎ ΡΠ°Π±ΠΎΡΠ°ΡΡ Ρ Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄Π°ΠΌΠΈ ΠΈ ΠΏΠ°ΠΏΠΊΠ°ΠΌΠΈ, ΡΠΎΡΠ½ΠΎ ΡΠ°ΠΊ, ΠΊΠ°ΠΊ ΠΡ Ρ Windows Explorer Π² ΠΈΠ½ΡΠ΅ΡΠ°ΠΊΡΠΈΠ²Π½ΠΎΠΌ ΡΠ΅ΠΆΠΈΠΌΠ΅. ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΈ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°ΡΡ ΠΏΠ°ΠΏΠΊΠΈ, ΠΏΠΎΠ»ΡΡΠ°ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄ΠΎΠ² ΠΈ ΠΏΠ°ΠΏΠΎΠΊ, ΠΈ Ρ. Π΄. ΠΠΎΠ»ΡΡΠ΅Π½ΠΈΠ΅ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΠΈ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Drives (ΠΠΈΡΠΊΠΎΠ²ΠΎΠ΄ΠΎΠ²) ΠΠ±ΡΠ΅ΠΊΡ Drive ΠΏΠΎΠ·Π²ΠΎΠ»ΡΠ΅Ρ ΠΠ°ΠΌ ΠΏΠΎΠ»ΡΡΠ°ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ ΡΠ°Π·Π»ΠΈΡΠ½ΡΡ Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄ΠΎΠ², ΠΏΡΠΈΡΠΎΠ΅Π΄ΠΈΠ½Π΅Π½Π½ΡΡ ΠΊ ΡΠΈΡΡΠ΅ΠΌΠ΅ ΠΈΠ»ΠΈ ΡΠΈΠ·ΠΈΡΠ΅ΡΠΊΠΈ ΠΈΠ»ΠΈ ΡΠ΅ΡΠ΅Π· ΡΠ΅ΡΡ. Π‘Π²ΠΎΠΉΡΡΠ²Π° ΠΏΠΎΠ·Π²ΠΎΠ»ΡΡΡ ΠΠ°ΠΌ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ:
ΠΠΎΠ»Π½ΡΠΉ ΡΠ°Π·ΠΌΠ΅ΡΠ° Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄Π° Π² Π±Π°ΠΉΡΠ°Ρ (ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ TotalSize);
ΠΠΎΠ»ΠΈΡΠ΅ΡΡΠ²ΠΎ Π΄ΠΎΡΡΡΠΏΠ½ΠΎΠ³ΠΎ ΡΠ²ΠΎΠ±ΠΎΠ΄Π½ΠΎΠ³ΠΎ ΠΌΠ΅ΡΡΠ° Π½Π° Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄Π΅ Π² Π±Π°ΠΉΡΠ°Ρ (ΡΠ²ΠΎΠΉΡΡΠ²Π° AvailableSpace ΠΈΠ»ΠΈ FreeSpace);
ΠΡΠΊΠ²Π΅Π½Π½ΠΎΠ³ΠΎ ΠΎΠ±ΠΎΠ·Π½Π°ΡΠ΅Π½ΠΈΡ Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄Π° (ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ DriveLetter);
ΠΠ°ΠΊΠΎΠ³ΠΎ ΡΠΈΠΏΠ° Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄, ΡΠΌΠ΅Π½Π½ΡΠΉ, ΡΠΈΠΊΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠΉ, ΡΠ΅ΡΠ΅Π²ΠΎΠΉ, CD-ROM ΠΈΠ»ΠΈ RAM (ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ DriveType);
Π‘Π΅ΡΠΈΠΉΠ½ΡΠΉ Π½ΠΎΠΌΠ΅Ρ Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄Π° (ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ SerialNumber);
Π’ΠΈΠΏ ΡΠ°ΠΉΠ»ΠΎΠ²ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄Π° FAT, FAT32, NTFS, ΠΈ Ρ. Π΄. (ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ FileSystem);
Π―Π²Π»ΡΠ΅ΡΡΡ Π»ΠΈ Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄ Π΄ΠΎΡΡΡΠΏΠ΅Π½ Π΄Π»Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ (ΡΠ²ΠΎΠΉΡΡΠ²ΠΎ IsReady);
ΠΠΌΡ ΠΎΠ±ΡΠΈΡ ΠΈ/ΠΈΠ»ΠΈ ΠΠΌΡ ΠΎΠ±ΡΠ΅ΠΌa (ΡΠ²ΠΎΠΉΡΡΠ²Π° ShareName ΠΈ VolumeName);
ΠΡΡΡ ΠΈΠ»ΠΈ ΠΊΠΎΡΠ½Π΅Π²ΡΡ ΠΏΠ°ΠΏΠΊΡ Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄Π° (ΡΠ²ΠΎΠΉΡΡΠ²Π° Path ΠΈ RootFolder);
ΠΡΠΈΠΌΠ΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Drive (ΠΠΈΡΠΊΠΎΠ²ΠΎΠ΄Π°) ΠΡΠΈΠΌΠ΅Ρ Π½ΠΈΠΆΠ΅ ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅ΡΡΡ, ΠΊΠ°ΠΊ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΎΠ±ΡΠ΅ΠΊΡ Drive, ΡΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΠΏΠΎΠ»Π½ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎΡΠ½ΠΎΡΠΈΡΠ΅Π»ΡΠ½ΠΎ Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄Π°. ΠΠ΅ Π·Π°Π±ΡΠ΄ΡΡΠ΅, ΡΡΠΎ Π² ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΌ ΠΊΠΎΠ΄Π΅ ΠΡ Π½Π΅ Π±ΡΠ΄Π΅ΡΠ΅ Π²ΠΈΠ΄Π΅ΡΡ ΡΡΡΠ»ΠΊΡ ΠΊ ΡΠ°ΠΊΡΠΈΡΠ΅ΡΠΊΠΎΠΌΡ ΠΎΠ±ΡΠ΅ΠΊΡΡ Drive, Π΄ΠΎΡΡΠ°ΡΠΎΡΠ½ΠΎ, ΡΡΠΎ ΠΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄ GetDrive ΡΡΠΎΠ±Ρ ΠΏΠΎΠ»ΡΡΠΈΡΡ ΡΡΡΠ»ΠΊΡ Π΄Π»Ρ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠ΅Π³ΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠ° Drive (Π² ΡΡΠΎΠΌ ΡΠ»ΡΡΠ°Π΅ — drv):
Private Sub Command3_Click ().
Dim fso As New FileSystemObject, drv As Drive, s As String.
Set drv = fso. GetDrive (fso.GetDriveName («c: »)).
s = «Drive «& UCase («c: ») & «- «.
s = s & drv. VolumeName & vbCrLf.
s = s & «Total Space: «& FormatNumber (drv.TotalSize / 1024, 0).
s = s & «Kb «& vbCrLf.
s = s & «Free Space: «& FormatNumber (drv.FreeSpace / 1024, 0).
s = s & «Kb «& vbCrLf.
MsgBox s.
End Sub.
Π Π°Π±ΠΎΡΠ° Ρ Folders (ΠΠ°ΠΏΠΊΠ°ΠΌΠΈ) ΠΡΠΎΡ ΡΠΏΠΈΡΠΎΠΊ ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅Ρ ΠΎΠ±ΡΠΈΠ΅ Π·Π°Π΄Π°ΡΠΈ ΠΏΠ°ΠΏΠΊΠΈ ΠΈ ΠΌΠ΅ΡΠΎΠ΄Ρ Π΄Π»Ρ Π²ΡΠΏΠΎΠ»Π½Π΅Π½ΠΈΡ ΠΈΡ :
Π‘ΠΎΠ·Π΄Π°ΡΡ ΠΏΠ°ΠΏΠΊΡ — FileSystemObject.CreateFolder.
Π£Π΄Π°Π»ΠΈΡΡ ΠΏΠ°ΠΏΠΊΡ — Folder. Delete ΠΈΠ»ΠΈ FileSystemObject.DeleteFolder.
ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΡΠΈΡΡ ΠΏΠ°ΠΏΠΊΡ — Folder. Move ΠΈΠ»ΠΈ FileSystemObject.MoveFolder.
ΠΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΏΠ°ΠΏΠΊΡ — Folder. Copy ΠΈΠ»ΠΈ FileSystemObject.CopyFolder.
ΠΠΎΠ·Π²ΡΠ°ΡΠΈΡΡ ΠΈΠΌΡ ΠΏΠ°ΠΏΠΊΠΈ — Folder.Name.
ΠΡΡΡΠ½ΠΈΡΡ, ΡΡΡΠ΅ΡΡΠ²ΡΠ΅Ρ Π»ΠΈ ΠΏΠ°ΠΏΠΊΠ° Π½Π° Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄Π΅ — FileSystemObject.FolderExists.
ΠΠΎΠ»ΡΡΠΈΡΡ ΠΎΠ±ΡΠ°Π·Π΅Ρ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠ΅Π³ΠΎ ΠΎΠ±ΡΠ΅ΠΊΡΠ° — Folder FileSystemObject.GetFolder.
ΠΡΡΡΠ½ΠΈΡΡ ΠΈΠΌΡ ΠΏΠ°ΠΏΠΊΠΈ, ΡΠΎΠ΄ΠΈΡΠ΅Π»Ρ ΠΏΠ°ΠΏΠΊΠΈ — FileSystemObject.GetParentFolderName.
ΠΡΡΡΠ½ΠΈΡΡ ΠΏΡΡΡ ΡΠΈΡΡΠ΅ΠΌΠ½ΡΡ ΠΏΠ°ΠΏΠΎΠΊ — FileSystemObject.GetSpecialFolder.
ΠΡΠΎΡ ΠΏΡΠΈΠΌΠ΅Ρ ΠΏΠΎΠΊΠ°Π·ΡΠ²Π°Π΅Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠ² Folder ΠΈ FileSystemObject, ΡΡΠΎΠ±Ρ ΡΠΏΡΠ°Π²Π»ΡΡΡ ΠΏΠ°ΠΏΠΊΠ°ΠΌΠΈ ΠΈ ΠΏΠΎΠ»ΡΡΠ°ΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ ΠΎ Π½ΠΈΡ :
Private Sub Command10_Click ().
" ΠΠΎΠ»ΡΡΠ°Π΅ΠΌ ΠΎΠ±ΡΠ°Π·Π΅Ρ FileSystemObject.
Dim fso As New FileSystemObject, fldr As Folder, s As String.
" ΠΠ±ΡΠ΅ΠΊΡ Get Drive.
Set fldr = fso. GetFolder («c: »).
" ΠΠ΅ΡΠ°ΡΠ°Π΅ΠΌ ΡΠΎΠ΄ΠΈΡΠ΅Π»ΡΡΠΊΠΎΠ΅ ΠΈΠΌΡ ΠΏΠ°ΠΏΠΊΠΈ.
Debug.Print «Parent folder name is: «& fldr.
" ΠΠ΅ΡΠ°ΡΠ°Π΅ΠΌ ΠΈΠΌΡ Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄Π°.
Debug.Print «Contained on drive «& fldr.Drive.
" ΠΠ΅ΡΠ°ΡΠ°Π΅ΠΌ ΠΈΠΌΡ ΠΊΠΎΡΠ½Π΅Π²ΠΎΠΉ ΠΏΠ°ΠΏΠΊΠΈ.
If fldr. IsRootFolder = True Then.
Debug.Print «This folder is a root folder. «.
Else.
Debug.Print «This folder isn «t a root folder. «.
End If.
" Π‘ΠΎΠ·Π΄Π°Π΅ΠΌ Π½ΠΎΠ²ΡΡ ΠΏΠ°ΠΏΠΊΡ ΠΎΠ±ΡΠ΅ΠΊΡΠΎΠΌ FileSystemObject.
fso.CreateFolder («c:Bogus »).
Debug.Print «Created folder C: Bogus «.
" ΠΠ΅ΡΠ°ΡΠ°Π΅ΠΌ ΠΎΡΠ½ΠΎΠ²Π½ΠΎΠ΅ ΠΈΠΌΡ ΠΏΠ°ΠΏΠΊΠΈ.
Debug.Print «Basename = «& fso. GetBaseName («c:bogus »).
" Π£Π΄Π°Π»ΡΠ΅ΠΌ Π½Π΅Π΄Π°Π²Π½ΠΎ ΡΠΎΠ·Π΄Π°Π½Π½ΡΡ ΠΏΠ°ΠΏΠΊΡ.
fso.DeleteFolder («c:Bogus »).
Debug.Print «Deleted folder C: Bogus «.
End Sub.
Π Π°Π±ΠΎΡΠ° Ρ Files (Π€Π°ΠΉΠ»Π°ΠΌΠΈ) ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΡΠ°Π±ΠΎΡΠ°ΡΡ Ρ ΡΠ°ΠΉΠ»Π°ΠΌΠΈ Π² Visual Basic, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΡ Π½ΠΎΠ²ΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΠ½ΠΎ-ΠΎΡΠΈΠ΅Π½ΡΠΈΡΠΎΠ²Π°Π½Π½ΡΠ΅ ΠΎΠ±ΡΠ΅ΠΊΡΡ FSO ΡΠΈΠΏΠ° Copy, Delete, Move ΠΈ OpenAsTextStream, ΡΠ°ΠΊ ΠΆΠ΅, ΠΊΠ°ΠΊ ΠΈ Π±ΠΎΠ»Π΅Π΅ ΡΡΠ°ΡΡΠ΅ ΡΡΡΠ΅ΡΡΠ²ΡΡΡΠΈΠ΅ ΡΡΠ½ΠΊΡΠΈΠΈ ΡΠΈΠΏΠ° Open, Close, FileCopy, GetAttr, ΠΈ Ρ. Π΄. ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°ΡΡ, ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°ΡΡ ΠΈΠ»ΠΈ ΡΠ΄Π°Π»ΡΡΡ ΡΠ°ΠΉΠ»Ρ Π½Π΅Π·Π°Π²ΠΈΡΠΈΠΌΠΎ ΠΎΡ ΡΠΈΠΏΠ° ΡΠ°ΠΉΠ»Π°. ΠΠΌΠ΅ΡΡΡΡ Π΄Π²Π΅ Π³Π»Π°Π²Π½ΡΡ ΠΊΠ°ΡΠ΅Π³ΠΎΡΠΈΠΈ ΠΌΠ°Π½ΠΈΠΏΡΠ»ΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΡΠ°ΠΉΠ»Π°ΠΌΠΈ:
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅, Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ ΠΈΠ»ΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ , ΠΈΠ»ΠΈ ΡΡΠ΅Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»ΠΎΠ²;
ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅, ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»ΠΎΠ²;
Π‘ΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»ΠΎΠ² ΠΈ Π΄ΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΡ Π΄Π°Π½Π½ΡΡ Ρ ΠΏΠΎΠΌΠΎΡΡΡ File System Objects.
ΠΠΌΠ΅ΡΡΡΡ ΡΡΠΈ ΡΠΏΠΎΡΠΎΠ±Π° ΡΠΎΠ·Π΄Π°ΡΡ ΠΏΠΎΡΠ»Π΅Π΄ΠΎΠ²Π°ΡΠ΅Π»ΡΠ½ΡΠΉ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ» (ΠΈΠ½ΠΎΠ³Π΄Π° ΡΠΏΠΎΠΌΠΈΠ½Π°Π΅ΠΌΡΠΉ ΠΊΠ°ΠΊ «ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΠΏΠΎΡΠΎΠΊ »). ΠΠ΄ΠΈΠ½ ΠΏΡΡΡ ΡΠΎΡΡΠΎΠΈΡ Π² ΡΠΎΠΌ, ΡΡΠΎΠ±Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ΅ΡΠΎΠ΄ CreateTextFile. Π‘ΠΎΠ·Π΄Π°Π΅ΠΌ ΠΏΡΡΡΠΎΠΉ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ»:
Dim fso As New FileSystemObject, fil As File.
Set fil = fso. CreateTextFile («c:testfile.txt », True).
ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ ΠΌΠΎΠ΄Π΅Π»Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ° FSO Π΅ΡΠ΅ Π½Π΅ ΠΏΠΎΠ΄Π΄Π΅ΡΠΆΠΈΠ²Π°Π΅Ρ ΡΠΎΠ·Π΄Π°Π½ΠΈΠ΅ ΠΏΡΠΎΠΈΠ·Π²ΠΎΠ»ΡΠ½ΡΡ (random) ΠΈΠ»ΠΈ Π΄Π²ΠΎΠΈΡΠ½ΡΡ (binary) ΡΠ°ΠΉΠ»ΠΎΠ².
ΠΡΡΠ³ΠΎΠΉ ΠΏΡΡΡ ΡΠΎΡΡΠΎΠΈΡ Π² ΡΠΎΠΌ, ΡΡΠΎΠ±Ρ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ΅ΡΠΎΠ΄ OpenTextFile ΠΎΠ±ΡΠ΅ΠΊΡΠ° FileSystemObject Ρ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΎΠΉ ΡΠ»Π°Π³Π° ForWriting:
Dim fso As New FileSystemObject, ts As New TextStream.
Set ts = fso. OpenTextFile («c:test.txt », ForWriting).
ΠΠ»ΠΈ ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ΅ΡΠΎΠ΄ OpenAsTextStream Ρ ΡΡΡΠ°Π½ΠΎΠ²ΠΊΠΎΠΉ ΡΠ»Π°Π³Π° ForWriting:
Dim fso As New FileSystemObject, fil As File, ts As TextStream.
Set fso = CreateObject («Scripting.FileSystemObject »).
fso.CreateTextFile («test1.txt »).
Set fil = fso. GetFile («test1.txt »).
Set ts = fil. OpenAsTextStream (ForWriting).
ΠΠΎΠ±Π°Π²Π»Π΅Π½ΠΈΠ΅ Π΄Π°Π½Π½ΡΡ ΠΊ ΡΠ°ΠΉΠ»Ρ ΠΠ°ΠΊ ΡΠΎΠ»ΡΠΊΠΎ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ» ΡΠΎΠ·Π΄Π°Π½, ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ Π΄ΠΎΠ±Π°Π²Π»ΡΡΡ Π΄Π°Π½Π½ΡΠ΅. ΠΠ»Ρ ΡΡΠΎΠ³ΠΎ Π½Π΅ΠΎΠ±Ρ ΠΎΠ΄ΠΈΠΌΠΎ:
ΠΡΠΊΡΡΡΡ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ» Π΄Π»Ρ Π·Π°ΠΏΠΈΡΠΈ Π΄Π°Π½Π½ΡΡ .
ΠΠ°ΠΏΠΈΡΠ°ΡΡ Π΄Π°Π½Π½ΡΠ΅.
ΠΠ°ΠΊΡΡΡΡ ΡΠ°ΠΉΠ».
Π§ΡΠΎΠ±Ρ ΠΎΡΠΊΡΡΡΡ ΡΠ°ΠΉΠ», ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ Π»ΡΠ±ΠΎΠΉ ΠΈΠ· Π΄Π²ΡΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ²: ΠΌΠ΅ΡΠΎΠ΄ OpenAsTextStream ΠΎΠ±ΡΠ΅ΠΊΡΠ° File ΠΈΠ»ΠΈ ΠΌΠ΅ΡΠΎΠ΄ OpenTextFile ΠΎΠ±ΡΠ΅ΠΊΡΠ° FileSystemObject.
Π§ΡΠΎΠ±Ρ Π·Π°ΠΏΠΈΡΠ°ΡΡ Π΄Π°Π½Π½ΡΠ΅ Π² ΠΎΡΠΊΡΡΡΡΠΉ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ», ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ Write ΠΈΠ»ΠΈ WriteLine ΠΎΠ±ΡΠ΅ΠΊΡΠ° TextStream. ΠΠ΄ΠΈΠ½ΡΡΠ²Π΅Π½ΠΎΠ΅ ΡΠ°Π·Π»ΠΈΡΠΈΠ΅ ΠΌΠ΅ΠΆΠ΄Ρ Write ΠΈ WriteLine — ΡΠΎ, ΡΡΠΎ WriteLine Π΄ΠΎΠ±Π°Π²Π»ΡΠ΅Ρ ΡΠΈΠΌΠ²ΠΎΠ»Ρ newline ΠΊ ΠΊΠΎΠ½ΡΡ ΡΡΡΠΎΠΊΠΈ. ΠΡΠ»ΠΈ ΠΡ Ρ ΠΎΡΠΈΡΠ΅ Π΄ΠΎΠ±Π°Π²Π»ΡΡΡ newline ΠΊ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠΌΡ ΡΠ°ΠΉΠ»Ρ, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄ WriteBlankLines.
Π§ΡΠΎΠ±Ρ Π·Π°ΠΊΡΡΡΡ ΠΎΡΠΊΡΡΡΡΠΉ ΡΠ°ΠΉΠ», ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄ Close ΠΎΠ±ΡΠ΅ΠΊΡΠ° TextStream.
Sub Create_File ().
Dim fso, txtfile.
Set fso = CreateObject («Scripting.FileSystemObject »).
Set txtfile = fso. CreateTextFile («c:testfile.txt », True).
" ΠΠ°ΠΏΠΈΡΡ Π»ΠΈΠ½ΠΈΠΈ.
txtfile.Write («This is a test. »).
" ΠΠ°ΠΏΠΈΡΡ Π»ΠΈΠ½ΠΈΠΈ Ρ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠΌ newline.
txtfile.WriteLine («Testing 1, 2, 3. »).
" ΠΠ°ΠΏΠΈΡΡ ΡΡΠ΅Ρ ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² newline Π² ΡΠ°ΠΉΠ».
txtfile.WriteBlankLines (3).
txtfile.Close.
End Sub.
Π§ΡΠ΅Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»ΠΎΠ² File System Objects.
Π§ΡΠΎΠ±Ρ ΡΠΈΡΠ°ΡΡ Π΄Π°Π½Π½ΡΠ΅ ΠΈΠ· ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π°, ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠΉΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄Ρ Read, ReadLine ΠΈΠ»ΠΈ ReadAll ΠΎΠ±ΡΠ΅ΠΊΡΠ° TextStream:
Π§ΡΠ΅Π½ΠΈΠ΅ ΠΎΠΏΡΠ΅Π΄Π΅Π»Π΅Π½Π½ΠΎΠ³ΠΎ ΡΠΈΡΠ»Π° ΡΠΈΠΌΠ²ΠΎΠ»ΠΎΠ² ΠΈΠ· ΡΠ°ΠΉΠ»Π° — Read.
Π§ΡΠ΅Π½ΠΈΠ΅ Π²ΡΠ΅ΠΉ Π»ΠΈΠ½ΠΈΠΈ (Π½ΠΎ Π½Π΅, Π²ΠΊΠ»ΡΡΠ°Ρ, ΡΠΈΠΌΠ²ΠΎΠ» newline) — ReadLine.
Π§ΡΠ΅Π½ΠΈΠ΅ Π²ΡΠ΅Π³ΠΎ ΡΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠΎΠ²ΠΎΠ³ΠΎ ΡΠ°ΠΉΠ»Π° — ReadAll.
ΠΡΠ»ΠΈ ΠΡ ΠΈΡΠΏΠΎΠ»ΡΠ·ΡΠ΅ΡΠ΅ ΠΌΠ΅ΡΠΎΠ΄ Read ΠΈΠ»ΠΈ ReadLine, ΠΈ ΠΡ Ρ ΠΎΡΠΈΡΠ΅ ΠΏΠ΅ΡΠ΅ΠΉΡΠΈ ΠΊ ΡΠΏΠ΅ΡΠΈΡΠΈΡΠ΅ΡΠΊΠΎΠΉ ΡΠ°ΡΡΠΈ Π΄Π°Π½Π½ΡΡ , ΠΡ ΠΌΠΎΠΆΠ΅ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°ΡΡ ΠΌΠ΅ΡΠΎΠ΄ Skip ΠΈΠ»ΠΈ SkipLine. ΠΠΎΠ»ΡΡΠ΅Π½Π½ΡΠΉ Π² ΡΠ΅Π·ΡΠ»ΡΡΠ°ΡΠ΅ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½ΠΈΡ ΡΡΠΈΡ ΠΌΠ΅ΡΠΎΠ΄ΠΎΠ² ΡΠ΅ΠΊΡΡ ΠΌΠΎΠΆΠ΅Ρ Π±ΡΡΡ ΡΠΎΡ ΡΠ°Π½Π΅Π½ Π² ΡΠΈΠΌΠ²ΠΎΠ»ΡΠ½ΠΎΠΉ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΠΎΠΉ ΠΈ Π°Π½Π°Π»ΠΈΠ·ΠΈΡΠΎΠ²Π°ΡΡΡΡ Left, Right ΠΈ Mid. ΠΠ±ΡΠ°ΡΠΈΡΠ΅ Π²Π½ΠΈΠΌΠ°Π½ΠΈΠ΅, ΡΡΠΎ ΠΊΠΎΠ½ΡΡΠ°Π½ΡΠ° vbNewLine ΡΠΎΠ΄Π΅ΡΠΆΠΈΡ ΡΠΈΠΌΠ²ΠΎΠ» ΠΈΠ»ΠΈ ΡΠΈΠΌΠ²ΠΎΠ»Ρ (Π² Π·Π°Π²ΠΈΡΠΈΠΌΠΎΡΡΠΈ ΠΎΡ ΠΎΠΏΠ΅ΡΠ°ΡΠΈΠΎΠ½Π½ΠΎΠΉ ΡΠΈΡΡΠ΅ΠΌΡ) ΡΡΠΎΠ±Ρ ΠΏΡΠΎΠ΄Π²ΠΈΠ½ΡΡΡ ΠΊΡΡΡΠΎΡ ΠΊ Π½Π°ΡΠ°Π»Ρ ΡΠ»Π΅Π΄ΡΡΡΠ΅ΠΉ Π»ΠΈΠ½ΠΈΠΈ (Π²ΠΎΠ·Π²ΡΠ°Ρ ΠΊΠ°ΡΠ΅ΡΠΊΠΈ). ΠΠ½Π°ΠΉΡΠ΅, ΡΡΠΎ ΠΊΠΎΠ½ΡΡ Π½Π΅ΠΊΠΎΡΠΎΡΡΡ ΡΠΈΠΌΠ²ΠΎΠ»ΡΠ½ΡΡ ΠΏΠ΅ΡΠ΅ΠΌΠ΅Π½Π½ΡΡ ΠΌΠΎΠ³ΡΡ ΠΈΠΌΠ΅ΡΡ ΡΠ°ΠΊΠΈΠ΅ Π½Π΅ΠΏΠ΅ΡΠ°ΡΠ°Π΅ΠΌΡΠ΅ ΡΠΈΠΌΠ²ΠΎΠ»Ρ.
Sub Read_Files ().
Dim fso As New FileSystemObject, txtfile.
Dim fil1 As File, ts As TextStream.
Set txtfile = fso. CreateTextFile («c:testfile.txt », True).
MsgBox «Writing file «.
" ΠΠ°ΠΏΠΈΡΡ Π»ΠΈΠ½ΠΈΠΈ.
Set fil1 = fso. GetFile («c:testfile.txt »).
Set ts = fil1. OpenAsTextStream (ForWriting).
ts.Write «Hello World «.
ts.Close.
" Π§ΡΠ΅Π½ΠΈΠ΅ ΡΠΎΠ΄Π΅ΡΠΆΠ°Π½ΠΈΡ ΡΠ°ΠΉΠ»Π°.
Set ts = fil1. OpenAsTextStream (ForReading).
s = ts.ReadLine.
MsgBox s.
ts.Close.
End Sub.
ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΠ΅, ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΠ΅ ΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΠ΅ ΡΠ°ΠΉΠ»ΠΎΠ² ΠΠΎΠ΄Π΅Π»Ρ ΠΎΠ±ΡΠ΅ΠΊΡΠ° FSO ΠΈΠΌΠ΅Π΅Ρ Π΄Π²Π° ΠΌΠ΅ΡΠΎΠ΄Π° Π΄Π»Ρ ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ΅Π½ΠΈΡ, ΠΊΠΎΠΏΠΈΡΠΎΠ²Π°Π½ΠΈΡ ΠΈ ΡΠ΄Π°Π»Π΅Π½ΠΈΡ ΡΠ°ΠΉΠ»ΠΎΠ²:
ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΡΠΈΡΠ΅ ΡΠ°ΠΉΠ» — File. Move or FileSystemObject.MoveFile.
ΠΠΎΠΏΠΈΡΡΠΉΡΠ΅ ΡΠ°ΠΉΠ» — File. Copy or FileSystemObject.CopyFile.
Π£Π΄Π°Π»ΠΈΡΠ΅ ΡΠ°ΠΉΠ» — File. Delete or FileSystemObject.DeleteFile.
ΠΡΠΎΡ ΠΏΡΠΈΠΌΠ΅Ρ ΡΠΎΠ·Π΄Π°Π΅Ρ ΡΠ΅ΠΊΡΡΠΎΠ²ΡΠΉ ΡΠ°ΠΉΠ» Π² ΠΊΠΎΡΠ½Π΅Π²ΠΎΠΉ Π΄ΠΈΡΠ΅ΠΊΡΠΎΡΠΈΠΈ Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄Π° C, ΠΏΠΈΡΠ΅Ρ Π½Π΅ΠΊΠΎΡΠΎΡΡΡ ΠΈΠ½ΡΠΎΡΠΌΠ°ΡΠΈΡ Π² Π½Π΅ΠΌ, ΠΏΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°Π΅Ρ Π΅Π³ΠΎ Π² ΠΊΠ°ΡΠ°Π»ΠΎΠ³, Π½Π°Π·ΡΠ²Π°Π΅ΠΌΡΠΉ tmp, Π΄Π΅Π»Π°Π΅Ρ ΠΊΠΎΠΏΠΈΡ Π΅Π³ΠΎ Π² ΠΊΠ°ΡΠ°Π»ΠΎΠ³, Π½Π°Π·ΡΠ²Π°Π΅ΠΌΡΠΉ temp, Π·Π°ΡΠ΅ΠΌ ΡΠ΄Π°Π»ΡΠ΅Ρ ΠΊΠΎΠΏΠΈΠΈ ΠΈΠ· ΠΎΠ±ΠΎΠΈΡ ΠΊΠ°ΡΠ°Π»ΠΎΠ³ΠΎΠ². Π§ΡΠΎΠ±Ρ Π²ΡΠΏΠΎΠ»Π½ΡΡΡ ΡΡΠΎΡ ΠΏΡΠΈΠΌΠ΅Ρ, ΡΠ΄ΠΎΡΡΠΎΠ²Π΅ΡΠΈΡΠ΅ΡΡ, ΡΡΠΎ ΠΡ ΠΈΠΌΠ΅Π΅ΡΠ΅ ΠΊΠ°ΡΠ°Π»ΠΎΠ³ΠΈ, ΠΈΠΌΠ΅Π½ΠΎΠ²Π°Π½Π½ΡΠ΅ tmp ΠΈ temp Π² ΠΊΠΎΡΠ½Π΅Π²ΠΎΠΉ Π΄ΠΈΡΠ΅ΠΊΡΠΎΡΠΈΠΈ Π΄ΠΈΡΠΊΠΎΠ²ΠΎΠ΄Π° C.
Sub Manip_Files ().
Dim fso As New FileSystemObject, txtfile, fil1, fil2.
Set txtfile = fso. CreateTextFile («c:testfile.txt », True).
MsgBox «Writing file «.
txtfile.Write («This is a test. »).
txtfile.Close.
MsgBox «Moving file to c: tmp «.
" ΠΠΎΠ΄ ΠΎΠ±ΡΠ°Π±ΠΎΡΠΊΠΈ ΡΠ°ΠΉΠ»Π° Π² ΠΊΠΎΡΠ½Π΅ C:
Set fil1 = fso. GetFile («c:testfile.txt »).
" ΠΠ΅ΡΠ΅ΠΌΠ΅ΡΠ°Π΅ΠΌ ΡΠ°ΠΉΠ» Π² Π΄ΠΈΡΠ΅ΠΊΡΠΎΡΠΈΡ tmp.
fil1.Move («c:tmptestfile.txt »).
MsgBox «ΠΠΎΠΏΠΈΡΡΠ΅ΠΌ ΡΠ°ΠΉΠ» Π² c: temp «.
" ΠΠΎΠΏΠΈΡΡΠ΅ΠΌ ΡΠ°ΠΉΠ» Π² temp.
fil1.Copy («c:temptestfile.txt »).
MsgBox «Π£Π΄Π°Π»ΡΠ΅ΠΌ ΡΠ°ΠΉΠ»Ρ «.
" ΠΠΎΠ΄ ΠΏΠΎΠ»ΡΡΠ΅Π½ΠΈΡ ΡΠ΅ΠΊΡΡΠΈΡ Π΄Π΅ΡΠΈΠΊΡΠΎΡΠΈΠΉ ΡΠ°ΠΉΠ»ΠΎΠ².
Set fil1 = fso. GetFile («c:tmptestfile.txt »).
Set fil2 = fso. GetFile («c:temptestfile.txt »).
" Π£Π΄Π°Π»ΡΠ΅ΠΌ Π΄Π°ΠΉΠ»Ρ.
fil1.Delete.
fil2.Delete.
MsgBox «ΠΡΠ΅! «.
End Sub.
Π‘ΠΏΠΈΡΠΎΠΊ Π»ΠΈΡΠ΅ΡΠ°ΡΡΡΡ
ΠΠ»Ρ ΠΏΠΎΠ΄Π³ΠΎΡΠΎΠ²ΠΊΠΈ Π΄Π°Π½Π½ΠΎΠΉ ΡΠ°Π±ΠΎΡΡ Π±ΡΠ»ΠΈ ΠΈΡΠΏΠΎΠ»ΡΠ·ΠΎΠ²Π°Π½Ρ ΠΌΠ°ΡΠ΅ΡΠΈΠ°Π»Ρ Ρ ΡΠ°ΠΉΡΠ° internet.