我测试了代码没问题。

Cfile2 ("\\10.92.29.2\pub\VHD\")     这个是改成了网络地址
Cfile1 ("E:\VHD\")                   这个是改成了本地地址，有二个地方都改了。

For i = 0 To (List4.ListCount - 1)
  For j = 0 To (List3.ListCount - 1)
    If List4.List(i) = List3.List(j) Then
      If List10.List(i) = List9.List(j) Then               '这句有问题。这二个列表框应该是保存的二个文件的具体位置。如果你是比较不同的文件，那这里的位置是肯定不同的，如果是相同的位置，那修改时间又是相同的。

      其他代码没去研究你的。我这二个路径是有一个文件有更新的，但没看到提示，就调试了一下。

经过尝试，发现了一个问题：

以下这段如果不是引用自身，而是另一个SUB的话就不会出现之前出现的问题
For i = 0 To idir - 1         
Call Cfile1(MyPath + dir_i(i))
Next i
ReDim dir_i(0) As String  

但是，这样的话我没有办法追塑到子文件夹

我想应该是文件夹的问题了
因为我把检测路径设置到子文件夹的时候是部分可以，部分不行

请问，文件夹名或者文件夹内部有什么要求？
名称长度？名称所包含的字符？或者有什么系统文件的需求？

答案：
1、文件名称过长
2、文件名称包含特殊字符

此贴问题已解决，感谢各位