Dir1_Change()事件 文件列表控件

Question

Private Sub Dir1_Change() FilePath = File1.Path & "\"
   FileName = Dir(FilePath & "*.txt")
      While Len(FileName) <> 0
       Arr = Split(FileName, "-")
      If Mid(FileName, 1, 1) = "Z" And Mid(FileName, 3, 1) = "P" Then  
         Name FilePath & FileName As FilePath & Mid(FileName, 1, 1) & "0" & Mid(FileName, 2, 1) & Mid(FileName, 3)
     
      If Mid(Arr(UBound(Arr)), 3, 1) = "." Then
      
       Name FilePath & FileName As FilePath & "1-printhighf-" & Mid(Arr(UBound(Arr)), 1, 1) & "0" & Mid(Arr(UBound(Arr)), 2)
      
      End If
      
      FileName = Dir
   WendFile1.Path = Dir1.Path
End Sub
我用  驱动器列表   目录列表和文件列表  三个控件来选择文件我想在Dir1_Change()事件 中加入代码 (这段代码是改文件名的) 当dir1 目录列表发生变化时 执行代码可是当 文件件列表发生变化时      File1  文件列表框中没有显示  执行代码后的文件   也就是改文件名后的文件
还是显示原来的文件名    要从新选择文件列表  它才能显示  执行代码后的文件名我的代码以经写在
   File1.Path = Dir1.Path
前面    但还是没先执行请问没有没办法解结     

Answer 1

少了一个End if, 改为:
 End If
      End If
      FileName = Dir
可执行

Answer 2

我的程序是没问题
上面的代码是我删了一半造成的  所以少了end if我的问题是
      文件列表框中的文件名不能  立即更新