VB6でPrintersオブジェクト古いプリンタ情報を削除するには？ (ID:103386)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 WinXP(SP3),VB6.0(SP6) の環境で、３パターンほど試しましたが、特に不具合は出ないですね。 OS や VB6 のサービスパックの状態は？ ' Index で列挙 Private Sub Command1_Click() Dim i As Long With List1 .Clear For i = 0 To Printers.Count - 1 .AddItem Printers(i).DeviceName Next End With End Sub ' For Each で列挙 Private Sub Command2_Click() Dim p As Printer With List1 .Clear For Each p In Printers .AddItem p.DeviceName Next End With End Sub ' WMI で列挙 Private Sub Command3_Click() Dim wmi, svc, ps, p Set wmi = CreateObject("WbemScripting.SWbemLocator") Set svc = wmi.ConnectServer Set ps = svc.ExecQuery("Select * From Win32_Printer") With List1 .Clear For Each p In ps .AddItem p.Caption Next End With End Sub