Private Sub Command1_Click()
Dim strFileName() As String
Dim intFile As Integer
Dim i As Integer
intFile = File1.ListCount
ReDim strFileName(intFile) As String
For i = 0 To intFile
strFileName(i) = File1.List(i)
Text1.Text = Text1.Text & vbCrLf & strFileName(i)
Next i
End Sub
Private Sub Form_Load()
Command1.Caption = "放到数组里"
End Sub其中细节自己写.....
Dim strFileName() As String
Dim intFile As Integer
Dim i As Integer
intFile = File1.ListCount
ReDim strFileName(intFile) As String
For i = 0 To intFile
strFileName(i) = File1.List(i)
Text1.Text = Text1.Text & vbCrLf & strFileName(i)
Next i
End Sub
Private Sub Form_Load()
Command1.Caption = "放到数组里"
End Sub其中细节自己写.....
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货