Office中国论坛/Access中国论坛

标题: 这段代码2003版运行正常，升级2007版后报错，请高手指点！ [打印本页]

作者: 123shusheng 时间: 2022-2-7 18:47
标题: 这段代码2003版运行正常，升级2007版后报错，请高手指点！
我在网上搜到一段代码，以前在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 时间: 2022-2-8 09:31
如果不能用，就改用FileSystemObject

作者: 付谦 时间: 2022-2-11 17:49
.foundfiles.Count 改成
CLng(.foundfiles.Count )

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)