請問 Application.FileSearch '執行階段錯誤2455 ,請問這應該怎麼修改?

HSIEN6001

1. Function 資訊()
   
2.     DoCmd.SetWarnings False   
   
3.     Dim Filename As Integer   
   
4. 
   
5.         Set BK = Application.FileSearch         '執行階段錯誤2455 ,請問這該怎麼改?
   
6.             With BK                             
   
7.             .LookIn = "D:\資訊-原始\"     
   
8.             .Filename = "all*.xls"   
   
9.                 If .Execute(SortBy:=msoSortByFileName, SortOrder:=msoSortOrderAscending) > 0 Then
   
10.                     For B = 1 To .FoundFiles.Count  
    
11.                     DoCmd.TransferSpreadsheet acImport, 8, "00 原始資料", .FoundFiles(B), True
    
12.                     Next
    
13.                 End If
    
14.             End With
    
15.         Set BK = Nothing      
    
16. 
    
17. End Function

複製代碼

cody

請問 office 版本?, 可以換 FileSystemObject 來用

1. Dim FSO As Object
   
2. Dim localfolder As String
   
3. 
   
4. Set FSO = CreateObject("Scripting.FileSystemObject")
   
5. localfolder = "D:\資訊-原始\"
   
6. Set fld = FSO.GetFolder(localfolder)
   
7. 
   
8. For Each myFileName In fld.Files
   
9.    
   
10.     If FSO.GetExtensionName(localfolder & myFileName.Name) = "xls" Then
    
11.         Debug.Print myFileName.Name
    
12.     End If
    
13. Next

複製代碼