VBStreets Conference - Преглед на тема - Копиране на папка

Целият вкус на програмирането!

• Списък на форумите‹Visual basic‹Visual Basic 1-6
• Променете размера на шрифта

• ЧЗВ
• вход

Гайдар Магдануров написа: Обект на файловата система

Обектът на файловата система (FSO) улеснява работата с файлове, папки и дискове много по-лесно, отколкото използването на стандартни изрази на Visual Basic. Следователно, благодарение на използването на FSO, е възможно да се извършват операции с обекти на файловата система по-просто, без да се изискват много усилия от програмиста. Освен това това е най-лесният начин за работа с файлове и текстови данни от VBScript, което е много често необходимо при създаването на ASP, като книги за гости, форуми и чатове.

Така че, за да използвате FSO, трябва да включите библиотеката на Microsoft Scripting Runtime. След това, за да получите достъп до възможностите на библиотеката, трябва да го декларирате, което може да се направи по два начина:

Затъмнете myFSO като Scripting.FileSystemObject

Частна подформа Form_Load ()
Задайте myFSO = New Scripting.FileSystemObject
Крайна под

Затъмнете myFSO като обект

Частна подформа Form_Load ()
Задайте myFSO = CreateObject ("Scripting.FileSystemObject")
Крайна под

Лично аз харесвам втория вариант, така че ще го използвам.

Сега сме свързали библиотеката, сега е време да проверим нейните възможности. Поставяме две текстови полета върху формуляра, до етикетите и пишем за първия - името на файла, а за втория текст. Сега добавете бутона и следния код.

Частна подкоманда1_Click ()
Dim myFSO As Object 'Декларирам променлива на обект
Dim myTS As TextStream 'Декларирайте текстов поток
Задайте myFSO = CreateObject ("Scripting.FileSystemObject") 'Създайте обект на файлова система
Set myTS = myFSO.CreateTextFile (Text1.Text, True) 'Отворете потока, като създадете файл, като презапишете съществуващия (True)
myTS.Write Text2.Text 'Писане на съдържанието на второто текстово поле
myTS.Close 'Затворете потока
Set myFSO = Nothing 'Почистете паметта от нашите файлови обекти
Крайна под

По принцип може да се пише по различен начин. При отваряне на файл за четене редовете изглеждат така:

Задайте myTS = fso.OpenTextFile ("c: \ test.txt", ForWriting)
Сега нека преработим тази програма, за да четем данни от файл. Правим за text2 multiline = true,
за показване на цялото съдържание на нашия файл. Добавете следния код към събитието за щракване на бутона.
Private Sub Command1_Click () Dim myFSO As Object Dim myTS As TextStream Set myFSO = CreateObject ("Scripting.FileSystemObject") Dim myfile As File 'Деклариране на файлова променлива Set myfile = myFSO.GetFile (Text1.Text)' Присвояване на файл към нашата файлова променлива, чието име е въведено в text1 Задайте myTS = myfile.OpenAsTextStream (ForReading) 'Отворете за четене Text2.Text = myTS.ReadAll' Прочетете целия файл myTS.Close End Sub
Сега ще дам методите на TextStream:

---