Dim f As IO.Directory, fa(), fa1() As String
If 
   f.Exists(System.Windows.Forms.Application.StartupPath & "\学生资料\" &班级& "\" &姓名) = True 
Then
  fa = f.GetFiles(System.Windows.Forms.Application.StartupPath & "\学生资料\" &班级& "\" &姓名)这个思路有点乱,麻烦给给意见VBC#IO.DirectoryGetFiles