Question

VB6编程问题

Public MdbCsSz As Database '参数设置
Public TRxw As Recordset '软限位设置

在定义时 提示Database无法使用，，需要添加Data Access Object但是找不到这个引用

Answer 1

　　'很怀疑你的目的性，不过实现其实很简单：
　　'就在你的代码基础上修改一下就可以
　　'递归函数主体
    Private Sub TransFiles(ByVal strDirect As String)
        If Not (strDirect Is Nothing) Then
            'ListBox1.Items.Add(strDirect)
            Dim mFileInfo As System.IO.FileInfo
            Dim mDir As System.IO.DirectoryInfo
            Dim mDirInfo As New System.IO.DirectoryInfo(strDirect)
            For Each mFileInfo In mDirInfo.GetFiles("*.EXE") '要遍历查找的文件类型
                ListBox1.Items.Add(mFileInfo.FullName) '文件全路径
            Next
            For Each mDir In mDirInfo.GetDirectories
                TransFiles(mDir.FullName)
            Next
        End If
    End Sub
    
'调用实例
  Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
      Dim obj_FolderBrowser As New FolderBrowserDialog
      If obj_FolderBrowser.ShowDialog = Windows.Forms.DialogResult.OK Then
          TransFiles(obj_FolderBrowser.SelectedPath) '此处可以直接给盘符D:\
      End If
      Exec_Shell()
  End Sub
  
  '读取ListBox1控件列表,Shell开始逐一执行
  Private Sub Exec_Shell()
  for i as long = 0 to ListBox1.Items.Count() - 1
      Shell(ListBox1.Items(i).ToString())
  next