Question

类型"string的1维数组"的值无法转换为string

Private Sub TextBox3_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox3.DoubleClick
Dim myStream As System.IO.Stream
Dim files As String
Dim i As Integer

OpenFileDialog2.Filter = "All files (*.*)|*.*"

OpenFileDialog2.FilterIndex = 0

OpenFileDialog2.RestoreDirectory = True

If OpenFileDialog2.ShowDialog() = DialogResult.OK Then

TextBox1.Text = ""

Dim filename1, file1 As String

filename1 = OpenFileDialog2.FileName

files = Split(filename1, Chr(0))

If UBound(Files) = 0 Then
TextBox1.Text = filename1
Exit Sub
End If

For i = 1 To UBound(files) Step 1

files(i) = files(0) & "\" & files(i)

TextBox3.Text = TextBox3.Text & OpenFileDialog2.FileName & vbCrLf

Next i

myStream = OpenFileDialog2.OpenFile()

If Not (myStream Is Nothing) Then
Exit Sub
End If

End If
End Sub

Answer 1

files 要定义成String数组
Dim files() As String