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
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
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.