Discussion :

[PrincesseFlora]

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.

[250rgv]

Pour commencer, tu n'est pas dans le bon forum. Ici, il s'agit du VB6 (l'ancien), toi, tu fait du VB.Net et son forum est celui-ci.
Les questions plus spécifiques à VB.net y trouverons certainement plus d'écho/réponse même si dans ce cas, cela ne me semble pas trop lié à vb.net mais comme je ne le pratique pas...

Pour en revenit à ton problème :

Que donne l'affichage par msgbox ?

A-tu essayé de doubler le backslash dans ta variable (c:\temp >> c:\\temp) ?

[ProgElecT]

Salut PrincesseFlora

Je viens de débuter VB, et je bosse sous VB 2010 (version d'essai)...........

Tu es sur le forum VB6 et antérieur, la question devrait être dans ce forum VB.Net (VB Express, VB 2003 et supérieur)
Pour autant il y a similitude dans ces 2 langages.
Sous VB6 il suffit d'ajouter le mot Set lors de la creation des objets, et par sécurité il vaut mieux forcer le type dans objShell.Namespace(Cstr(chemin))

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Dim objShell As Object, objFolder As Object, objItem As Object
Dim chemin As String
Set objShell = CreateObject("Shell.Application")
chemin = Command()
'MsgBox (chemin)
Set objFolder = objShell.Namespace(Cstr(chemin))
For Each objItem In objFolder.Items
If UCase(Right(objItem.Name, 4)) = ".PDF" Then
    objItem.InvokeVerbEx ("Print")
End If
Next

si non il y a déclenchement d'une erreur 91, Variable objet ou variable bloc With non définie.

[l_autodidacte]

Le même code est dans la FAQ VbScript et est fonctionnel.