主题：找不到路径

For Each  file As  String In  filesys .GetFiles("d:\qqq")
    If  file.EndsWith(".xls") OrElse  file.EndsWith(".xlsx") Then
        Dim  Book As  New  XLS.Book(file)
        Dim  Sheet As  XLS.Sheet =  Book.Sheets(0)
    '    Dim  dr As  DataRow = DataTables("XXXXX").AddNew
    '    dr("姓名") =  sheet(3,1).Text
    '    dr("邮箱") =  sheet(7,5).text
    End If
Next