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

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

         Свойства 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);
 

Назад по тексту | Содержание | Вперед по тексту

О проекте | История | E-mail

Copyright (C) 2000 - 2001 Alex Neverov

#bn { DISPLAY: block } #bt { DISPLAY: block }


Содержание раздела

---