pepperoni 10 Geschrieben 16. Februar 2005 Melden Geschrieben 16. Februar 2005 Ja ich glaub du musst dann nochmal diese Zeile Set oDrives = WshNetwork.EnumNetworkDrives vor dieser Schleife For i = 0 to oDrives.Count - 1 Step 2LAUFWERKE = LAUFWERKE & oDrives.Item(i) & " = " & oDrives.Item(i+1) & vbcrlf next For i = 0 to oPrinters.Count - 1 Step 2 PRINTER = PRINTER & oPrinters.Item(i) & " = " & oPrinters.Item(i+1) & vbcrlf next einfügen, um das oDrives Object mit den aktuellen Daten neu zu laden. Probier es jetzt gleich nochmal aus wenn ich etwas Luft hab. Zitieren
pepperoni 10 Geschrieben 16. Februar 2005 Melden Geschrieben 16. Februar 2005 PS: Set oPrinters = WshNetwork.EnumPrinterConnections dann wahrscheinlich auch noch. Zitieren
schmida 10 Geschrieben 16. Februar 2005 Autor Melden Geschrieben 16. Februar 2005 funktioniert :D danke ! Zitieren
pepperoni 10 Geschrieben 16. Februar 2005 Melden Geschrieben 16. Februar 2005 :D Immer wieder gern. :D Zitieren
Empfohlene Beiträge
Schreibe einen Kommentar
Du kannst jetzt antworten und Dich später registrieren. Falls Du bereits ein Mitglied bist, logge Dich jetzt ein.