Question

VB将list1中的内容写入到txt文件中

如果list1中是
1123
1244
则创建一个txt文件内容也是
1123
1244

Answer 1

很简单：在form中加一个按钮COMMAND1,设置代码如下：
Private Sub Command1_Click()
Open "任意路径" For Append As #1 ’创建/打开一个文件

For i = 0 To List1.ListCount - 1 '输入到文件中
Print #1, List1.List(i)
Next i

Close #1 ‘关闭文件
End Sub

Answer 2

Public Function CreateAfile(TxtName As String, StrD As String) As Boolean
On Error Resume Next
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.CreateTextFile(TxtName, True)
a.WriteLine (StrD)
a.Close
If Err Then
CreateAfile = False
Else
CreateAfile = True
End If
End Function
Public Sub Seted(Show As Boolean)
Dim strs As String
If List1.ListCount > 0 Then
With List1
For w = .ListCount - 1 To 0 Step -1
If .Selected(w) Then
strs = strs & .List(w) & vbCrLf
Else
strs = strs & .List(w) & vbCrLf
End If
Next w
End With

End If
CreateAfile "路径加文件名", strs
End Sub

Answer 3

textbox1.text=list1.value