Wie kann ich diesen für ein ListView zugeschnitten Code auf einen ListBox
umwandeln
Habs schon öfters versucht, scheitere aber immer wieder.
Filenum = FreeFile
Open hpfad & host & "_hardware.txt" For Output As #Filenum
For j = 1 To ListView1.ListItems.Count
Print #Filenum, ListView1.ListItems(j).Text
Next j
Close #Filenum
und diesen da:
DExist = False
For x = 1 To ListView1.ListItems.Count
If ListView1.ListItems(x).SubItems(1) = DevInstance Then DExist = True
Next x
Set LI = ListView1.ListItems.Add(, , DevDesc)
DANKE.
Cya Alex
umwandeln
Habs schon öfters versucht, scheitere aber immer wieder.
Filenum = FreeFile
Open hpfad & host & "_hardware.txt" For Output As #Filenum
For j = 1 To ListView1.ListItems.Count
Print #Filenum, ListView1.ListItems(j).Text
Next j
Close #Filenum
und diesen da:
DExist = False
For x = 1 To ListView1.ListItems.Count
If ListView1.ListItems(x).SubItems(1) = DevInstance Then DExist = True
Next x
Set LI = ListView1.ListItems.Add(, , DevDesc)
DANKE.
Cya Alex