Определение файла в папке, его печать и удаление и зацикливание

@Futures · Регистрация: 10.03.2015

Студворк — интернет-сервис помощи студентам

Вот мой скрипт

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
'On Error Resume Next
'Автоматическая печать PDF-файлов, появляющихся в определенной папке
'Глобальные переменные
Set gFSO = CreateObject("Scripting.FileSystemObject")
Set gShell = CreateObject("WScript.Shell")
'Папка, в которой скрипт ждет PDF-файлы (к этой папке (папкам) д.б. дан доступ по сети)
gWatchFolder = "C:\Users\SergeiSorokin\Desktop\test\"
'Основной цикл
While true
 Set lFolder = gFSO.GetFolder(gWatchFolder)
 Set lFiles = lFolder.Files
 For Each lFile In lFiles
  PrintFile(gWatchFolder & lFile.Name)
 Next
 WScript.Sleep(1)
WEnd
 
'Функция печати конкретного pdf-файла
Sub PrintFile(pFileName)
 'Ждем некоторе время (пока файл до конца запишется) 
 WScript.Sleep(3)
 'msgbox(pFileName)
 'Мы (больше) не боимся пробелов :Р
 Dim objFS, objShell, objFolderItems
Dim strMask, arrFolders, strArguments, strVerb, intShowMode, strTemp, i, j
 
strMask = "*.pdf": strArguments = "": strVerb = "print": intShowMode = 0
arrFolders = Array("C:\Users\SergeiSorokin\Desktop\test")
Set objShell = CreateObject("Shell.Application")
If objShell.NameSpace(&h4).Items.Count > 1 Then
    Set objFS = CreateObject("Scripting.FileSystemObject")
    For i = 0 To UBound(arrFolders)
        If objFS.FolderExists(arrFolders(i)) Then
            Set objFolderItems = objShell.NameSpace(arrFolders(i)).Items
            objFolderItems.Filter 64 + 128, strMask
            On Error Resume Next
            For j = 0 To objFolderItems.Count - 1
                strTemp = objFolderItems.Item(j).Name
                objShell.ShellExecute strTemp, strArguments, arrFolders(i), strVerb, intShowMode
                If Err.Number = 0 Then
                    WScript.Echo "Задание печати файла " & strTemp & " обработано успешно."
                Else
                    WScript.Echo "Ошибка " & Err.Number & " при печати файла " & strTemp & vbNewLine & Err.Description
                    Err.Clear
                End If
            Next
            On Error GoTo 0
        Else
            WScript.Echo "Не найден путь " & arrFolders(i)
        End If
    Next
    Set objFolderItems = Nothing: Set objFS = Nothing
Else
    WScript.Echo "Не найдено ни одного подключения к принтеру."
End If
Set objShell = Nothing
WScript.Quit 0
gFSO.DeleteFile(pFileName)
 If gFSO.FileExists(pFileName) Then
  'Мало ли чего может случиться, лучше пусть у Иван Иваныча перестанет печатать, чем один файл много раз уйдет на принтер
  'msgbox("Не удалось удалить файл " & pFileName & "! Позвоните Василию по т. 123-456)
  WScript.Quit
 'Else
  'Пока не реализовано
  'ToLog("Файл " & lFileName & " удален.")
 End If
End sub

Что происходит: при попадании файла в папку печать идет, файл не удаляется. При последующих добавлениях файла в папку ничего не происходит.

Помогите, пожалуйста.

Добавлено через 1 час 17 минут
Всё, сделал, только осталось подправить интервалы времени, чтобы работало без ошибок.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
'Автоматическая печать PDF-файлов, появляющихся в определенной папке
'Глобальные переменные
Set gFSO = CreateObject("Scripting.FileSystemObject")
Set gShell = CreateObject("WScript.Shell")
'Папка, в которой скрипт ждет PDF-файлы (к этой папке (папкам) д.б. дан доступ по сети)
gWatchFolder = "C:\Users\SergeiSorokin\Desktop\test\"
'Основной цикл
While true
 Set lFolder = gFSO.GetFolder(gWatchFolder)
 Set lFiles = lFolder.Files
 For Each lFile In lFiles
  PrintFile(gWatchFolder & lFile.Name)
 Next
 WScript.Sleep(1)
WEnd
 
'Функция печати конкретного pdf-файла
Sub PrintFile(pFileName)
 'Ждем некоторе время (пока файл до конца запишется) 
 WScript.Sleep(3)
 'msgbox(pFileName)
 'Мы (больше) не боимся пробелов :Р
 
 Dim objFS, objShell, objFolderItems
Dim strMask, arrFolders, strArguments, strVerb, intShowMode, strTemp, i, j
 
strMask = "*.pdf": strArguments = "": strVerb = "print": intShowMode = 0
arrFolders = Array("C:\Users\SergeiSorokin\Desktop\test")
Set objShell = CreateObject("Shell.Application")
If objShell.NameSpace(&h4).Items.Count > 1 Then
    Set objFS = CreateObject("Scripting.FileSystemObject")
    For i = 0 To UBound(arrFolders)
        If objFS.FolderExists(arrFolders(i)) Then
            Set objFolderItems = objShell.NameSpace(arrFolders(i)).Items
            objFolderItems.Filter 64 + 128, strMask
            On Error Resume Next
            For j = 0 To objFolderItems.Count - 1
                strTemp = objFolderItems.Item(j).Name
                objShell.ShellExecute strTemp, strArguments, arrFolders(i), strVerb, intShowMode
                If Err.Number = 0 Then
                    WScript.Echo "Задание печати файла " & strTemp & " обработано успешно."
                Else
                    WScript.Echo "Ошибка " & Err.Number & " при печати файла " & strTemp & vbNewLine & Err.Description
                    Err.Clear
                End If
            Next
            On Error GoTo 0
        Else
            WScript.Echo "Не найден путь " & arrFolders(i)
        End If
    Next
    Set objFolderItems = Nothing: Set objFS = Nothing
Else
    WScript.Echo "Не найдено ни одного подключения к принтеру."
End If
Set objShell = Nothing
 
 gFSO.DeleteFile(pFileName)
End sub

С интервалами кто может помочь?
Получается, что если в процессе ничего быстро не нажимать то все работает. А если в выскочившем окне быстро нажать "ок", то весь процесс сбивается.

Освещая проблему - настраиваю сетевой принтер, драйверов нормальных не нашлось. Установил PDF принтер.
Теперь настраиваю автоматическую печать с папки. Теперь надо чтобы любой человек не задумывался над тем как это работает, просто печатал.

@Dmitrii · 13.05.2015, 17:39

Futures, рациональная процедура наблюдения за появлением файла в папке организуется с помощью создания подписки на соответствующее системное событие.
Пример похожего сценария можно увидеть здесь: VBS Печать JPEG-изображений.
Реализацию собственно процедуры печати лучше оставить ту, что в вашей заготовке (с помощью метода ShellExecute объекта Shell.Application).

@Futures · 14.05.2015, 14:46 **[ТС]**

Спасибо большое.

Сделал следующим образом:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
'Автоматическая печать PDF-файлов, появляющихся в определенной папке
'Глобальные переменные
Set gFSO = CreateObject("Scripting.FileSystemObject")
Set gShell = CreateObject("WScript.Shell")
'Папка, в которой скрипт ждет PDF-файлы (к этой папке (папкам) д.б. дан доступ по сети)
gWatchFolder = "C:\Users\SergeiSorokin\Desktop\test\"
'Основной цикл
While true
 Set lFolder = gFSO.GetFolder(gWatchFolder)
 Set lFiles = lFolder.Files
 For Each lFile In lFiles
  PrintFile(gWatchFolder & lFile.Name)
 Next
 WScript.Sleep(1)
WEnd
 
'Функция печати конкретного pdf-файла
Sub PrintFile(pFileName)
 'Ждем некоторе время (пока файл до конца запишется) 
 WScript.Sleep(3)
 'msgbox(pFileName)
 'Мы (больше) не боимся пробелов :Р
 
 Dim objFS, objShell, objFolderItems
Dim strMask, arrFolders, strArguments, strVerb, intShowMode, strTemp, i, j
 
strMask = "*.pdf": strArguments = "": strVerb = "print": intShowMode = 0
arrFolders = Array("C:\Users\SergeiSorokin\Desktop\test")
Set objShell = CreateObject("Shell.Application")
If objShell.NameSpace(&h4).Items.Count > 1 Then
    Set objFS = CreateObject("Scripting.FileSystemObject")
    For i = 0 To UBound(arrFolders)
        If objFS.FolderExists(arrFolders(i)) Then
            Set objFolderItems = objShell.NameSpace(arrFolders(i)).Items
            objFolderItems.Filter 64 + 128, strMask
            On Error Resume Next
            For j = 0 To objFolderItems.Count - 1
                strTemp = objFolderItems.Item(j).Name
                objShell.ShellExecute strTemp, strArguments, arrFolders(i), strVerb, intShowMode
                If Err.Number = 0 Then
                    WScript.Echo "Задание печати файла " & strTemp & " обработано успешно."
                Else
                    WScript.Echo "Ошибка " & Err.Number & " при печати файла " & strTemp & vbNewLine & Err.Description
                    Err.Clear
                End If
            Next
            On Error GoTo 0
        Else
            WScript.Echo "Не найден путь " & arrFolders(i)
        End If
    Next
    Set objFolderItems = Nothing: Set objFS = Nothing
Else
    WScript.Echo "Не найдено ни одного подключения к принтеру."
End If
Set objShell = Nothing
 WScript.Sleep(10000)
 gFSO.DeleteFile(pFileName)
End sub

оказалось проблема была в том, что стояла маленькая задержка WScript.Sleep. значения даются в миллисекундах, я ставил 3, 10, тестировал - не выходило. файл удалялся раньше чем печатался. потом дошло, что надо попробовать больше. поставил 10000 получилось.

@SvoiLudi · 04.04.2018, 19:41

пишет, что не найден файл ИмяФайлаДляПечати и не печатает, а файл имеет расширение и путь:
E:\ИмяФайлаДляПечати.pdf

и что-то не так с кодировкой - иероглифы
Задача: в линуксе печатаем в PDF в определённую папку, а в виртуальной машине Windows 7 32х с подключённым принтером.
Что не так делаю?

путь к папке указал

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
'Автоматическая печать PDF-файлов, появляющихся в определенной папке
'Глобальные переменные
Set gFSO = CreateObject("Scripting.FileSystemObject")
Set gShell = CreateObject("WScript.Shell")
'Папка, в которой скрипт ждет PDF-файлы (к этой папке (папкам) д.б. дан доступ по сети)
gWatchFolder = "E:\"
'Основной цикл
While true
 Set lFolder = gFSO.GetFolder(gWatchFolder)
 Set lFiles = lFolder.Files
 For Each lFile In lFiles
  PrintFile(gWatchFolder & lFile.Name)
 Next
 WScript.Sleep(1)
WEnd
 
'Функция печати конкретного pdf-файла
Sub PrintFile(pFileName)
 'Ждем некоторе время (пока файл до конца запишется) 
 WScript.Sleep(3)
 'msgbox(pFileName)
 'Мы (больше) не боимся пробелов :Р
 
 Dim objFS, objShell, objFolderItems
Dim strMask, arrFolders, strArguments, strVerb, intShowMode, strTemp, i, j
 
strMask = "*.pdf": strArguments = "": strVerb = "print": intShowMode = 0
arrFolders = Array("E:\")
Set objShell = CreateObject("Shell.Application")
If objShell.NameSpace(&h4).Items.Count > 1 Then
    Set objFS = CreateObject("Scripting.FileSystemObject")
    For i = 0 To UBound(arrFolders)
        If objFS.FolderExists(arrFolders(i)) Then
            Set objFolderItems = objShell.NameSpace(arrFolders(i)).Items
            objFolderItems.Filter 64 + 128, strMask
            On Error Resume Next
            For j = 0 To objFolderItems.Count - 1
                strTemp = objFolderItems.Item(j).Name
                objShell.ShellExecute strTemp, strArguments, arrFolders(i), strVerb, intShowMode
                If Err.Number = 0 Then
                    WScript.Echo "Задание печати файла " & strTemp & " обработано успешно."
                Else
                    WScript.Echo "Ошибка " & Err.Number & " при печати файла " & strTemp & vbNewLine & Err.Description
                    Err.Clear
                End If
            Next
            On Error GoTo 0
        Else
            WScript.Echo "Не найден путь " & arrFolders(i)
        End If
    Next
    Set objFolderItems = Nothing: Set objFS = Nothing
Else
    WScript.Echo "Не найдено ни одного подключения к принтеру."
End If
Set objShell = Nothing
 WScript.Sleep(10000)
 gFSO.DeleteFile(pFileName)
End sub

FlasherX · 04.04.2018, 19:59

SvoiLudi, 38 строка:

Visual Basic
1
                strTemp = objFS.GetFileName((objFolderItems.Item(j).Path)

P.S.: Скрипт, конечно, кривенько написан.

@SvoiLudi · 04.04.2018, 21:03

спасибо, у меня тоже заработало

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
'pinter_PDF.vbs
'Автоматическая печать PDF-файлов, появляющихся в определенной папке
'Установите программу SumatraPDF http://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
 
'Доделывал чужое под себя +7 902 44 00 00 6 Компьютерщик www.2133790.Ru
'брал исходник здесь https://habrahabr.ru/post/112404/ и спасибо автору за ответы на мои вопросы
'отсюда http://autoit-script.ru/index.php?topic=21264.0
'и отсюда https://www.cyberforum.ru/vbscript-wsh/thread1445205.html

Добавлено через 5 минут
https://www.print-driver.ru/st... -line-tool

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: показать затраченные материалы за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@Dmitrii 2619 / 549 / 109 Регистрация: 21.03.2012 Сообщений: 1,051
	13.05.2015, 17:39
	Futures, рациональная процедура наблюдения за появлением файла в папке организуется с помощью создания подписки на соответствующее системное событие. Пример похожего сценария можно увидеть здесь: VBS Печать JPEG-изображений. Реализацию собственно процедуры печати лучше оставить ту, что в вашей заготовке (с помощью метода ShellExecute объекта Shell.Application). 0