Discussion :

[ABBAN270]

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

Code vbscript :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ericlm128]

Un bidule comme ça

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ABBAN270]

non desolé
marche pas ce code

[ABBAN270]

Ya t’ils d'autre propositions S.V.P ???

[sachadee]

Salut !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ABBAN270]

Salut !

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ericlm128]

non desolé
marche pas ce code

Qu'est ce qui ne marche pas ?

[sachadee]

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

Pas vrai du tout !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ABBAN270]

Pas vrai du tout !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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