VB6编程问题

2025-02-15 09:11:42

推荐回答（1个）

回答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

最新问答

电能表的工作原理

心理咨询师不让我看她的微信

一个三角形中，一个内角的度数比另外两个内角的度数和大二度，这个三角形是（） 1 直角

关于消费的心得感悟范文

陈姓女孩起名！不懂不要乱回答！高分悬赏！

抽血化验能否查出肿瘤或者癌症之类的病???

普通高中的学费要多少？是怎样收费的？是一学期收费还是一年收费？

碳汇项目具体包括哪些

电压和电位的主要区别是什么？如果电路中的某两点的电位都很高，能否说明这两点之间也很高？为什么？？

谈谈你对教育和惩罚的理解