VPF::Описание FileSystemObject - Форум программистов

mihanik

Дата 11.7.2006, 09:58 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

Привет!

В msdn нашёл следующее:
описание FSO
Но что-то мне оно мало что говорит...

Кто-нибудь может мне подсказать, где можно найти человеческое описание FSO с примерами.
типа такого

Код


'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
' Считываем файл  в память
'\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
Sub ReadLabelFile()
Dim fso As Object
Dim f As Object
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile(strLabelFileName, 1, True)
   strLabelsStrings = f.ReadAll()
   f.Close
End Sub

Меня интересует, в первую очередь, описание параметров типа (strLabelFileName, 1, True) и им подобных.
Где найти описание?

Это сообщение отредактировал(а) mihanik - 11.7.2006, 09:59

--------------------

Программистами не рождаются, - это родовая травма...

Akina

Дата 11.7.2006, 10:54 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20581
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 454

Цитата(mihanik @ 11.7.2006, 10:58

)

Меня интересует, в первую очередь, описание параметров

Ну так и читай описание методов - там все расписано. Только искать надо не в VB, а в Scripting Runtime Library.

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

mihanik

Дата 11.7.2006, 11:02 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

Akina!

На английском я нашёл по этому адресу.
Но я английским хоть и владею, но не свободно.
Поэтому хочется русскоязычных ресурсов...

--------------------

Программистами не рождаются, - это родовая травма...

mihanik

Дата 11.7.2006, 14:09 (ссылка)

(нет голосов)

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

Репутация: 11
Всего: 109

Короче, по этой теме много интересного лежит ЗДЕСЬ

На основании этого я решил просто так "из лихости" написать собственные процедуры и функции записи и чтения, создания, удаления (и т.п.) ini-файлов собственного формата.

Старался использовать объектно-ориентированный подход.

Посмотрите, что получилось...

Код


Attribute VB_Name = "basIniFiles"
Option Explicit

'\\\\\\\\\\\\\\\\\\\\////////////////////
' Процедура создания ini-файла.
'          strFileName - имя создаваемого файла
'            intResult - результат выполнения операции
'   Optional blnForce  - создавать НОВЫЙ ini-файл в любом случае
'
' Список значений intResult:
'   0 - создан новый ini-файл
'   1 - файл с таким именем уже существует, действие не выполнено
'   2 - НОВЫЙ файл принудительно заменил старый с таким же именем
'   4 - Ошибка создания файла
'\\\\\\\\\\\\\\\\\\\\////////////////////

Public Sub CreateIniFile(ByVal strFileName As String, intResult As Integer, _
                         Optional ByVal blnForce As Boolean)
Dim MyFSO As Object
Dim MyFile As Object

    If IsMissing(blnForce) Then blnForce = False
    
On Error GoTo ErrorCreating
    intResult = 0
    
    Set MyFSO = CreateObject("Scripting.FileSystemObject")
    
    If MyFSO.FileExists(strFileName) Then
        If Not blnForce Then
            intResult = 1
            Exit Sub
        End If
        
        intResult = 2
        Set MyFile = MyFSO.GetFile(strFileName)
        If MyFile.Attributes And 1 Then MyFile.Attributes = 0
    End If
    
    Set MyFile = MyFSO.CreateTextFile(strFileName, True)
    MyFile.WriteLine ("'INI-file")
    MyFile.Close

Exit Sub

ErrorCreating:
    intResult = 4
End Sub

'\\\\\\\\\\\\\\\\\\\\////////////////////
' Процедура удаления ini-файла.
'          strFileName - имя удаляемого файла
'            intResult - результат выполнения операции
'   Optional blnForce  - удалять ini-файл в любом случае
'
' Список значений intResult:
'   0 - файл удачно удалён
'   1 - файл с таким именем "только для чтения", действие не выполнено
'   2 - такого файла не существует
'   4 - Ошибка удаления файла
'\\\\\\\\\\\\\\\\\\\\////////////////////
Public Sub DeleteIniFile(ByVal strFileName As String, intResult As Integer, _
                         Optional ByVal blnForce As Boolean)
Dim MyFSO As Object
Dim MyFile As Object

    If IsMissing(blnForce) Then blnForce = False

On Error GoTo ErrorDeleting
    intResult = 0
    
    Set MyFSO = CreateObject("Scripting.FileSystemObject")
    
    If Not MyFSO.FileExists(strFileName) Then
            intResult = 2
            Exit Sub
    End If
    
    Set MyFile = MyFSO.GetFile(strFileName)
    If (MyFile.Attributes And 1) And Not blnForce Then
            intResult = 1
            Exit Sub
    End If

    MyFile.Delete (True)

Exit Sub
    
ErrorDeleting:
    intResult = 4
End Sub

--------------------

Программистами не рождаются, - это родовая травма...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »