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