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

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

Web мастеру

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

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

Доступ к файлам и папкам.

         Свойства Name, ShortName, ParentFolder, Path и ShortPath служат для определения имен и местоположения файлов и папок.
         Свойство Name содержит обычное имя. А свойство ShortName - короткое имя т.е. имя в формате MS DOS.
         VBScript:
        Set FSO = CreateObject("Scripting.FileSystemObject")
         'создаем FileSystemObject
         FSO.CreateTextFile "Текстовый файл.txt", true
         ' создаем файл Текстовый файл.txt
         Set file1 = FSO.GetFile("Текстовый файл.txt")
         LongName = file1.Name
         ' получаем длинное имя файла
         ShName = file1.ShortName
         ' получаем короткое имя
         Names = "Имя: " + LongName + Chr(10) + "Имя DOS: " _
          + ShName
         MsgBox Names, 64, "Файл: " + file1.Name
         'выводим результат

         JScript:
    var WshShell = new ActiveXObject("WScript.Shell");
    //создаем объект WshShell для окна Popup
    var FSO = new ActiveXObject("Scripting.FileSystemObject");
    //создаем FileSystemObject
    FSO.CreateTextFile("Текстовый файл.txt", true);
    //создаем файл Текстовый файл.txt
    var file1 = FSO.GetFile("Текстовый файл.txt");
    LongName = file1.Name;
    //получаем длинное имя файла
    ShName = file1.ShortName;
    //получаем короткое имя
    Names = "Имя: " + LongName + "\n" + "Имя DOS: "
      + ShName;
    WshShell.Popup(Names, 0, "Файл: " + file1.Name, 64);
    //выводим результат

         Свойства Path и ShortPath указывают путь. ShortPath - путь в формате MS DOS.
На этот раз в примере используем папки.
         VBScript:
         Set FSO = CreateObject("Scripting.FileSystemObject")
     FSO.CreateFolder("Новая папка")
     'создаем папку
     Set Folder1 = FSO.GetFolder("Новая папка")
     LongPath = Folder1.Path
     ShPath = Folder1.ShortPath
     PathInfo = "Путь: " + LongPath + Chr(10) + "Путь DOS: " + ShPath
     MsgBox PathInfo, 0, "Свойства: " + Folder1.Name

         JScript:
     var FSO = new ActiveXObject("Scripting.FileSystemObject");
     FSO.CreateFolder("Новая папка");
     var Folder1 = FSO.GetFolder("Новая папка");
     LongPath = Folder1.Path;
     ShPath = Folder1.ShortPath;
     PathInfo = "Путь: " + LongPath + "\n" + "Путь DOS: " + ShPath;
     WScript.Echo(PathInfo);

         Последнее свойство ParentFolder возвращает имя папки, которая содержит файл или папку.
         VBScript:
     Set FSO = CreateObject("Scripting.FileSystemObject")
     Set file1 = FSO.GetFile(WScript.ScriptName)
     ‘получаем файл текущего сценария
     PFolder = file1.ParentFolder
     MsgBox "Сценарий " + WScript.ScriptName + " находится в папке " _
      + Pfolder

         JScript:
         var FSO = new ActiveXObject("Scripting.FileSystemObject");
         var file1 = FSO.GetFile(WScript.ScriptName);
         //получаем текущий сценарий
         PFolder = file1.ParentFolder;
         //определяем родительский каталог
         WScript.Echo("Сценарий ",WScript.ScriptName, " находится в папке ", PFolder);

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

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