Объект FileSystemObject метод OpenTextFile — Как открыть текстовый файл

' ----------------------------------------------------------
' Объект FileSystemObject метод OpenTextFile
' Как открыть текстовый файл
' OpenTextFile.vbs
' ----------------------------------------------------------
 
Option Explicit
 
dim FSO, WshShell, Folder, Files, Folders, TempPath, TxtFile
dim cur_dir, list, i, j, result, t_file, data_file
 
Set FSO = CreateObject("Scripting.FileSystemObject")
 
' формируем ссылку на объект
set WshShell = WScript.CreateObject("WScript.Shell")
 
' текущий каталог
cur_dir = WshShell.CurrentDirectory
 
list = "Содержимое текущей папки:" & vbCrLf & vbCrLf
 
'Создаем объект Folder для для текущей папки
set Folder=FSO.GetFolder(cur_dir)
 
'Создаем коллекцию файлов
set Files=Folder.Files
 
'Создаем коллекцию каталогов
set Folders=Folder.SubFolders
 
list = list & "Список файлов:" & vbCrLf & vbCrLf
 
' начинаем перебор коллекции файлов                                                                                                                                                                                                                                                                                как открывать текстовые файлы
For Each i In Files
    ' формируем список файлов
    list = list & i.Name & vbCrLf
 
    Open_Text_File(i.Path)
 
Next
 
list = list & vbCrLf & "Список катлогов:" & vbCrLf & vbCrLf
 
' начинаем перебор коллекции папок
For Each j In Folders
    ' формируем список каталогов
    list = list & j.Name & vbCrLf
Next
 
ShowInNotepad(list)
 
'Процедура открытия текстового файла
Sub Open_Text_File(file_path)
    result = MsgBox("Хотите открыть документ " & file_path, vbOkCancel + vbInformation, "Открытие файла")
    If result = vbOK Then
        set t_file=fso.OpenTextFile(file_path, 1, false)
        data_file = t_file.ReadAll
        t_file.Close()
        ShowInNotepad(data_file)
    End If
End Sub
 
'Процедура создания временного файла с данными
Sub ShowInNotepad(StrToFile)
    TempPath = CreateObject("WScript.Shell").ExpandEnvironmentStrings("%TEMP%") & "\" & FSO.GetTempName
    Set TxtFile = FSO.CreateTextFile(TempPath)
    TxtFile.WriteLine(StrToFile)
    TxtFile.Close
    CreateObject("WScript.Shell").Run "wordpad.exe " & TempPath
End Sub

// ----------------------------------------------------------
// Объект FileSystemObject метод OpenTextFile
// Как открыть текстовый файл
// OpenTextFile.js
// ----------------------------------------------------------
 
var FSO, WshShell, Folder, Files, Folders, TempPath, TxtFile;
var cur_dir, list = "Содержимое текущей папки:\n\n";
 
FSO = WScript.CreateObject("Scripting.FileSystemObject");
 
// формируем ссылку на объект
WshShell = WScript.CreateObject("WScript.Shell");
 
// текущий каталог
cur_dir = WshShell.CurrentDirectory;
 
//Создаем объект Folder для для текущей папки
Folder=FSO.GetFolder(cur_dir);
 
//Создаем коллекцию файлов
Files=new Enumerator(Folder.Files);
 
//Создаем коллекцию каталогов
Folders=new Enumerator(Folder.SubFolders);
 
list += "Список файлов:\n\n";
 
// начинаем перебор коллекции файлов
for (; !Files.atEnd(); Files.moveNext()){
     list+=Files.item().Name+"\n"; 
 
     Open_Text_File(Files.item().Path)
}
 
list += "\nСписок катлогов:\n\n";
 
// начинаем перебор коллекции папок                                                                                                                                                                                                            как открывать текстовые файлы
for (; !Folders.atEnd(); Folders.moveNext()){
     list+=Folders.item().Name+"\n"; 
}
 
ShowInNotepad(list);
 
//Функция открытия текстового файла
function Open_Text_File(file_path){
 
var Msg = "Хотите открыть документ " + file_path;
var Titl = "Открытие файла";
 
var result, t_file, data_file;
 
var vbOKCancel = 1;
var vbOK = 1;
var vbInformation = 64;
 
    result = WshShell.Popup(Msg, 0, Titl, vbOKCancel + vbInformation);
    if (result == vbOK) { 
        t_file=FSO.OpenTextFile(file_path, 1, false);
        data_file = t_file.ReadAll();
        t_file.Close();
        ShowInNotepad(data_file);
    }
}
 
//Функция создания временного файла с данными
function ShowInNotepad(StrToFile){
    TempPath = WScript.CreateObject("WScript.Shell").ExpandEnvironmentStrings("%TEMP%") + "\\" + FSO.GetTempName();
    TxtFile = FSO.CreateTextFile(TempPath);
    TxtFile.WriteLine(StrToFile);
    TxtFile.Close();
    WScript.CreateObject("WScript.Shell").Run ("wordpad.exe " + TempPath);
}