这段代码2003版运行正常，升级2007版后报错，请高手指点！

123shusheng

我在网上搜到一段代码，以前在2003版运行正常，最近我升级到2007版，黄色部分报错。提示：运行时错误2455，您输入的表达式对属性FileSearch的引用无效。请高手指点一下，需要怎么处理，谢谢！

Private Sub Form_Load()

Dim TemPath As String
   Dim StrFileName As String

   '历遍当前备份目录所有文件
   Set fs = Application.FileSearch
   TemPath = CurrentProject.Path & "\文件夹$\"
   With fs
       .LookIn = CurrentProject.Path & "\文件夹$"
       .FileName = "*.*"
       If .Execute > 0 Then

       For i = 1 To .foundfiles.Count
           StrFileName = Right(fs.foundfiles(i), Len(fs.foundfiles(i)) - Len(TemPath)) 'filename


         If StrFileName Like "*" Then
          Debug.Print fs.foundfiles(i)

accben

如果不能用，就改用FileSystemObject

付谦

.foundfiles.Count  改成
CLng(.foundfiles.Count )