Всё для Web Дизайнера - VBScript: Введение в VBScript, объекты Windows Scripting Host, запуск других приложений, информация о системе, объект FileSystemObject, работа с файлами, работа с содержимым файла, работа с папками, доступ к файлам и папкам, диски, сервер сценариев Windows.

Программирование

Web мастеру

3D Графика и анимация

Назад     Читать дальше
На главную страницу > > В раздел программирование > > В раздел VBScript

Работа с файлами.

         FileSystemObject (далее FSO) предоставляет некоторые возможности для работы с текстовыми файлами. Можно создавать, удалять, копировать и перемещать файлы.
         Для создания текстового файла применяют метод CreateTextFile. Синтаксис:
         FSO.CreateTextFile( [, overwrite[, unicode]])
         где:
         filename – имя создаваемого файла.
         Необязательные параметры:
         owerwrite – логический параметр (true или false), указывает, перезаписывать ли уже существующий файл с таким именем.
         unicode – логический параметр (true или false), определяющий кодировку создаваемого файла. По умолчанию используется кодировка ASCII. Если принимает значение true – то файл создается в кодировке unicode.
         VBScript:
    Dim FSO, MyFile
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set MyFile = fso.CreateTextFile("c:\testfile.txt", true)
         JScript:
    var FSO = new ActiveXObject("Scripting.FileSystemObject");
    var MyFile = fso.CreateTextFile("c:\\testfile.txt", true);
         Примечание. При использовании JScript, при указании пути, вместо одной косой черты (“\”) следует ставить две (“\\”). Это правило следует соблюдать, потому что интерпретатор, когда встречает в тексте сценария одну косую черту, ожидает что за ней последует спецсимвол JScript, (см.справочник JScript) и выдает сообщение об ошибке.
         Для проверки существования файлов служит метод FileExists.
         VBScript:
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If (FSO.FileExists("c:\autoexec.bat")) Then
        MsgBox "Файл autoexec.bat существует"
    Else
        MsgBox "Файл autoexec.bat не существует"
    End If
        JScript:
    var FSO = new ActiveXObject("Scripting.FileSystemObject");
      if (FSO.FileExists("c:\\autoexec.bat"))
        WScript.Echo("Файл autoexec.bat существует");
    else
         WScript.Echo("Файл autoexec.bat не существует");

         Для других операций над файлом, таких как копирование, перемещение и удаление файл должен быть сначала “получен” методом GetFile.
         VBScript:
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set file1 = FSO.GetFile(“MyFile.txt”)
        JScript:
    var FSO = new ActiveXObject("Scripting.FileSystemObject");
    var file1 = FSO.GetFile(“MyFile.txt”);

         Для копирования, перемещения и удаления файлов объект FSO предоставляет несколько методов, в зависимости от того какой объект будет использоваться для операций FSO или file. Они показаны в следующей таблице.

Действие Объект.Метод

Перемещение File.Move или FileSystemObject.MoveFile

Копирование File.Copy или FileSystemObject.CopyFile

Удаление File.Delete или FileSystemObject.DeleteFile

         Копирование файлов.
         VBScript:
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set file1 = FSO.CreateTextFile("c:\test.txt")
    Set file2 = FSO.GetFile("c:\test.txt")
    file2.Copy("c:\0\test1.txt")
        JScript:
    FSO = new ActiveXObject("Scripting.FileSystemObject");
    var file1 = FSO.CreateTextFile("c:\\test.txt");
    var file2 = FSO.GetFile("c:\\test.txt");
    file2.Copy("c:\\0\\test1.txt");
        Перемещение файлов осуществляется аналогично методу копирования.
        Удаление файлов:
        VBScript:
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set file1 = FSO.CreateTextFile("test.txt")
    ‘закрываем файл (см.работа с содержанием файла)
    ‘если не закрыть файл, то он не может быть удален методом Delete
    file1.Close
    MsgBox "Файл создан"
    Set file2 = FSO.GetFile("test.txt")
    file2.Delete
    MsgBox "Файл удален"

        JScript:
    FSO = new ActiveXObject("Scripting.FileSystemObject");
    var file1 = FSO.CreateTextFile("test.txt");
    //закрываем файл (см.работа с содержанием файла);
    //если не закрыть файл, то он не может быть удален методом Delete
    file1.Close();
    WScript.Echo("Файл создан");
    var file2 = FSO.GetFile("test.txt");
    file2.Delete();
    WScript.Echo("Файл удален");

        Свойства файла
        Синтаксис:
        object.Size
        где
        object - File объект
        С помощью объекта FSO нам доступны такие свойства файла, как его размер, время создания и т.д.
        Size – возвращает размер файла в байтах
        VBScript:
    Set FSO = CreateObject("Scripting.FileSystemObject")
    'получаем текущий файл:
    Set file1 = FSO.GetFile(WScript.ScriptFullName)
    'получаем размер:
    fsize = file1.Size
    MsgBox "Размер файла " & WScript.ScriptName &_
     " : " & fsize &" килобайт"
        JScript:
    FSO = new ActiveXObject("Scripting.FileSystemObject");
    //получаем текущий файл:
    var file1 = FSO.GetFile(WScript.ScriptFullName);
    //получаем размер:
    var fsize = file1.Size;
    WScript.Echo("Размер файла " + WScript.ScriptName +
     " : " + fsize +" килобайт");

         DateCreated – время создания файла
         DateLastAccessed - время последнего обращения
         DateLastModified - время последнего изменения

         VBScript:
    Set FSO = CreateObject("Scripting.FileSystemObject")
    'получаем текущий файл:
    Set file1 = FSO.GetFile(WScript.ScriptFullName)
    ‘получаем время создания:
    DC = file1.DateCreated
    info = "Файл " & WScript.ScriptName & " :" & Chr(10)
    info = info & "Создан: " & DC & Chr(10)
    ‘получаем время последнего открытия:
    DLA = file1.DateLastAccessed
    info = info & "Открыт: " & DLA & Chr(10)
    ‘получаем время последнего изменения:
    DLM = file1.DateLastModified
    info = info & "Изменен: " & DLM
    MsgBox info

        JScript:
    FSO = new ActiveXObject("Scripting.FileSystemObject");
    //получаем текущий файл:
    var file1 = FSO.GetFile(WScript.ScriptFullName);
    var info = "Файл " + WScript.ScriptName + "\n";
    //получаем время создания:
    DC = file1.DateCreated;
    info += "Создан: " + DC + "\n";
    //получаем время открытия:
    DLA = file1.DateLastAccessed;
    info += "Открыт: " + DLA + "\n";
    //получаем время изменения:
    DLM = file1.DateLastModified;
    info += "Изменен: " + DLM;
    WScript.Echo(info);

Назад     Читать дальше

На главную страницу > > В раздел программирование > > В раздел VBScript