Créer un listing du reseau

Bonjour,

j'ai un petit soucis avec visual basic ( je ne connait pas visual basic mais j'essaye de comprendre )

en sorte, je dois créer une fonction qui en cliquant sur un bouton me fasse un listing du réseau du type : nom.txt

mais j'ai une erreur mais je n'arrive pas a comprendre ou elle se trouve :

donc, quand je clique sur le bouton, il doit me céer un fichier txt comprenant :
dir "Z:\OS\10 OS Global E&I\Drawings" /b/s> "Z:\OS\10 OS Global E&I\Electrical\Standard\Drawings Acad\pr\DIRLOOPS.TXT"
notepad "Z:\OS\10 OS Global E&I\Electrical\Standard\Drawings Acad\pr\DIRLOOPS.TXT"

mais il ne m'inscrit pas les guillemets après /b/s> , a la fin de dirloops.txt et idem avec notepad

voici le listing visual basic :

'aanmaken DirX.txt:
'cmd vanuit
' Z:\OS\10 OS Global E&I\Drawings
' dir /b/s>DirLoops.txt
'plaats van het bestand:
' Z:\OS\10 OS Global E&I\Electrical\Standard\Drawings Acad\pr\DirLoops.txt
'myPath1 = "Z:\OS\10 OS Global E&I\Electrical\Standard\Drawings Acad\pr\"
Open myPath1 & "DirX.bat" For Output As #10
Print #10, Chr(64) & "echo off"
Print #10, "echo."
Print #10, "echo si cette operation n'est pas achevee le programme fonctionnes inexactement"
Print #10, "echo et VOUS devez de nouveau effectuer cette operation"
Print #10, "echo un peu de patience............"
Print #10, "echo."
'''Print #10, "dir " & Chr(34) & "Z:\OS\10 OS Global E&I\Drawings" & Chr(34) & " /b/s > " & Chr(34) & "Z:\OS\10 OS Global E&I\Electrical\Standard\Drawings Acad\pr\DirLoops.txt" & Chr(34)

'path moet in inifile komen:
'"Z:\OS\10 OS Global E&I\Drawings"
Select Case True
Case UCase(txtBib) = "DIRLOOPS.TXT"
Print #10, "dir " & Chr(34) & "Z:\OS\10 OS Global E&I\Drawings" & Chr(34) & " /b/s>" & myPath1 & txtBib '"dirloops.txt"
Case UCase(txtBib) = "DIRSTANCADELEC.TXT" 'I:\STANCADELEC\
Print #10, "dir " & Chr(34) & "I:\STANCADELEC" & Chr(34) & " /b/s>" & myPath1 & txtBib '"dirStanCadElec.txt"
Print #10, "dir " & Chr(34) & "I:\Reperage\Custom\Lib_acad2005\Symbol\Iec2" & Chr(34) & " /b/s>>" & myPath1 & txtBib '"dirStanCadElec.txt"
End Select

Print #10, "notepad " & myPath1 & txtBib '"DirLoops.txt"
' Print #10, "erase " & myPath1 & "DirX.bat"
Close #10
NewDir = Shell(myPath1 & "DirX.bat", 1)
RefrDirLoopsDatum
End If
End Sub

grand merci a vous