System.IO.Directory.GetFiles中的路径如果明确指定就可以,如果按照下面这种方法就不行,求大神指点
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
Dim nowdatabasePath As String
nowdatabasePath = Application.StartupPath & "\DataBase\data"
nowdatabasePath = nowdatabasePath & ComboBox1.SelectedItem & ComboBox2.SelectedItem
'ListBox1.Items.Clear()
Try
Dim files = System.IO.Directory.GetFiles(nowdatabasePath, "*.xls") '"E:\Excel"
For Each f As String In files
MsgBox(f)
' ListBox1.Items.Add(f)
Next f
Catch ex As Exception
MsgBox("读取文件出错")
End Try
End Sub