飞天剑客

Private Sub Command12_Click()
Dim fileno As Integer
fileno = FreeFile
For g = 0 To File1.ListCount
      g = g + 1
      Open "e:\wys.txt" For Append As #fileno
       Print #fileno, File1.Path & "\" & File1.List(g)
      Close #fileno
  Next g
End Sub
把文件列表框的内容写到wys.txt里面
为什么文件写不完就不写了

rousick521

日说的什么鸟啊。。。。。。。。。。。/