Question

VB listbox 保存成txt文件

有大神能写段用 commondialog.showsave然后保存list里面的所以item到text文件么？

Answer 1

Private Sub Command1_Click()
Open App.Path & "\1.txt" For Output As #1
For i = 0 To File1.ListCount - 1
Print #1, Left(File1.List(i), Len(File1.List(i)) - 4)
Next i
Close
End Sub

Private Sub Dir1_Change()
File1.Path = Dir1.Path
End Sub

Private Sub Drive1_Change()
Dir1.Path = Drive1.Drive
End Sub

Private Sub Form_Load()
File1.Pattern = "*.jpg"
End Sub