[Iska]

n5320, пробуйте:

Скрытый текст

Код:

Option Explicit

Const adTypeBinary = 1
Const adModeWrite = 2
Const adModeRead = 1
Const adSaveCreateOverWrite = 2
Const adReadAll = -1

Const intFileStartPos = 9255


Dim strSourceFolder

Dim objFSO
Dim objFile

Dim objStream4Read
Dim objStream4Write


If WScript.Arguments.Count = 1 Then
	strSourceFolder = WScript.Arguments.Item(0)
	
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	
	If objFSO.FolderExists(strSourceFolder) Then
		For Each objFile In objFSO.GetFolder(strSourceFolder).Files
			If Not StrComp(objFile.Name, WScript.ScriptName, vbTextCompare) = 0 Then
				Set objStream4Read  = WScript.CreateObject("ADODB.Stream")
				Set objStream4Write = WScript.CreateObject("ADODB.Stream")
				
				objStream4Read.Type = adTypeBinary
				objStream4Write.Type = adTypeBinary
				
				objStream4Read.Open
				objStream4Write.Open
				
				objStream4Read.LoadFromFile objFile.Path
				objStream4Read.Position = intFileStartPos
				objStream4Write.Write(objStream4Read.Read(adReadAll))
				objStream4Write.SaveToFile objFile.Path, adSaveCreateOverWrite
				
				objStream4Read.Close
				objStream4Write.Close
				
				Set objStream4Write = Nothing
				Set objStream4Read  = Nothing
			End If
		Next
	Else
		WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
		WScript.Quit 1
	End If
	
	Set objFSO = Nothing
Else
	WScript.Echo "Usage: " & WScript.ScriptName & " <Source folder>"
	WScript.Quit 1
End If

WScript.Quit 0

Оригиналы файлов не сохраняются. Можно просто перетащить папку на скрипт в Проводнике.

размер файлов будет равет 100 мг »

Держите не менее 200 Mb оперативной памяти свободной.

при тестировании таких файлов комп зависает. »

Антивирус проверяет доступ?

[Foreigner]

n5320, Тогда попробуйте такой вариант:

Код:

gci *.7z.* | % {

    $bytes = [System.IO.File]::ReadAllBytes( $_ )
    [System.IO.File]::WriteAllBytes( $_, $bytes[9255..($bytes.count-1)])

}

[Iska]

Foreigner, а если сместиться на позицию 9255 в исходном файле, а затем читать из него остаток — будет быстрее или медленнее (придётся через FileStream работать, как я понимаю)?

[n5320]

Foreigner увы ваш скрипт жрет все 2 г памяти и выполнение не останавливается.
Iska, Ваш вариант работает очень быстро, нагрузка не заметно вообще, спасибо.
Можете кое что еще поправить в скрипте? Мне надо в начале или в конце выполнения vbs скрипта у всех файлов в папке также удалить в имени (расширении) ".jpg".
Пример Top_gir.7z.001.jpg должно получиться Top_gir.7z.001

[Iska]

Iska, Ваш вариант работает очень быстро, нагрузка не заметно вообще… »

Не верю. Нагрузка должна быть. Скрипт единовременно потребляет памяти никак не меньше удвоенного объёма файла.

Можете кое что еще поправить в скрипте? Мне надо в начале или в конце выполнения vbs скрипта у всех файлов в папке также удалить в имени (расширении) ".jpg". Пример Top_gir.7z.001.jpg должно получиться Top_gir.7z.001 »

Стеганографируете помаленьку?

Пробуйте:

Скрытый текст

Код:

Option Explicit

Const adTypeBinary = 1
Const adModeWrite = 2
Const adModeRead = 1
Const adSaveCreateOverWrite = 2
Const adReadAll = -1

Const intFileStartPos = 9255


Dim strSourceFolder

Dim objFSO
Dim objFile

Dim objStream4Read
Dim objStream4Write


If WScript.Arguments.Count = 1 Then
	strSourceFolder = WScript.Arguments.Item(0)
	
	Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")
	
	If objFSO.FolderExists(strSourceFolder) Then
		For Each objFile In objFSO.GetFolder(strSourceFolder).Files
			If Not StrComp(objFile.Name, WScript.ScriptName, vbTextCompare) = 0 Then
				Set objStream4Read  = WScript.CreateObject("ADODB.Stream")
				Set objStream4Write = WScript.CreateObject("ADODB.Stream")
				
				objStream4Read.Type = adTypeBinary
				objStream4Write.Type = adTypeBinary
				
				objStream4Read.Open
				objStream4Write.Open
				
				objStream4Read.LoadFromFile objFile.Path
				objStream4Read.Position = intFileStartPos
				objStream4Write.Write(objStream4Read.Read(adReadAll))
				objStream4Write.SaveToFile objFile.Path, adSaveCreateOverWrite
				
				objStream4Read.Close
				objStream4Write.Close
				
				Set objStream4Write = Nothing
				Set objStream4Read  = Nothing
			End If
		Next
		
		For Each objFile In objFSO.GetFolder(strSourceFolder).Files
			If StrComp(objFSO.GetExtensionName(objFile.Name), "jpg", vbTextCompare) = 0 Then
				objFile.Name = objFSO.GetBaseName(objFile.Name)
			End If
		Next
	Else
		WScript.Echo "Can't find source folder [" & strSourceFolder & "]."
		WScript.Quit 1
	End If
	
	Set objFSO = Nothing
Else
	WScript.Echo "Usage: " & WScript.ScriptName & " <Source folder>"
	WScript.Quit 1
End If

WScript.Quit 0

[n5320]

Iska, Все работает спасибо вам и форуму