je viens de débuter VB, et je bosse sous VB 2010 (version d'essai)
J'ai un problème avec la propriété Namespace:
je vous montre le code
Module Impression
Sub Main()
Dim objShell, objFolder, objItem As Object
Dim chemin As String
objShell = CreateObject("Shell.Application" )
chemin = Command()
MsgBox(chemin)
objFolder = objShell.Namespace(chemin)
For Each objItem In objFolder.Items
If UCase(Right(objItem.name, 4)) = ".PDF" Then
objItem.InvokeVerbEx("Print" )
End If
Next
End Sub
End Module |
La variable chemin est passée en paramètre, et à pour valeur "C:\Temp"
lorsque je débuggue le programme, j'ai une erreur à cette ligne:
For Each objItem In objFolder.Items |
a priori il n'y a rien.
Or si la ligne
objFolder = objShell.Namespace(chemin) |
est remplacée par
objFolder = objShell.Namespace("C:\Temp" ) |
il n'y a plus de problème.
Si vous aviez des idées, ce serait sympa
Message édité par RanMouri le 26-10-2011 à 10:41:43
---------------
Ne jamais boire au volant, toujours boire à la bouteille!
