АртемЪ, в технологическом режиме минимальная скорость. А максимальная выставляется автоматически от типа подключения и других условий операционной системой
АртемЪ, понимаю, поэтому задумался над считыванием: определить сектора с данными, считать на быстрой скорости читаемые сектора, перевести жёсткий диск на самую маленькую скорость и считать остальные сектора. А затем вытащить оттуда файлики и папки. Или если RAW-раздел, то весь раздел или жёсткий диск.
'pinter_PDF.vbs
'Автоматическая печать PDF-файлов, появляющихся в определенной папке
'Установите программу SumatraPDF www.softportal.com/software-7568-sumatra-pdf.html
'Глобальные переменные
Set gFSO = CreateObject("Scripting.FileSystemObject")
Set gShell = CreateObject("WScript.Shell")
'Папка, в которой скрипт ждет PDF-файлы (к этой папке (папкам) д.б. дан доступ по сети)
gWatchFolder = "E:\"
'Основной цикл
While true
Set lFolder = gFSO.GetFolder(gWatchFolder)
Set lFiles = lFolder.Files
WScript.Sleep(10000)
For Each lFile In lFiles
' msgbox(gWatchFolder)
'msgbox(lFile.Name)
PrintFile(gWatchFolder & lFile.Name)
Next
WEnd
'Функция печати конкретного pdf-файла
Sub PrintFile(pFileName)
'Ждем некоторе время (пока файл до конца запишется)
WScript.Sleep(10)
'msgbox(pFileName)
'Укажите путь к программе SumatraPDF
s = """C:\Program Files\SumatraPDF\SumatraPDF.exe"" -exit-on-print -print-to-default """ & pFileName & """"
'msgbox (s)
Call gShell.Run(s,0,true)
'msgbox(pFileName)
WScript.Sleep(10)
gFSO.DeleteFile(pFileName)
If gFSO.FileExists(pFileName) Then
'Мало ли чего может случиться, лучше пусть у Иван Иваныча перестанет печатать, чем один файл много раз уйдет на принтер
msgbox("Не удалось удалить файл " & pFileName & "! Позвоните компьютерщику")
WScript.Quit
'Else
'Пока не реализовано
'ToLog("Файл " & lFileName & " удален.")
End If
End sub