查看会员资料
用 户 名：k****
发送消息- Email：用户隐藏
- Icq/MSN：
- 电话号码：
- Homepage：
- 会员简介：
最新会员发布资源
VB_Load
- Option Explicit Private Sub Command1_Click() Text1.Text = "" Dim i As Single For i = 0 To File1.ListCount Text1.Text = Text1.Text & File1.List(i) & Chr(13) & Chr(10) Next i End Sub Private Sub Dir1_Change() File1.Path = Dir1.P