Visual Basic Script


6_6_ Доступ к файлам и папкам - часть 2


    //создаем объект 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;



Начало  Назад  Вперед