TOTALCMD#BAR#DATA
%COMMANDER_PATH%\TCIMG.exe
textx=%L||&&((TITLE|PERFORMER)~~)(''+)?([^\r\n'']+)(''+)?!!$1''$4''||&&(~~+)?;[^\r\n]*!!||formt<59,60>||upd<1>
%COMMANDER_PATH%\Wcmicons.dll,414
Привести к нормальному виду выделенные не валидные -CUE файлы

0
-1

А этот скрипт

textx=%L||&&((TITLE|PERFORMER)~~)(''+)?([^\r\n'']+)(''+)?!!$1''$4''||&&(~~+)?;[^\r\n]*!!||$$@CRLF||formt<59,51>||code<0>||upd<1>

' удаление из файла 50 первых строк
Set FSO = CreateObject("Scripting.FileSystemObject")
File = "C:\Test\Name.txt"
List = Split(FSO.OpenTextFile(File).ReadAll, vbNewLine)
iCount = Ubound(List)
Text = ""
If iCount >=  50 Then
   For i = 50 To iCount
     Text = Text& List(i) & vbNewLine
   Next
End If
FSO.CreateTextFile(File).Write Text
Set FSO = Nothing

подскажите пожалуйста я запутался, хочу скопировать файл txt в другое место, vbs запускается прямо с папки где находится лог, и работает в цикле, проблема заключается в том что название бывает разное! скажите как можно скопировать файл по маске, т.е. у меня в папке .txt файлов только 1 всегда

' копировать файл job_log.txt из той же папки, где лежит скрипт в папку D:\Test\ с перезаписью, если существует
Set FSO = CreateObject("Scripting.FileSystemObject")
File = FSO.GetParentFolderName(WScript.ScriptFullName) & "\job_log.txt"
Folder = "D:\Test\" ' куда копировать
On Error Resume Next
FSO.CopyFile File, Folder, True ' True (перезаписывать). , False - не перезаписывать
Set FSO = Nothing

' копировать все файлы .txt из той же папки, где лежит скрипт в папку D:\Test\ с перезаписью, если существуют
Set FSO = CreateObject("Scripting.FileSystemObject")
File = FSO.GetParentFolderName(WScript.ScriptFullName) & "\*.txt"
Folder = "D:\Test\" ' куда копировать
On Error Resume Next
FSO.CopyFile File, Folder, True ' True (перезаписывать). , False - не перезаписывать
Set FSO = Nothing