Anda bisa coba script berikut ini ...
'script by ajang
Private Sub Command1_Click()
Dim I As Integer
Open "C:\Windows\Desktop\IsiList.txt" For Output As #1
For I = 0 To List1.ListCount - 1
Print #1, List1.List(I)
Next I
Close #1
MsgBox "OK"
End Sub
jika ada pertanyaan silahkan hub 089 682 503 753
'script by ajang
Private Sub Command1_Click()
Dim I As Integer
Open "C:\Windows\Desktop\IsiList.txt" For Output As #1
For I = 0 To List1.ListCount - 1
Print #1, List1.List(I)
Next I
Close #1
MsgBox "OK"
End Sub
jika ada pertanyaan silahkan hub 089 682 503 753
This is dummy text. It is not meant to be read. Accordingly, it is difficult to figure out when to end it. But then, this is dummy text. It is not meant to be read. Period.
ConversionConversion EmoticonEmoticon