Option Explicit
Const sSrcFolder = "C:\Test\files" ' папка, в которой лежат файлы
Const sStudentsFile = "C:\Test\StudentsFile.txt" ' файл, куда пишем имена
Const sGroupsFile = "C:\Test\GroupsFile.txt" ' файл, куда пишем группы
Const OutputFormat = -1 ' формат вывода 0 = ASCII, -1 = Unicode, -2 = System Default
Dim sStudents, sGroups, oFile, aParts
sStudents = ""
sGroups = ""
With CreateObject("Scripting.FileSystemObject")
For Each oFile In .GetFolder(sSrcFolder).Files
aParts = Split(.GetBaseName(oFile.Name))
If UBound(aParts) = 1 Then
sStudents = sStudents & aParts(0) & vbCrLf
sGroups = sGroups & aParts(1) & vbCrLf
End If
Next
With .OpenTextFile(sStudentsFile, 2, True, OutputFormat)
.Write(sStudents)
.Close
End With
With .OpenTextFile(sGroupsFile, 2, True, OutputFormat)
.Write(sGroups)
.Close
End With
End With
CreateObject("WScript.Shell").PopUp "Готово", 1, , 64
Щт Уккщк Куыгьу Туче
’ҐЄгй п Є®¤®ў п бва Ёж : 1251