Fonction (Print) Par extension

Version imprimable

Salut a tous
j'ai ce code qui imprime seulement le nom de fichier que je le donne
Code:

1 2 3 4 5 6 7 8 9 Option Explicit 'On Error Resume Next Dim objShell, objFolder, objFile Set objShell = CreateObject("Shell.Application") Set objFolder = objShell.NameSpace("D:\") Set objFile = objFolder.ParseName("fichier.htm") objFile.InvokeVerb("Print")
Je veux qu'il imprime les fichiers par extention
par exemple tous les fichiers (.doc) ou (.htm)
merci d'avance

Un bidule comme ça

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Option Explicit
'On Error Resume Next

Dim objShell, objFolder, objFolderItems, item, extension
extension = ".txt"

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace("D:\")
set objFolderItems = objFolder.Items
if (not objFolderItems Is Nothing) then
	For Each item In objFolderItems
		if (not item.IsFolder and StrComp(Right(item.name, Len(extension)), extension, vbTextCompare) = 0) then
			item.InvokeVerb("Print")
		end if
	Next
end if

28/07/2018, 23h29
ABBAN270

non desolé
marche pas ce code
01/08/2018, 22h51
ABBAN270

Ya t’ils d'autre propositions S.V.P ???
01/08/2018, 23h28
sachadee
Salut !
Code:

1 2 @echo off print d:\*.htm
;)
02/08/2018, 09h44
ABBAN270
Citation:
Envoyé par sachadee

Salut !

Code:

1 2 @echo off print d:\*.htm

;)
je connais les instructions CMD
mais vous savez que sa marche pas avec le VBS
c'est pas kifkif
02/08/2018, 11h22
ericlm128

Citation:

non desolé
marche pas ce code

Qu'est ce qui ne marche pas ?
02/08/2018, 13h02
sachadee
Citation:

Envoyé par ABBAN270

je connais les instructions CMD
mais vous savez que sa marche pas avec le VBS
c'est pas kifkif

Pas vrai du tout !!! :aie:
Code:

1 2 Set oShell = WScript.CreateObject("WSCript.shell") oShell.run "cmd /K CD d:\ & print *.htm"
;)
04/08/2018, 00h12
ABBAN270
Citation:
Envoyé par sachadee

Pas vrai du tout !!! :aie:

Code:

1 2 Set oShell = WScript.CreateObject("WSCript.shell") oShell.run "cmd /K CD d:\ & print *.htm"

;)
il affiche
Fichier.HTM est actuellement en cours d'impression
mais il ne lance pas l'impression